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5. COMMENTS 01A 

6. APPENDIX (NONE) 



1. PURPOSE 

THE 1800 RELOCATABLE DIAGNOSTIC LOADER IS USED TO LOAD THE DIAGNOSTIC 
MONITOR AND PROGRAMS WHICH RUN UNDER CONTROL OF THE DIAGNOSTIC 
MONITOR. THE LOADER ALSO LOADS NON-MONITOR PROGRAMS WHOSE OBJECT 
DECKS ARE IN THE SAME FORM AS THE OUTPUT OF THE 1800 ASSEMBLER 
( 12-4. FORMAT ). I THE 1800 RELOCATABLE DIAGNOSTIC LOAOER HILL NOT 
LOAO PROGRAMS WHOSF OBJECT DECK IS COMPATIBLE WITH EITHER THE 1800 
BASIC DIAGNOSTIC LOADER OR THE 1800 AUXILIARY STORAGE LOADER.) 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES. 

PROGRAMS MAY NOT HAVE ORG ADDRESSES OF /3000 TO /7500 SINCE THIS 
IS REStRVEC FOR WAITS AND ERROR TRAPS. 



2.2 



EQUIPMENT PREREQUISITES 



A. 

B. 



1801 OR 1802 PROCESSOR CONTROLFR 
1442 CARD READER/PUNCH 



3. USE PROCEDURE 

3.1 LOAOING AND OPERATING 

THE 1800 RELOCATABLE LOAOER DECK CONSISTS OF SEVFN (8-8 FORMAT) 
CARDS. THE RELOCATABLE LOADER IS CAPABLE OF L0AJD1NG- 



CATE 
EC NO. 



1. 
2. 
3. 
4. 
S. 
6. 

28FEB66 
415120B 



ABSOLUTE BINARY DECKS (12-4 FORMAT! 

RELOCATABLE BINARY CECKS (WHOSE ORIGIN IS /07FF) 

ABSOLUTE HEX CORRECTION CARDS 

RELOCATABLE HEX CORRECTION CARDS 

A8S0LUTF HEX TRANSFER CARDS 

EDIT CAROS (OF IHE TYPE REQUIRED FOR PROGRAMS WHICH RUN UNOER 



01.IUL66 
415178 



270CT66 
415233A 



PROG ID 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
RELOCATABLE DIAGNOSTIC LOADER - CAROS 

CONTROL OF THE DIAGNOSTIC MONITORS) 
TO LOAO A PROGRAH- 

A. AT 1442 CARD READ/PUNCH- 

1. DEPRFSS NPRO PUSHBUTTON TO EJECT ANY CAROS LEFT IN MACHINE. 

2. PLACE 1800 RELOCATABLE LOADER IN FRONT OF DECK(S) TO BE 
LOADED AND PLACE CARDS IN HOPPER. PLACE CARDS FACE DOWN WITH 
NINE EDGE FORWARD. 

3. DEPRESS START PUSHBUTTON ON 1442. READY INDICATOR SHOULD 
LIGHT. 

B. USE 1800 PC CONSOLE TO CLEAR STORAGE AS FOLLOWS- 

1. SET DATA ENTRY SWITCHES TO /70FF. 

2. SET CHECK STOP SWITCH 10 'OFF*. 

3. SET WRITE STG PRO SWITCH TO 'YES'. 

4. HOLD CLEAR STORAGE PUSHBUTION DOWN AMD DEPRESS START 
PUSHBUTTON TO CLEAR STORAGC. 

5. DEPRESS STOP PUSHBUTTON TO STOP CLtARING OPERATION. 

C. TO INITIATE PROGRAM LOADING- 
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3.2 



1. 
2. 
3. 

4. 
•>. 

6. 
7. 

WAITS 



SET OPERATIONS MONITOR SWITCH 10 'OFF'. 

SET DISABLE INTERRUPT SWITCH TO 'OFF*. 

SET CHECK STOP SWITCH TO 'ON'. 

SET WRITE STOR PROT BITS SWITCH TO 'YES*. 

SET 1800 PC SENSE/PROGRAM AND DATA ENTRY SWITCHES AS REQUIRED 

BY PROGRAM TO BE LOADED. 

DEPRESS RESET PUSHBUTTON. 

DEPRESS PROGRAM LOAD PUSHBUTTON. (PROGRAM SHOULD LOAO) 



SEE THE WAIT SECTION OF THE LISTING FOR REGISTER VALUES AND WAIT 
DESCRIPTION. 

4. PRINTOUTS (NONE) 

5. COMMENTS 

5.1 THE FOLLOWING ARE THE MAJOR ELEMENTS OF THE 1800 RELOCATABLE 
DIAGNOSTIC LOADER- 

5.1.1 BOOTSTRAP ROUTINE — IS A SET OF INSTRUCTIONS ENTERED INTO THE 
PROCESSOR CONTROLLED BY THE 1PL ( INITIAL PROGRAM LOADER I MODE WHOSE 
FUNC1I0N IS TO READ IN THE REMAINDER OF THE LOADER. 

5.1.2 READ ROUTINE — CHECKS 1442 FOR PROPER STATUS, READS A CARD INTO 
L0CA1I0N /OOOO THROUGH /004F, CHECKS FOR SATISFACTORY COMPLETION OF 
THE READ OPERATION, AND DETERMINES WHETHER THE CARD READ IS A BINARY 
LARD OR A HEXADECIMAL (CORRECTION OR EDIT CARD). 

5.1.3 BINARY PACK ROUTINE — TAKES DATA. FOUND IN LOCATIONS /OOOO THROUGH 
/004F (12 BITS PER CORE WORD) AND PACKS IT INTO LOCATION /OOOO 
THROUGH /0035 (16 BITS PER CORE WORD). 

5.1.4 CHECKSUM ROUTINE — COMPUTES CHECKSUM OF A BINARY CARD, WAITS IF 
CHECKSUM IS IN ERROR. 

5.1.5 MOVE ROUTINE — MOVES DATA FROM /OOOO THROUGH /0035 TO PROPER CORE 
LOCATION. CHECKS FOR EXCEEDING CORE SIZE. AODS IN RELOCATION FACTOR 
WHEN REQUIRED. 

5.1.6 RELOCATABLE HEADER ROUTINE — ENTERED WHEN A RELOCATABLF HC-utR CARD 



08B1- 
1 
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IS FOUND. COMPUTES A Rf LOCATION FACTOR FOR PROGRAM THAT FOLLOWS. 

5.1.7 ABSOLUTE HEADER ROUTINE — ENTEREO WHEN AN ABSOLUTE HEADER CARD IS 
FOUND. SETS RELOCATION FACTOR TO ZERO. 



5.1.8 



5.1.9 



5.2 



TRANSFER ROUTINE — ENTERED WHEN A TRANSFER CARD IS FOUNO. COMPUTES 
THE NEXT LOCATION AVAILABLE FOR LOADING IF ANOTHER PROGRAM FOLLOWS. 
TRANSFERS CONTRUL TO THE LOCATION SPECIFIED ON THE TRANSFER CARD. 

HEX TO BINARV CONVERSION ROUTINE — CONVERTS A HEXADECIMAL CARO TO 
BINARY. AODS IN RELOCATION FACTOR IF REQUIRED. 



CARD RECOGNITION 

THE FOLLOWING ARE CARDS WHICH CAN BE LOADED 
DIAGNOSTIC LOADER. 



BY THE 1800 RELOCATABLE 



5.2.1 ABSOLUTE HEADER CARDS HAVE A 1 PUNCH IN COLUMN 4. 

5.2.2 RELOCATABLE HEAOER CAROS HAVE A (ZERO) PUNCH IN COLUMN 4. 

5.2.3 NORMAL DATA CAROS HAVE NO PUNCHES IN ROW 12 IN COLUMN 1. AN ADDRESS 
IN ROWS 11 THROUGH 9 IN COLUMN 1 AND ROWS 12 THROUGH 1 IN COLUMN 2. 

A CHECKSUM IN ROWS 2 THROUGH 9 OF COLUMN 2 AND ROWS 12 THROUGH 5 OF 
COLUMN 3. A 12, PUNCH IN COLUMN 4, A WORD COUNT IN ROWS 4 
THROUGH 9 OF COLUMN 4. A RELOCATION FIELD (WHICH MAY BE BLANK) IN 
COLUMN 5 THROUGH 12. DATA IN COLUMNS 13 THROUGH 72. A SEQUENCE 
NUMBER IN COLUMNS 73-80. 

5.2.4 BINARY TRANSFER CAROS HAVE 12, 11, 0, 1 PUNCHES IN COLUMN 4 AND A 
WORD COUNT OF ZERO (NO PUNCHES IN ROWS 4 THROUGH 9 IN COLUMN 4). 

5.2.5 HEXADECIMAL TRANSFER CAROS HAVE A 12 PUNCH IN COLUMN 1, A TRANSFER 
ADDRESS IN COLUMN 2 THROUGH 5 ANO NC PUNCHES IN COLUMNS 6 AND 7. 

5.2.6 HEXADECIMAL CORRECTION CAROS HAVE A 12 PUNCH IN COLUMN 1. AN ADDRESS 
IN COLUMN 2 THROUGH 5. DATA IN COLUMNS 6 THROUGH 80. 

DATA IS GROUPED 5 COLUMNS TO ONE CORE WORO. THE FIRST COLUMN OF EACH 
GROUP SPECIFIES WHETHER OR NOT THE GROUP REQUIRES A RELOCATION 
FACTOR. IF THE FIRST COLUMN OF A GROUP IS BLANK A RELOCATION FACTOR 
WILL NOT BE ADDED. IF THE FIRST COLUMN OF A GROUP CONTAINS AN R 
(11,9 PUNCH) A RELOCATION FACTOR WILL BE ADDFD TO THE FIELO. 
LOADING OF THE CARD IS TERMINATED BY TWO SEQUENTIAL BLANK COLUMNS. 

5.2.7 EDIT CARDS HAVE 12, 5 PUNCHES IN COLUMN 1. DATA IS GROUPEO 4 COLUMNS 
PER CORE WORD WITH A BLANK COLUMN AFTER EACH GROUP. LOADING OF THE 
CARD IS TERMINATED BY TWO SEQUENTIAL BLANK COLUMNS. 



DATE 
EC NO. 



28FEB66 01JUL66 270CT66 
415120B 415178 415233A 
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30F8 



30F8 0123 



ABS 
ORG 



/30F8 



30F9 00A2 



30FA OOOF 



30FB 0073 



30FC ODBC 



0000 



*******##*#**********************************#***** 

* WAITS ERROR COMMENTS 
a************************************************** 
# 

DC W30F861 THE LAST GARD OF THE EDIT 

* CARD ROUTINE IS NOT INTER- 

* FACED WITH THE PROGRAM 8E- 

* ING LOADED. CHECK FOR PRO- 

* PER LOADING PROCEDURE AND 

* EDIT CARDS. RELOAD PROGRAM 
*************************************************** 

* 

DC W30F961 CHECK SUM ERROR. NORMAL 

* PROCEDURE IS TO RELOAD, 

*************************************************** 

* 

DC W30FAE1 LOADER ERROR, THIS ERROR 

* OCCURRED WHILE THE LOADER 

* WAS BEING LOADER BECAUSE 

* AN ERROR BIT WAS ON IN THE 

* DSW. RELOAD LOADER. 

***** ************************* ****** *************** 
* 

DC »*30FB61 OSW ERROR BIT ON. CLEAR 

* THE READER AND SET IT UP 

* TO READ THE SAME INFQRMAT- 

* ION AGAIN. TO CONTINUE 

* PRESS START. 

******* ****** * ****** ************* ****************** 
* 

DC W30FC61 LOADING HAS REACHED THE 

* UPPER LIMIT OF MEMORY. 

* CHECK AND RELOAD. 

*************************************************** 

ORG CARD 

* 

* THIS IS THE 1ST CARD OF THE LOADER, IT LOADS 

* THE REST OF THE LOADER. 136 WORDS PER CARO) 
* 



0000 





0811 




LD22 


XIO 




READ1 




0001 





0812 




LD25 


XIO 




DSW1 


CK DSW 


0002 





4C04 


0001 




BSC 


L 


LD25.E 


BRANCH IF STILL NOT 


0004 





BOOF 






CMP 




DSW1 




0005 





7008 






MDX 




W30FA 


LOADER ERROR 


0006 





7006 






MDX 




LD30 


READY MAY NOT BE ON 


0007 





7424 


0012 




MDX 


L 


READ1,36 




0009 





74FF 


0011 




MDX 


L 


CT.-l 


SKIP IF LDR IS IN 


OOOB 





70F4 






MDX 




LD22 




OOOC 





701F 






MDX 




LD36 




OOOD 





B008 




LD30 


CMP 




MSK5 


CK IF B5 OR B6 ON 


OOOE 





30FA 




W30FA 


DC 




/30FA 


LOADING ERROR OF LO 


OOOF 





70FE 






MDX 




W30FA 


* RELOAD PROGRAM 


0010 





70F0 






MDX 




LD25 


READY NOT ON 


0011 





0007 




CT 


DC 




7 




0012 




0000 






BSS 


E 







0012 





002C 




READ1 


DC 




44 




0013 





1601 






DC 




/1601 




0014 





0800 




DSW1 


DC 




/0800 




0015 





1700 






DC 




/1700 




0016 





0100 




MSK5 


DC 




/0100 





002C 



*************************************************** 

ORG 44 CARD 1 

* 

************************************************** 
* * 
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8B100020 
8B100030 
8B100040 
8B100050 
8B100060 
8B100Q70 
8B100080 
8B100090 
8B100100 
8B100110 
8B100120 
8B100130 
BB100140 
8B100150 
8B100160 
8B100170 
8B100180 
8B100330 
8B100340 
8B100350 
8B100360 
8B100370 
8B100380 
8B100390 
8B100400 
88100410 
8B100420 
8B100430 
8B100440 
8B100450 

8B100460 
8B100470 
8B100480 
8B100490 
8B100500 
8B100510 
8B100520 
8B100530 
8B100540 
BB10O550 
8B100560 
8B100570 
8B100580 
8B100590 
8B100600 
8B100610 
8B100620 
8B100630 
8B100640 
8B100650 
8B100660 
8B100670 
8B100680 
8B100690 
8B100700 
8B100710 
88100720 
8B100730 
8B100740 
86100750 
8B100760 
8B100770 
8B100780 
8B100790 
8B100800 
8B100810 
8B100820 
8B100830 
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002C 6100 
002D C007 
002E D1FF 

002F 7500 1000 

0031 1000 

0032 1010 

0033 D1FF 

0034 C400 FFFF 
0036 4C20 002F 



0038 71FF 



0039 1000 
003A 6D00 0126 
003C 7013 



0050 



0050 
0051 
0052 
0053 
0055 
0056 
0057 
0059 
005A 
005B 
005C 
005E 
005F 
0061 
0062 
0063 



0817 
0818 

C01D 

4CA0 0123 

0816 

0819 

4C04 0056 

1003 
4828 
6814 
4C02 0072 
C0A1 
4C28 OOFO 
1810 
D07A 
7010 



0064 

0065 

0066 

0067 

0068 

0068 

0069 

006A 

006B 

006C 

006D 

006E 



3000 
1084 
1088 
108C 
0000 
FFFF 
0480 
FFFF 
0481 
0000 
1600 
0001 



006F 07FF 

0070 0000 

0071 1701 

0072 30FB 

0073 70DE 

0074 



* 

* 
********* 

LD36 LDX 



4K TO 65K CORE SIZE DETERMINATION RTN 



LD 
STO 
* 

STGLP MDX 
NOP 
SLA 
STO 

* 

STGCK LD 

BSC 
* 
* 



******************** ********************* 
1 ° SET CONTROL INDEX 

STGCKfil GET CONSTANT FFFF & SET 
1 -1 IN MAXIMUM ADDRESS 



LI /1000 ADVANCE CONTROL INDEX 

SAFETY NOP FOR 32K CORE 

I 6 CLEAR ACCUMULATOR AND SET 

1 "I IN 4K CORE BLOCK MAX ADDR 

L /FFFF GET MAX CORE ADDRESS DATA 
L STGLP, Z CHECK IT FOR ZERO 

BRANCH LOOP IF NOT MAX 

MDX 1 -1 DECREMENT XI TO ACTUAL 

MAXIMUM ADDRESS THIS CPU 



mp SAFETY NOP FOR 32K CORE 

STX LI ULIM STORE MAX CORE SIZE 
. MDX RD05 BR TO CONTINUE 
************************************************** 
ORG 80 CARD 2 



R005 



RD20 



RD25 



I 



* THIS ROUTINE READS THE OBJECT CARDS 

* 

MSK 

MSK2 

DSW 

MLCD,Z 

READ 

DSW 

RD25.E 

3 

6Z 

DSW 

W30FB.C 

LD22 ' 

HB05.6Z 

16 

HEXSW 

SB05 



XIO 

XIO 

LD 

BSC 

XIO 

XIO 

BSC 

SLA 

BSC 

STX 

BSC 

LD 

BSC 

SRA 

STO 

MDX 



MASK 

MASK 2ND SET 

CK LAST CARD SW 

GO TO MONITOR IF ON 

READ A CARD 

CK READY 

XFER IF NOT READY 

ERR TO CARRY, LAST CD- BO 

IS LAST CARD ON 

SET LAST CARD SW 

ERROR BIT ON 



INDICATE BINARY CARD 



* 

K3000 
SL 



MSK 

MSK2 

READ 

ONE 

* 

RLBA 

* 

DSW 

* 

W30FB 



DC 

SLT 

SLT 

SLT 
BSS 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 

DC 
DC 

DC 
MDX 



/3000 

4 

8 

12 



/FFFF 

/0480 

/FFFF 

/0481 

LD22 

/1600 

1 

2047 


/1701 

/30FB 
RD20 



CONSTANT 



**KEEP AT /6F, BASE ADDRESS 
SENSE DSW £ LAST CD SW 



ERROR LIST ON IN DSW 



********************** **************************** 

ORG 116 CARD 3 
* 



8B100840 

8B100850 

8B100860 

8B100870 

8B100880 

8B100890 

8B100900 

8B100910 

8B100920 

8B100930 

8B100940 

8B100950 

8B100960 

8B100970 

8B100980 

8B100990 

8B101OOO 

8B101010 

8B101020 

8B101030 

8B101040 

8B101050 

86101060 

8B101070 

8B101080 

8B101090 

8B101100 

8B101110 

8B101120 

8B101130 

8B101140 

8B101150 ' 

8B101160 

8B101170 . 

86101180 

8B101190 

8B101200 

8B101210 

86101220 

8B101230 

8B101240 

8B101250 

88101260 

8B101270 

8B10128O 

8B101290 

8B10L300 

8B101310 

8B101320 

8B101330 

8B101340 

88101350 

88101360 

8B101370 

88101380 

8B101390 

86101400 

8B101410 

86101420 

88101430 

88101440 

8B101450 
8 BID 1460 
8B101470 
8B101480 
88101490 
8B101500 
8B101510 



1ATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



170CT66 
415233A 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B1-3 
1 



)ATE 

nC NO. 



28FEB66 
415120 



01JUL66 
415178 



170CT66 
415233A 



15MAY67 
411731 



14N0V69 
431319 



3OJAN70 
431319A 



PROG ID 
PAGE 



0881-3 
1A 



F 
LI 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
RELOCATABLE DIAGNOSTIC LOADER (4K-65K CARDS) 



PART NO. 219645S 
PAGE 2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
RELOCATABLE DIAGNOSTIC LOADER (4K-65K CARDS! 



PART NO. 2196459 
PAGE 2A 





* Tl 


HIS RT 


PACKS BINARY 


DATA AND LEAVES IT IN 


8B101520 




* 


LOCATIONS 0000-0040- . 


8B101530 




* 








8B101540 


0074 61B8 


SB05 


LDX 


1 -72 




8B101550 


0075 6300 




LDX 


3 




8B101560 


0076 62FD 


SB06 


LDX 


2 -3 




8B101570 


0077 C26 8 


SB07 


LD 


2 SL63 




8B101580 


0078 D004 




STa 


SB10 




8B101590 


0079 C149 




LD 


1 73 


CDIN673 


8B101600 


007 A 18 DO 




RTE 


16 




8B101610 


007B C148 




LD 


1 72 


CDIN&72 


8B401620 


007C 1804 




SRA 


,4 




8B101630 


0Q7D 1000 


SB10 


SLA 







8B101640 


007E D300 




STO 


3 


COIN 


8B101650 


007F 7301 




MDX 


J 1 




8B101660 


0080 7101 




MDX 


11 




8B101670 


0081 7201 




MDX 


2 1 




8B101680 


0082 70F4 




MDX 


SB07 


FINISHED 


8B101690 


0083 7101 




MDX 


1 1 




8B101700 


0084 70F1 


* 


MDX 


SB06 




8B101710 
8B1O1720 




* THIS RT 


DETERMINES WHETHER THE DATA CARD IS 


8B101730 




* lc 


■ ABSOLUTE HDR CARD 


2n RELOCATABLE HDR CARD 


8B101740 




* 








8B101750 


0085 C102 




LD 


1 2 


CK FOR HDR CARDS 


8B101760 


0086 4C18 0050 




BSC 


L RD05,S- 


IGNORE BLANK CARD 


8B101770 


0088 E052 




AND 


LB20 




8B101780 


0089 9052 




S 


LB25 




8B101790 


008A 4C18 00E1 




BSC 


L ABHED.t- 


BCH IF ABSOL HEAD CARD 


8B101800 


008C 904F 




S 


LB25 




8B101810 


008D 4C18 OODF 


* 


BSC 


L RLHED.S- 


BCH IF RELOC HEAD CARD 


8B101820 
8B101830 


008F 7400 00D8 




MDX 


L SWtO 




8B101840 


0091 7005 


* 


MDX 


TAKE 




8B101850 
8B101860 


0092 C100 




LD 


1 


GET CARD ADRS 


8B101870 


0093 BODO 




CMP 


K3000 


CMP 3000 


8B101880 


0094 B068 




CMP 


K74FF 


GRTR 3000 CMP 74FF 


8B101890 


0095 7001 




MDX 


TAKE 


LESS 3000 SAME GRTR 74FF 


8B101900 


0096 704C 




MDX 


PASS 


EQUAL 3000 SAME LESS 74FF 


8B101910 


0097 6840 


TAKE 


STX 


SW 


LOAD PROGRAM 


8B101920 




*********** 


:****************************** *****$**.(; 


8B101930 


0098 


* 


ORG 


152 


CARD 4 


8B101940 
8B101950 


0098 C040 




LD 


CDCT 




8B101960 


0099 62CA 




LDX 


2 -54 




8B101970 


009A 8236 


HSCK 


A 


2 54 




8B101980 


009B 4802 




BSC 


C 




8B101990 


009C 80D1 




A 


ONE 




8B102000 


009D 7201 




MDX 


2 1 




8B102010 


009E 70FB 




MDX 


HSCK 




8B102020 


009F 80CE 




A 


ONE 




8B102030. 


OOAO 4820 




BSC 


2 




8B102040 


OOAl 30F9 


W30F9 


DC 


/30F9 


CHECK SUM ERROR 


8B102050 


00A2 C102 




LD 


1 2 


GET CDINC2 


8B102060 


00A3 E036 




AND 


LB15 




8B102070 


00A4 D039 




STO 


PCAM 




8B102080 


00A5 4818 




BSC 


£- 


SKIP IF NOT XFER CARD 


8B102090 


00A6 703F 


* 


MDX 


XFRCD 


BRANCH TO XFER RT 


8B102100 
8B102110 




* THIS RT 


PLACES DATA FIELDS INTO THE CORRECT 


8B102120 




* ( 


:ORE LOCATIONS ANY 


ADDS IN A RELOCATION 


8B102130 




* 


FACTOR 


IF REQUIRED. 




8B102140 




* 








8B102150 


00A7 6209 




LDX 


2 9 


SET FOR 1ST DATA WD 


8B102160 


00A8 6100 


LB06 


LDX 


1 




8B102170 


00A9 C033 




LD 


HEXSW 


CK FOR EOIT CARD 


8B102180 


OOAA 1007 




SLA 


7 




8B102190 



OOAB 

OOAD 

OOAE 

OOAF 

OOBO 

00B1 

00B3 

00B5 

00B6 

00B7 

00B8 

00B9 

00 B A 

OQBB 



4CA8 0124 

6A06 

C100 

8077 

D100 

668Q 0000 

C500 0000 

0200 

6A72 

C071 

F06D 

482Q 

7002 

30FC 



OOBC 

OOBC 
OOBD 
OOBE 
OOBF 
0OC1 
00C2 
00C3 
00C5 
00C7 
00C8 
00C9 
OOCA 
OOCB 
OOCC 
OOCE 
OOCF 
OODO 
O0D1 
00D2 
00D3 
0004 
0005 
00D6 
00D7 
0OD8 
00D9 
OODA 
OODB 
OODC 
OODD 
OOOE 



70FE 
7201 
7101 

74FF OODE 
70F1 
C01A 

4C28 0050 
6780 0000 
62FA 












6108 

C209 

1002 

D209 

4C02 00D4 

7301 

71FF 

70F8 

7201 

70F5 

700F 

C300 

8051 

D300 

70F6 

0000 

0000 

003F 
OF 00 
0100 
0000 
0000 



OODF C045 

OOEO 

OOEO 908E 



00E1 D045 
00E2 69F6 
00E3 7401 00D9 
00E5 6050 



00E6 C100 
00E7 8086 



BSC 

STX 

LD 

A 

STO 

LDX 

LB10 LD 
STO 
STX 
LD 
EOR 
BSC 
MDX 

W30FC DC 



I MECD,£Z 
2 LB1061 
1 
UPPER 

1 

12 LD22 
LI 

2 

2 TEMP 
TEMP 
ULIM 
Z 

0VER1 
/30FC 



XFER IF EDIT CARD 



STO IN COIN 



CK FOR ECEEDING CORE 



ERROR EXCEEDED CORE SIZE 



******************** ****************************** 



ORG 188 
* 

MD* W30FC 

0VER1 MDX 2 1 

MDX 1 1 

MDX L PCAM.-l 

MDX LB10 

LD HEXSW 

BSC L RD05,6Z 

RLDAT LDX 13 LD22 

LDX 2 -6 

LDX 1 8 

CKFLD LD 2 9 

SLA 2 

STO 2 9 

BSC L RLCATtC 

INCRE MDX 3 1 

MDX 1 -1 

MDX CKFLD 

MDX 2 1 

MDX CKFLD-1 

MDX PASS 

RLCAT LD 3 

A UPPER 

STO 3 

MDX INCRE 

SW DC /OOOO 

CDCT DC 

LB15 DC /003F 

LB20 DC /OFOO 

LB25 DC /0100 

HEXSW DC 

PCAM DC 
* 

* THIS RT. HANDLES RELOCATABLE HDR CARDS. 

* 

RLHED LD NLOC COMPUTE RELOC FACTOR 

****** ************** ^^S^*****************,^,^,^ 

ORG 224 CARD 6 
* 

S RLBA 

* 

* THIS RT. HANDLES ABSOLUTE HDR CARDS. 
* 

ABHED STO UPPER 

STX 1 CDCT 

PASS MDX L CDCT.l INCR CARD COUNT 

LDX 80 
* 

* THIS RT. HANDLES BINARY AND HEX XFER CARDS 

* 



CARD 5 



SKIP IF WORD COUNT ZERO 



SET X3 TO START ADDR 
SET FOR 6 CONTROL WD 
8 LOCS PER WD 
GET RELOC CONTROL 



BRANCH IF RELOC FIELD 

TEST FOR CNTRL WD END 

NO 

TEST FOR FIN ALL WDS 

NO 

ADD IN RELOCATION FACTOR 



IF ZERO CK FOR WAITS-TRAPS 



WORD COUNT 



XFRCD LD 
A 



1 
ONE 



8B102200 

8B102210 

8B102220 

8B102230 

8B102240 

8B102250 

8B102260 

8B102270 

8B102280 

8B102290 

8B102300 

8B102310 

8B102320 

8B102330 

8B102340 

8B102350 

8B102360 

8B102370 

8B102380 

8B102390 

8B102400 

8B102410 

8B102420 

8B102430 

8B102440 

8B102450 

8B102460 

8B102470 

8B102480 

8B102490 

8B102500 

8B102510 

8B102520 

8B102530 

8B102540 

8B102550 

8B102560 

8B102570 

8B102580 

8B102590 

8B102600 

8B102610 

8B102620 

8B102630 

8B102640 

8B102650 

8B102660 

8B102670 

8B102680 

8B102690 

8B102700 

8B102710 

8B102720 

8B102730 

8B102740 

8B102750 

8B102760 

8B102770 

8B102780 

8B102790 

8B102800 

8B102810 

8B102820 

8B102830 

8B102840 

8B102850 

8B102860 

8B102870 



1ATE 


28FEB66 


01JUL66 


170CT66 


15MAY67 


14N0V69 


30JAN70 


EC NO. 


415120 


415178 


415233A 


411731 


431319 


431319A 
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00E8 





803E 


00E9 





D03B 


OOEA 





C103 


OOEB 





803B 


OOEC 





69EB 


OOED 





D001 


OOEE 





4C00 0000 



OOFO 





61AF 


00F1 





DOEB 


00F2 





1810 


00F3 





DOEA 


00F4 





1810 


00F5 





DO 32 


00F6 





C151 


00F7 





1001 


OOFS 





4828 


00F9 





682E 


OOFA 





7101 


OOFB 





7006 



OOFC 6201 
OOFD 74FF OODE 
OOFF 70A8 

0100 C2FF 

0101 70E9 

0102 6204 

0103 1004 



0104 

0104 
010b 
01 06 
01 OH 
0]09 

030A 
010B 
01UC 
010E 
010F 
0111 
0112 
0113 
0114 

0115 
0116 
0117 
0118 
0119 
OilB 
OHO 
011E 
011F 
0121 



D025 
C151 
4C18 OOFC 



6300 
4828 

7309 

1003 

4C18 0115 

7301 

4C28 0113 

1001 

70FB 

6B15 

C014 

E814 

7101 

72FF 

70EA 

6780 OODE 

7400 0128 
8009 
D300 

7401 OODE 
70D2 



0122 30F8 

0123 0122 

0124 Q122 

0125 07FF 



XFR2 



A 

STO 

LD 

A. 

STX 

STO 

BSC 



UPPER 

NLOC 

3 

UPPER 

SW 

XFERS1 





SET NEXT AVAIL LOC 
SET UP TO XFER 

CLEAR SW 



XFER 
* 

* THIS RT CONVERTS HEX TO BINARY AND LEAVES I 

* IN LOCATIONS 0000-0O10 , FIELDS ARE RELOCATED 

* IF REQUIRED. 
# 
HBO 5 



HB06 



LDX 

STO 

SRA 

STO 

SRA 

STO 

LD 

SLA 

BSC 

STX 

MDX 

MOX 



1 -81 

HEXSW 

16 

PCAM 

16 

RLREQ 
1 81 

1 

6Z 

RLREQ 
1 1 

HB07 



SET FOR HEX OR EDIT CD 



CK FOR RELOC FIELD 



LDX 



* THIS RT 

* la DA 
* 

LH05 
K74FF MOX 

MOX 

LO 

MOX 

LDX 

SLA 



DETERMINES WHETHER A HEX CARD IS A 
TA CD 2n EDIT CD 3n XFER CARD . 



HB07 
HB10 

ORG 

STO 
LD 
BSC 
LDX 
BSC 
MDX 
SLA 
BSC 
MDX 
HT0B1 BSC 
SLA 
MDX 
STX 
LD 

OR 
MDX 
MDX 
MDX 
LDX 
MDX 
A 

STO 
MDX 
MDX 
* 

W30F8 DC 
* 

MLCD DC 
MECD DC 
NLOC DC 



2 1 
L PCAM.-l 

LB06 
2 -1 

XFR2 
2 4 

4 



SET X2 # CDINS1 



COIN 

BRANCH TO XFER RT 



HTBX 



HTBZ 



260 

TEMPI 
1 81 
L LH05»6- 
3 

GZ 
3 9 
3 
L HTBZ, 6- 

3 1 
L HTBX,£Z 
1 

HT0B1-1 
3 TEMP 
TEMP 

TEMPI 

1 1 

2 -1 
HB10 

13 PCAM 
L RLREQ, 
UPPER 

3 

L PCAM,1 
HB06 

/30F8 

W30F8 
W30F8 
/07FF 



CARD 7 

CDING81 

CONVERT 1 HEX CtIL TO BIN 
SKIP IF NOT A-F 
ADD 9 FOR ALPHA 
ELIMINATE ZONE BITS 
XFER IF HEX CHAR # 

XFER IF BIT IS FOUND 
PREPARE TO LK AT NEXT BIT 

LOAD BINARY BITS 

ADD TO PREVIOUS CHARS 



EDIT CARD ERROR 

**KEEP AT /123» CHG BY USER 
**KEEP AT /124, CHG BY USER 
**KEEP AT /125, NEXT LOCATIO 



8B102880 
8B102890 
8B102900 
8B102910 
8B102920 
8B102930 
8B102940 
8B1Q2950 
8B102960 
8B102970 
8B102980 
8B102990 
8B103000 

8B103010 
8B103O20 
8B103030 
8B103040 
8B103050 
8B103060 
8B103070 
8B103080 
8B103090 
8B103100 
8B10311O 
8B103120 

8B103130 
8B103140 
8B103150 
8B103160 
8B103170 
8B103180 
8B103190 
8B103200 
8B103210 
8B10322O 
8B103230 
8B103240 
8B103250 
8B103260 
86103270 
8B103280 
8B103290 
8B103300 

8B103310 
8B103320 
8B103330 
8B103340 
8B103350 
8B103360 
8B103370 
8B103380 
8B103390 

8B103400 
8B103410 
8B103420 
8B103430 
8B103440 
8B103450 
8B103460 
8B103470 
8B103480 
8B103490 
8B103500 
8B103510 
8B103520 
8B103530 
8B103540 
8B103550 
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0126 

0127 

0128 



1000 
0000 
0000 



ULIM DC /1000 **KEEP AT /126, UPPER LIMIT 

d?bI£ *£ /000 ° **KEEP AT /127, UPPER LIMIT 

RLREQ DC /OOOO I COUNTER STORAGE 

TEMP DC /OOOO TEMP STORAGE 

TEMPI DC /OOOO TEMP STORAGE 

0000 END LD22 TRANSFER TO START 
STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



0129 OOOO 
012A OOOO 

012C 

NO 



8B103560 
8B103570 
8B103580 
8B103590 
8B103600 
8B103610 
8B103620 



1ATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



170CT66 
415233A 



15MAY67 
411731 



14N0V69 
431319 



30JAN70 
431319A 
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EC NO. 
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431319 



30JAN70 
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ABHEO 


00E1 


008A 






CDCT 


0009 


0098 O0E2 


00 E 3 




CKFLD 


00C9 


OODO O0D2 






CT 


0011 


0009 






DSW 


0070 


0052 0056 


005B 




DSW1 


0014 


0001 0004 






HB05 


OOFO 


005F 






HB06 


00F4 


0121 


l': f ' ''-. '..-.' ■ V 




HB07 


0102 


OOFB . 






HBIO 


0103 


0118 






HEXSW 


00 DO 


0062 00A9 


00C2 OOFl 




HSCK 


009A 


009E 






HTBX 


0113 


010F 






HTBZ 


0115 


010C 






HT0B1 


010F 


0112 






INCRE 


OOCE 


00 D7 






K3000 


0064 


0093 






K74FF 


OOFD 


0094 






LB06 


00A8 


OOFF 






LB10 


00B3 


OOAD 00C1 






L815 


OODA 


00A3 






LB20 


00 DB 


0088 






LB25 


OODC 


0089 008C 






LD22 


0000 


OOOB 005E 


006C 00B1 00C5 


012C 


LD25 


0001 


0002 0010 






LD30 


OOOD 


0006 






LD36 


002C 


000 c 






LH05 


OOFC 


0106 






MECD 


0124 


OOAB 






MLCD 


0123 


0053 






MSK 


0068 


0050 






MSK2 


006A 


0051 






MSK5 


0016 


OOOD 






NLOC 


0125 


OOOF O0E9 






ONE . . 


006E 


009C 009F 


00 E7 




0VER1 


OOBD 


00 B A 






PASS 


00E3 


0096 00D3 






PCAM 


OOOE 


00A4 OOBF 


00F3 OOFD 0119 


011F 


RD05 


0050 


003C 0086 


00C3 




RD20 


0052 


0073 






RD25 


0056 


0057 






READ 


006C 


0055 






REA01 


0012 


0000 0007 






RLBA 


006F 


OOEO 






RLCAT 


00 D4 


OOCC 






RLDAT 


00C5 








RLHED 


00 DF 


008D 






RLREQ 


0128 


00F5 00F9 


Q11B 




SB05 


0074 


0063 






SB06 


0076 


0084 






SB07 


0077 


0082 






SB10 


007D 


0078 






SL 


0065 


0077 






STGCK 


0034 


002D 






STGLP 


002F 


0036 






SW 


00 D8 


008F 0097 


OOEC 




TAKE 


0097 


0091 0095 






TEMP 


0129 


00B6 00B7 


0113 0114 




TEMPI 


012A 


0104 0115 






ULIM 


0126 


00 3A 00 B8 






UPPER 


0127 


OOAF 00D5 


00E1 00E8 OOEB 


011D 


W30FA 


OOOE 


0005 OOOF 


30FA 




W30FB 


0072 


005C 30FB 






W30FC 


00 BB 


OOBC 30FC 






W30F8 


0122 


0123 0124 


30F8 




W30F9 


00A1 


30F9 






XFER 


OOEE 


OOED 






XFRCD 


00E6 


00A6 
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1. PURPOSE 

THE TIMER FUNCTION TEST IS USED TO DETERMINE WHETHER THE INTERVAL TIME* 
CIRCUITS IN THE 1801 OR J 802 PROCESS/CONTROLLER ARE OPERATING PROPERLY. 
TIMER STEPPING, TIMER INTERRUPTS, DSW, AND ILSW ARE TESTED. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE BASIC DIAGNOSTIC LOADER IS REQUIRED TO LOAD THIS PROGRAM. 

2.2 EQUIPMENT PREREQUISITES 

THE FOLLOWING EOk/IPMENT IS REQUIRED, 

A. 1800 PRDCESS0R/CONTROLLER. 

B. 1442 CARD READ/PUNCH OR 1054 PAPER TAPE READER. 

C. EITHER A 1053/1816 OR 1443 PRINTER. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

REFER TO 1600 BASIC DIAGNOSTIC LOADER DOCUMENTATION PARAGRAPH 3.1. 
FOR LOADING INSTRUCTIONS. 



3.2 

i 



OATE 
SC NO. 



PROGRAM OPERATION 

AFTER LOADING THE P.C. STOPS AT WAIT I (B R£G»3O0IS. 
WITH P.C. STOPPED AT WAIT I, PROCEED AS FOLLOWS, 



A. 
B. 
C. 
D. 
t. 

F. 



SET CHECK STOP SWITCH TO OFF. 

SET DISABLE INTERRUPT SWITCH TO OFF. 

SET WRITE STORAGE PROTECT SWITCH TO YES.- < i .<. %. ■ 

SELECT PROGRAM OP1IUNS. REFER TO TABLE 1 SECTION S.2 . 

IF LOOP ROUTINE IS DESIRED, REFER TO LOOP ROUTINE OPTION 

TABLE 2 SECTION 3.2 . 

DEPRESS START BUTTON. PROGRAM SHOULD START EXECUTION. 



I, 



2. 



4. 



IF LOOP ROUTINE OR LOOP PROGRAM WERE NOT SPEC1FIE0, ROUTINES 
1 THROUGH 6 WILL BE EXECUTED ONCE. THE PROGRAM WILL PRINT 
MESSAGE «*AQ02 PROGRAM COMPLETE.' 8 AND THEN STOP AT WAIT 2. 
(B REG'3002>. 

IF A ROUTINE WAS SELECTED FOR LOOPING, THEN THAT ROUTINE 
WILL LOOP UNTIL THE PROGRAM. IS TERMINATED, OR THE LOOP 
ROUTINE FUNCTION IS CHANGED OR CLEARED. IF THE LOOP ROUTINE 
FUNCTION IS CHANGED, THEN THE NEW ROUTINE SELECTION WILL BE 
LOOPED. IF THE LOOP ROUTINE FUNCTION IS CLEARED, THE PROGRAM 
WILL CONTINUE FROM THE PRESENT ROUTINE TO COMPLETION. 

IF LOOP PROGRAM WAS SELECTED, ROUTINES 1 THROUGH & WILL BE 
RUN IN .SEQUENCE IN A LOOP FASHION. AT THE END OF EACH 
PROGRAM PASS, MESSAGE «*A0Q3 PASS COMPLETE" WILL BE PRINTED. 

IF THE SCOPING ROUTINE WAS SELECTED, MESSAGE "A001 SCOPE 
RTN SELECTED* • WILL BE PRINTED, FOLLOWED BY MESSAGE **C002 
ENTER STARTING COUNT**. THE PROGRAM WILL STOP AT WAIT 5 
(ft RCG«30051. THE PRINTOUT EXPLANATIONS SHOULD BE CONSULTED 
FROM THIS POINT FOR THE OPERATION OF THE SCOPING ROUTINE. 
PRINTOUT SECTION 4.2 COMMAND MESSAGES. 
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TABLE 1 
PROGRAM OPTIONS - DATA ENTRY SWITCHES 

NOTE 
THE OPTIONS FOR SELECTING OUTPUT DEVICE, THE SCOPING ROUTINE, OR THE 
CORE SPEED WILL BE HONOREO ONLY IF THEY ARE ENTERED WHEN PROGRAM IS STOPPED 
AT WAIT 1 (B RtG«J001>. 

• OAIA ENTRY SWITCHES > OPTION DESCRIPTION * ^ 

• 1 2 3 4 S 6 7 8 9 10 11 12 13 14 15 • . 

• • •••... a 

• * • • ... 1 HALT ON ERROR • 

" ..... 1 BYPASS ERROR PRINT • 

• .... 1 LOOP ON ERROR • 

• ... 1 LOOP PROGRAM • 

• • 1 USE 1443 AS OUTPUT DEVICE • 

• • » SfcLECT SCOPING ROUTINE • 

• * 4 OSEC MACHINE • 

* ........„„..„„.. . # 

TABLE 2 
LOUP ROUTINE OPTION - SENSE/PROGRAM SWITCHES 

• PROGRAM/SENSE • DESCRIPTION * , 

•01234567* „ 

• . • . & 

• XX X... ROUTINE NUMBER TO LOOP. NUMBER MUST BE IN HEX. NUMBER HAT • 

• BE CHANGED AT ANY TIME. • 

r«............................... , , ■ • 

3.3 TERMINATING PROCEDURE 

IF THE L00P-PR06RAM, OR LOOP-ROUTINE OPTIONS ARE NOT SELECTED THE 
PROGRAM WILL BE EXECUTEO ONCE AND WILL STOP AT WAIT 2 FOLLOWING THE 
PROGRAM COMPLETE PRINTOUt. DEPRESSING THE START PUSHBUTTON WILL 
BRANCH THE PROGRAM TO WAIT I, WHICH IS THE BEGINNING OF THE PROGRAM. 

IF THE PROGRAM IS IN A LOOPING MODE, IT MAY BE TERMINATED BY. 

1. DEPRESSING THE STOP BUTTON. DEPRESSING RESET ANO START BUTTONS 
WILL RETURN PROGRAM TO WAIT 1. 

2. CLEARING THE. LOOP FUNCTION, TO ALLOW PROGRAM TO RUN TO ITS 
COMPLETION. 

3.4 RESTART PROCEDURE 

PRESS THE STOP, RESET AND START BUTTONS. THE PROGRAM SHOULD CO TO 
WAIT 1. IF THIS DOES NOT OCCUR, THE PROGRAM MUST BE RCLOAOEO. 

3.5 PROGRAM HALTS 

PROGRAM WAITS ARE USED IN THIS PROGRAM, AND ARE IDENTIFIED Bit 
REFERENCING THE B REG AND I REG. 

A PROGRAM WAIT IS OF THE FORM* 

3oxx, i a reo i. 
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A DESCRIPTION Of THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINNING OF THE. PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION FOLLOWS. 
IT IS INCLUDED TO SHOW THE FORMAT OF THE LISTING, AND IT IS NOT 
fcECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. 

*«••••••••••••••*•••«<>.••••.•••«•,> 3 . . ti9>9»M4c<4<t>i<iiie<iit:4«««iti ***«♦«*»•*»»« 

3001 01E0 DC WAIT1*1 

• WAIT 1 

e 

• ONE OF THE .METERED I/O UNITS 

• FAILED TO SEND A RESPONSE 

• INTERRUPT TO THE PROGRAM. INDEX 

• REGISTER 1 MLL HAVE THE ADDRESS 

• OF THE IOCC. THE AREA CODE KILL 

• INDICATE THE I/O UNIT NOT READY. 

• IF A 2*01/02 DRIVE IS NOT READY* 

• PROGRAM WILL NUT STOP AT WAIT 1. 



IIMIIIIKHIIIIIIIIIIIIlllHiiHiHMIIIIIIIIIIII 



««n«e««««e««»««fi3«^ 



B REG, I FIRST 4 DIGIT GROUP I CORRESPONDS TO B REG READING. 
I REG, I SECOND 4 DIGIT GROUP » CORRESPONDS TO i REG REA.D1NG. 



4. PRINTOUTS 



4.1 



THE VARIOUS PRINTOUTS THAT MAY OCCUR DURING EXECUTION OF THE TIMER 
FUNCTION TEST FOLLOW. 

STATUS MESSAGES 



A001 SCOPE RTN SELECTED 



THIS PRINTOUT INDICATES THAT THE SCOPE RTN HAS BEEN SELECTED AS A 
RESULT OF SETTING. ON DATA ENTRY SWITCH NO. 8 WHEN PROGRAM STOPPED AT 
WAIT I. 



DEPRESSING START 
AT THIS POINT 



A002 PROGRAM COMPLETE 

FOLLOWING THIS PRINTOUT PROGRAM STOPS AT feAlT 2. 
PUSHBUTTON CAUSES PROGRAM TO BRANCH TO WAIT 1. 
PROGRAM MAY BE REPEATED AGAIN. 

A003 PASS COMPLETE 

PRINTED AT THE END OF EACH PROGRAM PASS WHEN THE LOOP PROGRAR 
OPTICN IS SELECTED. 

4.2 COMMAND MESSAGES 

C001 RUN SCOPE RTN 

THIS PRINTOUT INSTRUCTS THE OPERATOR TO RUN THE PROGRAM IN SCOPE 
RTN, AND IS CAUSED IF THE CONTROL ROUTINE IS UNABLE TO DETERMINE 
TIMER INTERRUPT LEVEL DUE TO ALL TIMERS FAILING TO INTERRUPT, OR 
STEP. 
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C002 ENTER START1NC COUNT 



4.3 



DATA MESSAGES 



THIS PRINTOUT IS A SCOPE ROUTINE REQUEST FOR OPERATOR ACTION. 
ENTER THE OESIRSP STARTING COUNT IN THE DATA ENTRY SWITCHES. PUSH 
START AFTER ENTRY. 



DATA ENTRY SWITCHES DESCRIPTION 

I 2 3 * 5 6 7 8 9 10 11 12 13 14 15 • 
XXXXXXXXXX X X X X X X... DESIRED STARTING COUNT IN HEX 



C003 ENTER NUMBCR OF STEPS 



THIS PRINTOUT IS A SCOPE ROUTINE REOUEST FOR OPERATOR ACTION. ENTER 
THE OESIREO NUMBER OF STEPS IN THE DATA LKTRV SWITCHES. A COUNT OF 
"ZERO IS INVALID AND WILL CAUSE M.ESSACE C003 TO BE PRINTED AGAIN. 
PUSH START AFTER ENTRY. - ' 



DATA EKTRV SWITCHES DESCRIPTION 

1 2 3 * 5 6 T 8 9 10 11 12 15 14 15 • 
XXXXXXXXXX X It X X X X... OESIREO NUMBER OF STEPS IN HEX 



COO* ENTER TIMER NUMBER 



- ~r«* ~ • 



THIS PRINTOUT IS A SCOPE ROUTINE REOUEST FOR OPERATOR ACTION. ENTER 
THE DESIRED TIMER SELECTION IN OATA ENTRY SWITCHES. ONLY I TIMER AT 
A TIME HAY BE SELECTED. TIMER C IS USEO IF NO ENTRY IS MADE. CLEAR 
ALL UNUSED SWITCHES. PUSH START AFTER ENTRY. 



DATA ENTRY SWITCHES DESCRIPTION 

0123*56789 10 II 12 13 1* 15 • 

I. RW* TIMER C 

1 0. RUN TIMER 8 

1 O................ "UN TIMER A 

I. CHANGE INPUT PARAMETERS. ISEE NOTE II 

NOTE 1. AFTER ROUTINE IS LOOPING, AND IT IS DESIRED TO CHANGE STARTING 

COUNT. NUMBER 0+ STEPS, OR TIMER NUMBER, SET SWITCH 2 ON. ROUTINE 
RESTARTS AND PRINTS MESSAGE C002. 



LOOS REPAIR FAILURE BEFORE CONTINUING 

PRINTED FOLLOWING ERRORS EOOB AND EOOC. PROGRAM GOES TO WAIT 1 
AFTER THIS PRINTOUT TO ALLOW CE TO SELtCT SCOPING ROUTINE. ERRORS 
EOOB AND EOOC CAN CAUSE PROGRAM TO LOOSE CONTROL OR INDICATE FALSE "* 
ERRORS. 
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0001 TIMERS ON INTRP LEVEL XX 



4.4 



THIS PRINTOUt INDICATES THE INTERRUPT LEVEL OF ThC TIMERS. XX WILL 
BE THE ACTUAL INTERRUPT LtVEL NUMBER, IN DECIMAL. 

ERROR MESSAGES 



E001 SEQUENCE ERROR 



THIS PRINTOUT OCCURS WHEN THE ROUTINE JUST RUH ODES NOT AGREE WITH 
THE ROUTINt SELECTED BY THE CONTROL ROUTINE. 



E002 TIMtRS FAIL TO STEP 



THIS PRINTOUT OCCURS WHFN THf CONTROL SECTIQM IS UNA8LE TO 

DtTtKMINE THE TIMlR INTERRUPT LEVEL DUE TO TI"E»S WOT STEPPING. THIS 

IS FOLLOWtD BY A "RUN MANUAL KODC • • PRINTOUT. 

E003 TIMERS FAIL TO INTRP 

THIS PRINTOUT OCCURS WHEN THE CONTROL SECTION IS UNABLE TO DETERMINE 
THE TIMER INTERRUPT LEVEL DUf TQ TIMERS FAILING TO INTERRUPT. THIS 
PRINTOUT IS FOLLOWED BY A "RUN MANUAL MODE • • PRINTOUT. 

ECO* RTN 2 TIMER X FAILED TO TURN ON 

THIS PRINTOUT RESULTS IF A TIMER (A, B, OR CI FAILS TO STEP AFTER 
BEING TURNED ON. 10 CONSECUTIVE PRINTOUTS MAY RESULT, -AS~19 TRIE*"**" 
ARE MADE ON EACH TIMER. 

6005 P.TN 2 TIMER X FAILED TO TURN OFF 

THIS PRINTOUT RESULTS WHEN A TIMER IA, B. OR CI CONTINUES TO STEP 
4FTER A TURN OFI COMMANO. 10 CONSECUTIVE PRINTOUTS ARE POSSIBLE. 

£006 RTN 3 TIMER X FAILED TO INTRP 

THIS PRINTOUT OCCURS WHEN A TIMER CA, B, OR CI FAILS TO INTERRUPT. 

EOOT RTN 3 TIMER X DSW XXXX 

THIS PRINTOUT OCCURS WHEN THE -DSW BIT FOR THE . I«*3IC*TED TIMER (A, B» 
""■'* '•' OR CI IS IN ERROR. 

E008 RTN 3 TIMER X ILSW XXKX 

ONE PRINTOUT FOR. EACH TIMER WILL OCCUR IF THE ILS* BIT IS NOT THE 
SAME FOR ALL TIHSRS. 

E009 RTN 4 TIMER X WAS XXXX SHOULD BE XXXX 

THIS PRINTOUT OCCURS WHEN EXPECTED AND ACTUAL TIMER COUNTS DO NOT 
.. . . AGREE. _.: - 
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E00A RTN 5 TX WAS XXXX EXPCTD XXXX PASS K 

THIS PRINTOUT OCCURS WHEN EXPECTED AND ACTUAL TIMER COUNTS DO NOT 
AGREE. PASS t 13 RUN WITH INTERRUPT 0FF t PASS 2 IS RUN WITH IHTERUPT 
ON. 

EGOB RTNl DOUBLE INCH OF I CTR DURING TMR X CS CYCLE 

THE DESIGNATED T|MER CAUSED THE I COUNTER TO BE INCREMENTED DURING 
THE SECOND TIMER CYCLE STEAL CYCLE. THIS PRINTOUT HILL BE FOLLOWED 
BY MESSAGE COOS. 

EOOC ILLEGAL RTN ENTRY 

A ROUTINE NUMBER OF 7 WAS ENTERED INTO PROGRAM SWITCHES 5, 6, AND ?. 
SEVEN IS AN INVALID ROUTINE NUMBER. PROGRAM RETURNS TO WAIT I AFTER 
THIS PRINTOUT. 
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tOOD RTN3 TIMER X ILSU MAS 2ERO 



WHILE CHECKING THE DESIGNATED TIMERt AN INTERRUPT WAS RECEIVED ON " 
THE TIMER INTERRUPT LEVtL AND THE ILSW WAS BLANK. 

EOOE RTNl A REG CHANGED ON TIMR X CS CYCLE 

THE CONTENTS 01 THE A REGISTER WERE DESTROYED DURING THE DESIGNATED 
TIMER CYCLE STEAL CYCLE. THE A KEG IS LOADED TO FFFF PRIOR TO 
TURNING THE TIMER ON. 

EOOF RTN6 TIMER X FAILEO TO INCREMENT 

THE TIMER SPECIFIED FAILED TO INCREMENT WITHIN TO MSEC. AFTER BEING 
TURNED ON. THE TIMERS ARE STORAGE PROTECTED DURING THIS CHECK. 

EOIO RTN6 SPV INTKPT ON TIMER K CS CYCLE 

A STORAGE PROTECT VIOLATE INTERRUPT WAS RECEIVEO DURING THE 
DESIGNATED TIMER CYCLE STEAL CYCLE. TIMERS ARE STORAGE PROTECTED 
DURING THIS CHECK. 

EOIl RTN6 NO INTRP ON VIOLATE TIMER X 

A STORE INSTRUCTION WAS ISSUEO TO THE DESIGNATED PROTECTEO TIMER. 
A STORAGE PROTECT VIOLATE INTERRUPT 010 NOT OCCUR. 

5. COMMENTS 

THE TIMER FUNCTION TEST CONSISTS OF A CONTROL ROUTINEt SIR TEST 
ROUTINESt AND A SCOPING ROUTINE. 

THE CONTROL ROUTINE DETERMINES THE TIMCR INTERRUPT LEVEL AND OUTPUTS 
THE INFORMATION FOR OPERATOR OBSERVATION. THE CONTROL ROUTINE ALSO 
SEQUENCES THE TESTING ROUTINES AND ACCOMPLISHES THE PROGRAM OPTIONS 
SPECIFIED BV THE OPERATOR. 
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DATE 
EC NO. 



ROUT INC 1 CHECKS FOR DOUBLE INCREMENTING OF THE I COUNTER* AND FOR 
* CHANGE IN A KEC CONTENTS DURING A TSHER CS. CYCLE. IF EITHER OF 
THESE PAILUKES OCCURS, THE ERROR PRINTOUT IS FOLLOWED BY A MESSAGE 
INSTRUCTING THE CE TO REPAIR THE FAILURE BEFORf CONTINUING. THIS IS 
OONfc SINCE EITHER OF THESE FAILURES CAN CAUSE THE PROGRAM TO LOOSE 
CUN1R0L OR INDICATE FALSE ERRORS. IF IT IS DETERMINED BY THE CONTROL. 
ROUTINE", THAT ANY TIMER FAILS TO INTERRUPT, THEM THAT TIMERIS! WILL 
NOT HE CHECKED IN ROUTINE 1. 

ROUTINE 2 CHECKS THE ON-GFF ACTION OF ALL THREE TIMERS. EACH TIMER IS 
CHECKED 10 TIMES. 

ROUTINE 3 CHECKS THE TIM.ERS FOR INTERRUPT, DSW, ANO ILSW. 

ROUTINE 4 CHECKS THE TIMERS FOR PROPER STEPPING. EACH TIMER IS 
ALLOWED TO STEP 50 TIMES WITH 16 DIFFERENT STARTING COUNTS. 

ROUTINE 5 IS A TWO PASS ROUTINE. THE FIRST PASS IS WITH TIMER 
INTERRUPT OFF, ANO THE SECOND PASS IS TIME-R INTERRUPT ON. ALL TIMERS 
ARE' RUN TOGETHER, ANO EACH ONE IS CHECKED FOR PROPER STEPPING FOR 
1000 STEPS. 

ROUTINE 6 CHEC«i THE TIMERS WHILE STORAGE PROTECTED. EACH TIMER IS " 
CHECKED TO INSURE IT INCREMENTS WHILE STORAGE PROTECTED WITHOUT 
CAUSING A STORAGC PROTECT VIOLATE ERROR. THE CHECK IS HADE 10 TIMES 
PER TIMER. A FURTHER CHECK IS MADE TO IMSURE AN SPV INTERRUPT DOES 
OCCUR WHEN TRYIHfr TO STORE INTO A PROTECTEO TIMER. 

THE SCOPING ROUTINE ALLOWS THE OPERATOR TO SELECT A TIMER IA,B, OR CI 
STARTING COUNT, AND THE NUMBER OF STEPS THE TIMER SHOULD BE STEPPED. 
AFIER ALL DATA IS ENTERED, AND THE START BUTTON HAS BEEN DEPRESSEDi 
THE ROUTINE «ILL LOOP UNTIL DATA ENTRY SWITCH 2 IS TURNED 
ON, AT WHICH POINT THE ROUTINE RETURNS TO WAIT 5. ONLY ONE TIMER 
MAY BE RUN AT A TIME. IF A TIMER NUHBER IS NOT EMTEREOt TIMER C Will 
BE USEO. ,. 
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02BC 



3001 0147 



3002 0187 



3003 0195 



3004 03D0 



3005 0460 



3006 046* 



ABS 

ORG 



DC 



DC 



OC 



OC 



OC 



/3001 

•• PROGRAM WAITS •• 

WTl»l WAIT 1 

WAIT OCCURS AFTER PROGRAtf- 
HAS LOADED. ENTER PROGRAM 
OPTIONS IN DATA ENTRY SMS. 
AND DEPRESS START. 

WT2«-1 WAIT 2 

PROGRAM RAN TO COMPLETION. 
DEPRESSING START RETURNS 
PROGRAM TO WAIT 1. 

WT3*1 WAIT 3 

PROGRAM SEQUENCE ERROR. 
SUPERVISOR SECTION OF 
PROGRAM OECTEO AN ERROR 
IN ROUTINE SEQUENCING. 
OEPRESS START TO PETURfc * 
TO WAIT I. 

WT4*1 WAIT 4 

TIMER C FAILED TO INTER- 
RUPT IN ROUTINE 4. 



OC 



WT5*1 



WT6>1 



* 



3007 0474 



OC 



MT7*1 



3008 O 01E7 



3009 053* 



OC 



.OC 



WAIT 5 

SCOPE ROUTINE WAIT. ENTER 
-STARTING TIMER COUNT IN 
DATA ENTRY SWITCHES. PUSH 
START BUTTON. 

« 

WAIT * 

SCOPE ROUTINE WAIT. ENTER 
NUMBER OF OESIREO TIMER 
STEPS IN DATA ENTRY SWITCH 
CEPRESS START BUTTON. 

WAIT 7 

SCOPE ROUTINE WAIT. ENTER 
TIMER NUMBER IN DATA ENTRY 
SWITCHES. 

• 

BIT 4 • TIMER A 
BIT 5 - TIMER 8 
BIT 6 • TIMER C 

• r 

CLEAR ALL UNUSED BIT SWS. 
DEPRESS START TO CONTINUE. 

WT8*1 WAIT 8 

WAIT FOR TIMER INTERRUPT 
IN ROUTINE I. 

WT9«1 WAIT * 

HALT ON ERROR REQUESTED. 
PUSH START TO CONTINUE. 
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WTA+1 WAIT A 

1443 NOT READY. HAKE READY 
AND PUSH START. 


6B200690 
8B200700 

8B200710 
8B200720 






3008 


0553 


# 

• 

* 
* 
• 

» 


DC 




WTB*1 WAIT B 

1443 BUSY. THIS IS AN 
ERROR CONDI TICN. DETERMINE 
CAUSf,THEN PUSH START TO 
CONTINUE. 
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MTC*1 WAIT C 

1053/1C16 NUMBER 1 NOT 
PEADY. MAKE 1053/1816 
READY AND DEPRESS START. 
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WTD*i WAIT 

DSW FAILED TO RESET AFTER 
INTERRUPT IN ROUTINE 2. 
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WTE»1 WAIT E 

*N INTERNAL INTERRUPT WAS 
RECEIVED. THE S CTR. AT 
INTERRUPT IS IN THE S RFG. 
THE ILSW IS IN THE A REG. 
DEPRESS START BUTTON TO 
RESTART THE PROGRAM. 


88200920- - 

88200930 

8B200940 

88200950 

8B200960 

3B200970 

8B20C980 

88200990 

88201006 




< 


300F 


060C 


• 


OC 




WTF«-1 WAIT F 

INTERNAL INTERRUPT, OTHER 


SS201010 

ee2oio20 

SB201030 




1 > 






• 






THAN SPV WAS RECEIVED 


86201049 








• 




, 


DURING ROUTINE 6. I COUNT 


88201050 










• 






IS IN REG. ILSW IN A REG 


8B201060 










• 






PRESS START TO RESTART 


88201070 




1 J 






• 






PROGRAM. 


8B201080 










• 








88201090 






3010 




• 


0R6 




300 


8B201100 
8B2O1110 




< 


012C 


B200 


• 
• 
• 
• 
• 


DC 




/B200 PIO 

• TIMER FUNCTION TEST * 

• *• TIMFT *• 

• • 


88201120 
8B20113S 
88201149 
8B201150 
8B201160 
6B201170 






* 




• 






****«•»**•*« <t»****S **»#■» $3 


8B201180 




■> 






• 








8B201190 








• 








8B201200 






0120 


1010 


TISRT 


SLA 




16 


68201710 






012E 00 


04000181 




STO 


L 


RTNNO CLR ROUTINE NUMBER 


8B201220 






W3D 00 


D40003E5 




STO 


t 


INTSW TlEAR" INTERRUPT SW 


88201230 






0132 00 


04000214 




STO 


i 


TIHA »ANO INOP INDICATORS 


83201240 


* 




0134 00 


04000215 




STO 


L 


TIMA+1 


8B201250 






0136 00 


D4000216 




STO 


i 


TIMA*2 


86201260 






0138 00 


D4000213 




STO 


i 


ERRS* 


8B201270 




■> 






• 








88201280 




013A 


611F 


CTL01 


LOS 


1 


31 


88201290 






013B 00 


05000003 




STO 


ti 


/O0Q3 CLEAR INTERVAL TIMER 


8 B2 01300 




"*\ 


0130 


7 IFF 




MOX 


i 


-I AND INTERRUPT LOCATN 


88201310 




1 


013E 


70FC 


9 


MDX 




CTLOl+l 


6B201320 
88201330 






013F 


C666 




LOO 




RESRT SET RESTART INSTRUCN 


88201340 




y 


0140 00 


DCOOOOOO 




STO 


L 


/0009 


88201350 




\ 






* 








83201360 




~\ 


DATE 


28FE666 


©IHAY&6 


04N0V66 


PROS IS 


©862-S 




EC NO 


415120 


415120A 


415233 


PAGE 


1A 



; > i ■ '. ; kj \ ) k.) ' ) ' > ' j j. ; yj kj \j kj \ > ! . ■ -• > \\ > i j * j \ > k > \ • \ > \ .< \ • v > < ■• < •■ > ■ \ < w v. ■ • 

ooooooocooooooooocoooooooocooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTE» 
INTERVAL TIKER FUNCTION TEST 



0142 10A0 

0143 C05F 

0144 00 04000008 

0146 3001 



014? 

0148 

0149 

014A 

014B 

014C 

0140 

014E 

014F 

0150 00 

0152 00 

01 5t 00 















0864 

C067 

188B 

1010 

1081 

0067 

1084 

100F 

D063 

2C4Q0004 

2C400Q05 

2C400006 



0156 C059 

0157 10C8 
015S 00 4C280179 



015A 00 440004A0 



015C 00 
01SE 00 

0160 

0161 

0162 00 
0164 
0165 
0166 
0167 









0168 
0169 
016A 
0168 
016C 
0160 
016E 



0C00O26A 

OC00026C 

621A 

C.042 

D6000008 

72FF 

70FC 

0641 

0842 

0845 
£038 
1808 
4808 
7002 
0043 
7006 



016F C041 

0170 9030 

0171 4818 

0172 7008 

0173 00 74010181 
0175 CO 658001B1 
017? 00 4080019S 



0179 00 4400053C 
0178 0710 



017C 00 4C000456 



ft 



TE 



28FEB66 



120 



SLT 

to 

STO L 
Tl WAIT 



XIO 

LD 

SRT 

SLA 

SLT 

STO 

SLT 

SLA 

STO 

STS 

STS 

STS 

LO 
SLA 

BSC 



• 



32 

C0NST*2 
/D008 



asw 

8 SUA 

11 

16 

1 

SPEED 

4 

15 

OP I NO 

4./40 

5, MO 

&./40 

BSWA 

8 

CTL03.+2 



CLEAR A AND S 

SET LEVEL ERROR 
INTERRUPT AODRESS 

OP ENTER CONTROL 
INFORMATION PUSH 
START TO CONTINUE 

READ SIT SWITCHES 



SET CORE SPEEO 
•INDICATOR 



SET OPT OEVICE INOIC 

CLEAR STORAGE 
•PROTECT BITS 



SAVE SH INPUT 

BRNCH IF MANUAL MODE 



BSI L TIINT GO DETERMINE TIMER SRC 
INTERRUPT LEVEL 



* 
* 



XIO L HASKO 

XIO L MASK! 

LOX 2 26 
LO C0NST«3 

STO L2 8 



SET UP INTERRUPT AODRESSES 
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CONST*! 

8 

♦ 

CTL04 

RTNNO 

CTL02*2 

RTNNO 
CONST 

♦— 
CTL05 



CTL02 



MDX L RTNNO, I 
LDX It RTNNO 
BSC II RTN-1 



ADORESS SVINT 



UNMASK INTERRUPTS 

CHECK IF A ROUTINE 
♦IS SPECIFIED TO 

♦LOOP 

SKIP IF LOOP ROUTINE 

SET IN ROUTINE SU 
GO EXECUTE ROUTINE 

CK IF ALL ROUTINES 
HAVE RUN 

BRNCH IF ALL RTN RUN 

AOO 1 TO ROUTINE NO * 

EXIT TO ROUTINE 



* 

»»* 

CTL03 



BSI 
DC 



MANUAL MODE SELECTED 

L LOG PRINT MANUAL MODE SRC 
TKM01 SELECTED 



BSC L TIHAN GO TO MANUAL kOUTINE 



01NAV66 
415120A 



04N0V66 
41523S 
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83201370 
8B2O1380 
86201390 
8B201400 
86201410 
88201420 
88201430 
8B201440 
85201450 
8B201460 
88201470 
8B20148O 
8B201490 
8B201500 
8B201S10 
88201520 
8B201S30 
8B201540 

8e2i>isso 

8B201560 
8B201570 
8B201580 
8B201590 
8B201600 
88201610 
8B201620 
88201630 
8B201640 
8B201650 
8B201660 
8B201670 
88201680 
8B201690 
8B201700 
6B201710 
88201720 
8B201730 
8B201740 
. 8B201750 
6B201760 
8B201770 
8B201780 
8B201790 
8B201800 
88201810 
8B201820 
8B201830 
8B201S40 
88*01850 
8B201C60 
6B201870 
8B20188O 
8B201890 
8B201900 
8B201910 
8B201920 
8B201930 ' 
88201940 
88201958 
88201960 
8B201970 
8B201989 
8B201990 
8B202000 
8B202010 
68202020 
88202030 
88202040 
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IBM MAINTENANCE OS AGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 

ALL ROUTINES HAVE RUN 

READ BIT SWITCHES 
CHECK IF LOOP PRCGRM 
IS SPFCIFIED 

BRANCH If LOOP PGRM 

SSI L LOG PRINT PfcOGRAH 

OC THM03 COMPLETE 







• 








* 




017F 


082D 


CTL05 XIO 


BSW 


01 If 


C030 


LD 


BSWA 


0180 


1804 


SRA 


4 


0181 


4804 


BSC 


£ 


0182 


7005 


MDX 


LPPGM 



0183 CO 44C0053C 
0185 072C 



SRC 



0186 3002 

0187 70A5 



W*2 



* 



WAIT 
MDX 



0188 

0189 



1010 
0027 



LPPGM SLA 
STO 



2 
TISRT 



16 

RTNNO 



PRCGRAH, COMPLETE 

PUSHING STAR! RESULT 
IN BRANCH TO START 
OF PROGRAM 

CLEAR ROUTINE NUMBER 



018A OS 4400U53C 
016C U 08B6 



0160 70ES 



018E C023 
018F 4818 
0190 TOD? 



0191 00 4400053C 
0193 073A 



0194 3003 

0195 7097 



0196 01BA 

019? 0217 

0198 0270 

0199 02E0 
019A 0355 
0198 03EB 
019C 0190 



0190 00 4400053C 
019F 087A 



01 AO 70 AS 



01A1 0006 

01A2 0700 

01 A3 06CB 

C1A4 06DF 



BSI L 

DC 

♦ 

MOX 
» 

* 

RTNRT- LD 
BSC 
MDX 

************ 
BSI L 
DC 

WT3 WAIT 

♦ 

MDX 



PRINT PASS COMPLETE SRC 



LOG 

TMM23 



CTLOi LOCP PROt-RAH 

ROUTINES RETURN HERE 

SEOCK 

*- 

RTRN BRANCH ON GOOD CHECK 



PRINT SESUENCE ERROR SRC 



• 
RTN 



LOG 

TMM04 
**••*••**«*«»**»* ******»*„*»»**«.. 

3 SEQUENCE ERROR 

TISRT POSH START FOR RESRT 
ROUTINE AODRESSES 



OC 

DC 

DC 

DC 

OC 

OC 

OC 
• 
•****•••**•**, 

TIMER BSI L 
DC 

•»**•***»****, 

MDX 

CONST DC 
DC 
DC 
OC 

* 



T5M00 ROUTINE i 

TIM01 ROUTINE 2 

TIM02 ROUTINE 3 

TIM03 ROUTINE 4 

TIK04 ROUTINE S 

TIM05 ROUTINE 6 

TIKER ILLEGAL ROUTINE 

»••***•••*****»******* »•»»***»** 

LOG PRINT ILLEGAL ENTRY SRC 

TMM20 MESSAGE ID 



MTt 



CONTROL CONSTANTS 



6 

/0700 
ERINT 
SVINT 



LVL ERR INTRUPT ADRS 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04NOV66 
415231 
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BB202050 
8B20206O 
8B202070 
88202080 
6B202090 
&B202100 
6B202U0 
8B2D2120 
68202130- 
8B202140 
8B2C2150 
8B202160 
8B202170 
8B202180 
8B202190 
86202200 
88202210 
S6202220 
8B2O2230 
8B202240 
86102250 
8B202260 
8B202270 
8B202280 
88202290 
8B202300 
8B202310 
8B202320 
8B202330 
86202240 
8B202350 
88202360 
8B202370 
8B202380 
8B202390 
862 02400 
88202410 
8B20242O 
-8B202430-' 
8B202440 
BS202450 
3B202460 
88202470 
86202480 
88202490 
88202500 
SB202S10 
8B202520 
8B202530 
8820254® 
8B202559 
88202560 
88202570 
8B202580 
88202590 
88202600. 
88202610 
86202620 
83202630 
88202649 
88202650 
86202660 
83202670 
8B202680 
36202690 
6S202700 
8B202710 
8B202720 



3 



PROG 10 
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IBM MAINTENANCE DIAM.0ST1C PROGRAM rOR THE 1600 SVSTE* 
INTERVAL TIMER FUNCTION TEST 



PART NO. 2196*63 
PACE 3 



01 A6 


0000 


• 


8SS 


E 







8B20273O 
8B202740 


01A6 


4C00 


RESRT 


OC 




/4C00 


RESTART INSTRUCTION 


8B2C27S0 


01A7 


0120 


• 


oc 




TISRT 




SB202T60 
86202770 


01A8 


0000 


UMSKO 


OC 




/oooo 


UNMASK INTERRUPT 


88202780 


01 A9 


0480 




DC 




/0*B0 


IOCC 


8B2O2790 


01AA 


0000 


UMSK1 


OC 




/OOOO 




8B202800 


01AB 


0481 


• 


OC 




/0481 




88202810 
88202820 


01 AC 


oieo 


BSW 


DC 




BSMA 


READ SIT SNITCH IOCC 


88202830 


01A0 


0240 




ee 




/0240 




83202840 


OlAE 


0000 


SNSHS 


DC 




/OOOO 


READ SENSE SM IOCC 


88202850 


01 AS- 


0760 


• 


DC 




/0760 




8B202860 
88202870 


0180 


0000 


8SWA 


DC 







BIT SW READ IN ARE* 


8B20288S 


0181 


0000 


RTNNO 


OC 







ROUTINE NUMBER 


8B202890 


01B2 


0000 


SEOCK 


OC 









8B202900 


01B3 


0000 


OP I NO 


OC 




s 


OUTPUT DEVICE INDCTS 


8B202910 


01 B4 


0000 


SPEED 

• 


OC 







CORE SPEED INDICATOR 


88202920 
8B202930 


01B5 


04A4 


TISCN 


OC 




TIMAI 




BB202940 


01B6 


2000 




DC 




/2000 




88202950 


01B7 


3100 




OC 




/3100 


TIHEK A 


88202960 


01BS 


3200 




DC 




/3200 


TIMER B 


" 88202970"" 


01 69 


3300 


• 


DC 




/3300 


TIHEK C 


88202980 

88202990 

„ 8B203O0O 

63203010 






• 




ROUT I 


NE NUMBER ONE • 






• 






CHECK 


FOR DOUBLE INC* • 


8B203028 






• 






OF I 


CTR DURING TIMER • 


88203030 






• 






CYCLE 


STEAL CVCLE • 


88203040 
88203050 
88203060 






• 




01EA 00 


CC00026A 


TIHOO 


XIO 


L 


MASKO 


MASK INTERRUPTS 


88203070 


016C 00 


0C00026C 




810 


L 


MA SKI 




88203080 


01 BE 


1010 




SLA 




16 


CLEAR ERROR SWITCH 


88203090 


01 BF 


0053 




STO 




ERRSM 


" " ' 


■8B203100 


01C0 


C0F4 




LO 




TIBCN 


SET INTERRUPT 


8B20311O 


01C1 00 


678C06CA 




L0X 


IS 


INLVL 


•TRANSFER VECTOR 


8B203120 


01C3 00 


07000000 




STO 


13 







SB203130 


01C5 00 


6700FFFF 




LOU 


L3 


/FFFF 




88203140 


01C7 00 


6F000004 




STX 


13 


4 


SET ALL TIMERS TO 


68203150 


01C9 00 


6F000005 




STX 


L3 


5 


•FFFF 


88203160 


01CB 00 


6F000006 




STX 


L3 


ft 




8B203170 


01C0 00 


0C0001A6 




XIO 


t 


UMSKO 


UNMASK INTERRUPTS 


8B203180 


01CF 


08DA 




XIO 




UMSK1 




8B203190 


01D0 


6103 




LDX 


1 


3 


SET TIMER INDEX 


88203200 


0101 


C0E4 




LD 




TIBCN+1 


INITIALIZE IOCC 


88203210 


01 D2 00 


04000500 




STO 


L 


NIOCC 




88203220 


0104 


7005 


• 


MOX 




RTN00*3 




88203230 
88203240 


0109 00 


C4000500 


RTNOO 


to 


i 


NIOCC 


MODIFY IOCC FOR 


88203250 


0ID7 


1001 




SLA 




1 


•NEXT TIMER 


83203260 


0108 00 


04000500 




STO 


L 


NIOCC 


' * • * * *-* • *•••'*« 


• * 8B2032T0" * 


01 DA 00 


C50001B6 




LO 


LI 


TI8CN*1 


TMR NMBR TO MESSAGE 


88203280 


01DC 00 


0400085E 


• 


STO 


L 


TMN16«24 




88203290 
8B203300 


010E 00 


C5000213 


RTNOt 


LO 


LI 


TIKA-1 


CHECK IF TIMER OPRTV 


88203310 


01E0 


4820 




8SC 




Z 


SKIP IF OK 


BB203320 


01E1 


7016 




MOX 




RTN05 




8B203330 


01 E2 00 


C400026A 




LD 


L 


MASKO 


SET A TO FFFF 


8B203340 


01E4 00 


0COO0500 


• 


XIO 


i 


NIOCC 


TURN TIMER ON 


88203350 
88203360 


01E6 


3008 


HT8 

• 


WAIT 




8 


WAIT FOR INTERRUPT 


88203370 
88203380 


01E7 


7008 




MOX 




RTN02 


NORMAL INTRP RETURN 


88203390 . 


01E8 00 


OCO0OSO2 




XIO 


L 


FIOCC 


ERROR INTRP RETURN 


88203400 


DATE 


28FEB66 
415120 


01HAV66 


04*0V6* 




PROG 10 0882-8 


EC NO. 


415120A 


41S293 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



01E/ 1 00 74010213 



01EC 00 44000511 
01EE 0846 
01EF 01DE 



MDX L ER«SK,1 



SIT ERROR 5ND8C&TOR 



8SI L ffcROR PRIM fSKOR 

DC THM18 MtSS*&£ ID 

DC RTN01 IOCC ICFOR BETURN 



5KC 



01F0 00 


OC000502 


■UN 02 


xio 


L 


FIOCC 


TIMIRS 0»F 


01F2 00 


C4000«C 




LO 


i 


ACS 


CHICK If ACCUMULATOR 


01F4 00 


F400026A 




EOR 


L 


MASKO 


*»<*S DI STACYID ON 


01F6 


4820 




BSC 




2 


•IlMfR t»S. CYCLE 


01F7 


700F 




MDX 




RTN04 




OiFS 


71FF 


RTN05 


MOX 


I 


-1 




01F9 


7008 




MDX 




RTNOO 


BSK 10 CHECK NKT TMR 


01FA 


cose 




LO 




ERRSW 




OlFB 00 


*C 180202 


• 


BSC 


L 


RTNQ3,*- 


eRAfcCH if ho error 



OlFD 00 4400053C 
01FF 0864 



0200 00 4C00014& 

0202 00 C40001B1 

0204 FOOD 

0205 DOAC 

0206 7087 

0207 00 C50001B6 
0209 00 D4000SBO 



020B 00 44000511 
0200 0890 
020E 010E 



020F 00 74010213 
0211 70E6 



BSI 
DC 



L LOG 

TMMI9 



PRIM FIX COMMAND 5KC 
MESSAGE ID 



8SC t K?I 



RTN03 LO 
EOS 
STO 
MOX 

• 

RTN04 LO 
STO 



t RTNNO 
RTOO 

SE8CK 
RTNRT 

LI TIBCN«1 
L TMM22«lf> 



PREPARE SECUtKCE 
•CHECK 

RETURN TO CCNTROL SX 

SET TMR NMBR IN M$G 



BSI 
DC 

DC 



E1R0R 
TMM22 
RTNOI 



PRINT A DESTROYED SRC 



0212 





OQOt 


0213 





OOOO 


0214 





OOOO 


0215 





OOOO 


0216 


a 


OOOO 





MDX L ERRSW»1 


SET ERROR SWITCH 




MOX 


HTN05 




RTOO 


OC 


1 




ERRS* 


OC 





ANY FAILURE SMlfCM 


TEMA 


oe 


§ 


A I NOP SW 




DC 





9 I NOP «H 




OC 


o 


C I NOP SW 



ROUTINE NUMBER TWO * 

CHICK ON/OFF ACTION OF * 
TiKEHS • 



0217 

errs o 


0852 
0853 


TIM01 

• 

• 

» 
RTN10 


XIO 
XIO 




MASKO 
MA SKI 


MASK AIL INTERRUPTS 

**aft* 0. 1.A& i 


0219 
021A 00 
02 IC 00 
021E 00 


1010 

04000004 
04000005 
04000006 


SLA 
STO 
STO 
STO 


L 

I 
L 


1ft 

/0004 
/0005 
/000ft 


CLEAR ALL TIMERS 


0220 


6103 


LDX 


a 


s 


TIMER INDEX 


0221 

0222 00 


CO<H 
04000500 


LO 

SIO 


i 


TIBCN«1 

NIOCC 


SET TIMER IOCC 


0224 
D2T5 


1010 
0048 


SLA 
STO 




16 

T«C« 


CLEAR TIMER COUiT 
-«ORKLOCATION 


DATE 

EC NO. 


28F.-"ft6 
415i« 


0IHAY66 
415120A 


sttixi* 
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88203410 
8B203420 
8B203430 
8B203440 
88203450 
8B2O3460 
882f>3470 
88203480 
86203*90 
88203500 
88203510 
88203520 
BB203530 
88203540 
88203550 
8S203S60 
8B203570 
88203580 
8B2O3590 
B8203600 
88203610 
88203620 
BB2036SO 
88203640 
88203650 
8B203660 
8B2036T0 
88203680 
8B203690 
88203709 
8B203710 
88203720 
88203730 
88203740 
8820)750 
86203760 
88203770 
88203780 
8B203790 
88203800 
8B203SIO 
88203829 
88203830 
88203840 
8B203850 
88203860 
88203870 
68203880 
88203890 
88203900 
88203910 
88203920 
68203930 
88203940 
M203958- 
8B203960 
§8203970 
88203980 
88203990 
BB204000 
88204010 
88294020 
88204030 
8B204040 
83204050 
8B204060 
,882040?© 
83204060 



PROG ID 

PACE 



oset~i 



6 o O t) c o c o o OQdQoQo^ o oh o o o 6 } 6 o fa o o o o o o o l o ( fa c 



JBH MAINTENANCE DIAGNOSTIC PROGRAH FOR THE 1800 SVSTEN 
INTERVAL TIHfR FUNCTION! TEST 



0226 620A 

022T 00 .'5000186 
0229 00 04000784 
022B 00 D400079A 

0220 00 0C0005C0 



022F 00 44000504 



0231 00 0C000S02 

0233 00 C50Q0003 

0235 F038 

0236 00 4C180256 

0238 00 C 5000003 
023 A 0033 



023B 00 44000504 



0230 00 C5000003 
023F F02E 
0240 00 4C2002S0 

0242 00 CS000003 
0244 0029 



0245 

0246 

0247 

0248 



72FF 

TOE* 

71FF 

701 8 



0249 00 0C0006C8 
C24S 00 OC0001A8 
0240 00 OC0001AA 

024F 00 C4000IB1 

0251 F010 

0252 00 D40O01B2 

0254 00 4CO0018E 



0256 00 44000511 

0258 0779 

0259 0220 



025 A 080F 
0258 0810 
025C 70E8 



0250 00 44000511 
025F 078F 
0260 0220 



0261 

0262 



DATE 

EC NO. 



0800 
0809 



28FEB66 
415120 



LOX 2 1C 



PASS INOEX 



LD 11 TIBCN«1 SET TIMER NUMBER 

STO L TMM08«1I I* MESSAGE 
STO L TMM09«ll 



RTN11 XIO L NIOCC 



turn timer on 



BSI I OEL20 GO DELAY SRC 



XIO L FIOCC 



LO 

EOR 
BSC 

LD 
STO 



LI /0003 
TMCNT 
L RTN12,^- 

Ll /C003 
TMCNT 



TURN TIMER OFF 

CEI TIMER CONTENTS 

CHECK IF COUNT CHNCD 
BRANCH IF ZERO 

SET PRESENT COUNT IN 
WORK AREA 



• ••••• 



BSi L DEL20 CO OELAT SRC 



LD 

EOR 

BSC 

LO 
STO 



LI /0003 
TMCNT 
L RTN13.Z 

LI /0003 
TMCNT 



CET TIMER CONTENTS 
CHECK IF CCUNT CHNCD 
BRANCH IF NOT IER0 

SAVE PRESENT COUNT 



CO MAKE ANOTHER PASS 

SET UP FOR NEXT TIKR 

PREVENT INTERRUPT 
UNMASK INTERRUPTS 



PREPARE SEQUENCE 
CHECK 



RETURN TO CONTROL 



RTN1S HOX 2 -1 

MDX RTNtS 

HOX 1 -1 

HOX RTN14 

XIO L OSM 

XIO L UMSKO 

XIO I UHSK1 
• 

LO L RTNNO 

EOR RT100 

STO L SEQCK 

BSC L RTNRT 

»»••»#•»•♦*»•#»••»»»»••»«•»•»»♦*♦••*««•••»*•* 

RTN12 BSI L ERROR PRINT TIMER FAILED SRC 

DC TMM08 TO TURN ON 

DC RTNll -LOOP- ERROR- RETURN 

*»*#••••#»•»»***»»»••»•»*«»*»*»»•**♦»**»•**•• 

XIO HASKO REMASK AFTER PRINT 

XIO HASK1 

HOX RTN15 

»•*»*»•»♦»»»*»»•»»•«*#*♦»»»**»»»»****»»•**•»# 

RTN13 BSI L ERROR PRINT TIMER FAILED SRC 

OC THM09 TO TURN /FF 

DC RTNll LOOP ERROR RETURN 



XIO 
XIO 



HASKO 
HA SKI 



REKASK AFTER PRINT 



01RAV66 
4151206 



04MOV66 
615233 
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88204090 
6B204100 
8B204110 
8B2Q4120 
8B204130 
8B204140 
8B204150 
88204160 
88204170 
88204180 
86204190 
8B204200 
8B2042I0 
88204220 
8B204230 
88204240 
8B204250 
8B204260 
8B204270 
68204280 
8B204290 
88204300 
88204310 
.£8204320. 
8B204330 
BB204340 
88204350 
88204360 
88204370 
8B204380 
8B2 04390 
882 04400 
8B204410 
88204420 
88204430 
8 82 04440 
8B204450 
8B204460 
88204470 
88204480 
88204490 
8B204S00 
8B204S10 
8B204520 
88204530 
6B204540 
8B204S50 
88204560 
8B20*570 
88204580 
88204590 
38204600 
88204610 
8B204620, 
8B204630 
88204640 
8B204650 
8B204660 
8B2046T0 
88204680 
8B2 04690 
88204700 
8B204710 
88204720 
8B204730 
8B204740 
8620*750- 
88204768 
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PROG 10 
PACE 



K 



C\ 



-i.'i»:.^CJU. ( il irr. 



,v 



1 ) 
') 



4 .-.*■ I. I< . dt -k 



0882-g 

4 



r .,I8H,«AiNJi»iAAl£E DIAGNOSTIC PROGKA* FOR THE 18,00 SYSTEM 

INTERVAL TIMER FUNCTION TEST 



0263 





TOO 


« 
RTN14 

• 

• 
• 
* 


MPX 




RTN15 




0264 
0266 
0267 


00 


00 


C4000500 

1001 

04000500 


LO 
SLA 

STO 


L 

L 


NIOCC 

1 

NIOCC 


SET IOCC FOR NEXT 
TINER 


j. »»M 





708ft 


HOX 




RTN10 


v 50. r CHECK.NEXT TIMER 














CONSTANTS 


026A 




0000 


sss 


f 







Q26A 
026B 
026C 
0260 
026 E 
026F 










FFFF 

0480 
FFFF 

0481 
0000 
0002 


HASKO 

MASK1 

TMCNT 
RT100 


OC 
OC 
OC 
OC 
OC 
OC 




/FFFF 
/0480 
/FFFF 
/0481 



1 


MASK INTERRUPT IOCC 








• ROUTINE NUMBER THREE • 

• CHECK TIMER INTERRUPTS • 

• AND OSM • 


0270 
0271 
02 73 




00 
00 


C06A 
678006CA 

07000000 


TIM02 

• 


to 

LOX 
STO 


13 
L3 


RT201 
INLVt 



SET TRAP ROUTINE 
ADDRESS IN INTERRUPT 
LOCATION 


02 75 





6103 


LOX 


1 


3 


TIMER INDEX 


0276 
0278 
027A 


00 
00 



C 4000186 
04000S00 
7005 


LO 
STO 

MDX 


L 
L 


T!BCN»1 

NIOCC 

RTN20+5 


SET TIMER IOCC TO C 


02 78 
027E 


00 



00 


C4000S00 

100! 

04000500 


RTN20 

• 

• 
RTN21 


LO 

SLA 

STO 


L 
L 


NIOCC 
1 
NIOCC * 


SET IOCC FOR NEXT 


0280 
0282 
02S4 


00 
00 

00 


C 5000186 
04000781 
040007C7 


LO 

STO 

STO 


LI 

L 

L 


TIBCN41 

TMM10«11 

THHtlMt 


SET TIMER NUMBER 
IN MESSAGE 


0286 

026? 




00 


C053 
05000003 


LO 
STO 


ii 


RT200 

/OO0S 


SET TIMER TO FFFF 



C289 00 0C000500 



028S 00 44000504 



XIO L NIOCC 



TURN TIMER ON 



(.3. UtOtCU 



0280 00 OC000502 



028F 00 44000511 

0291 0TA6 

0292 0286 



0293 


701S 


MDX RTN 

• 
• 






r? citric _. 


• 


• 

• 


• DATE 
EC NO. 


2«FC866 
415)10 


01MAV66 94N0V66 
415120A 41523S 



•»♦»••»♦»•»•»•»*»«♦»*♦•••»»»»»••»»*»»••»«••*• 

BSI I DEL20 CO WAIT FOR IKTERUPT SRC 

*•«••«•»•»••*■>»»•»•••••.•••••••»•»»•••••*••••• 

• 

• IF TIMER FAILS TO INTEPUPT 

• CONTINUE FROM THIS POINT 
V" - '**" - • 

XIO L FIOCC TURN TIMER OFF 

»♦*•♦»*»*»♦•••••»•»♦••••♦♦*»»»♦#••• »•••»♦♦*•• 
6SI L ERROR PRINT TIMER FAILED 
OC TMM10 TO INTERRUPT 
OC RTN21 LOOP ERROR RETURN 

CO CHECK IF DONE 

INTERRUPT TRAP ROUTINE 
Rf TURNS HERE 



PART NO. 
PACE 



8B204770 
88204780 
8B204790 
8B204800 
6B204810 
8B204820 
8B204830 
88204840 
8B204850 
89204860 
68204870 
8B20488Q 
8B204890 
88204900 
BB204910 
8B204920 
8B204930 
8B204940 
8B204950 
8B204960 
8B204970 
80204980 
882 04990 
8B205000 
8B20501O 
8B205020 
8B205030 
88205040 
88205050 
8B205060 
66205070 
88205080 
88205090 
88205100 
88205110 
8B205120 
88205130 
88205840 
?B205150 
8B205160 
8B205170 
88205180 
8B205190 
88205200 
8B205210 
8B205220 
88205230 
88205240 
8B205250 
88205260 
88205270 
88205280 
86205290 
88205300 
8B205310 
6B205320 
8B205330 
8B20S340 
8B205350 
88205360 
8B205370 
88205380 
8B205390 
88205400 
8B205410 
88205420 
88205430 
6S205440 



PROG ID 

PA&e 



2196*63 
4A 



0882-i 
6A 




( (*• n. ;' o o o o -D X) -O p ^ '"> ^ o e "■ r- n ( ( ^ c t> " ■ - > c • < t < i 

o o o o o c c o o o cr o ooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



PART NO. 2196*63 
PACE 5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1803 SVSTgK 
INTERVAL TIMER FUNCTION TEST 



0294 


00 


C4C00653 


RTN22 


LO 


L 


TRP02 


CHECK IF PROPER DSM 


88205450 




0296 


00 


F50002DC 




EOR 


LI 


RT202 




8B20546S 




0298 





4818 




BSC 




♦ - 


SKIP IF NOT ZERO 


8B205470 




0299 





700E 


• 


MOX 




RTN23 


OSW OK CONTINUE 


8B205486 
86205490 










• 






WRONG OSW AFTER INTERRUPT 


8B205500 










• 










89205510 




029A 


00 


C4000653 




LO 


1 


TRP02 


SET OSW FOR CGNVRSN 


8B20SS2Q 




029C 


00 


04000629 


• 


STO 


I 


HEXWO 




8B205530 
86205540 

86205550 
86205560 
8B205570 
6B205580 




029E 


00 


44G00£09 




est 


L 


HEXCV 


CONVERT HEX TO 43 CD SRC 










• 












02 AO 


00 


CC00062E 




LOO 


L 


HEXCO 


ERROR OSW TO MESSAGE 


8B205590 




02 A2 


00 


DC0007CA 


• 


STO 


L 


TMM11«14 




6B205600 
S8205610 
86205620 

8B205630 




02A4 


00 


44000511 




BSI 


L 


ERROR 


PRINT OSW ERROR SRC 




02A6 





OTBC 




OC 




TMM11 




8B205640 




02A7 





0286 




OC 




RTN21 


LOOP ERROR RETURN 


8B205650 
86205660 
86205670 










• 












02A8 


00 


C500064F 


RTN23 


LO 


Lt 


TRPOl-1 


CHECK IF TIMER ILSH 


8B205680 




02AA 





4818 




BSC 




*- 


•IS 2ER0 


8B20S690 




02AB 





7025 




MOX 




RTN26 




8B205700 




02AC 





71FF 


RTN27 


MOX 


! 


-I 


MAKE ANCTHER PASS IF 


SB205710 




02A0 


23 


TOCO 


• 
• 
• 


MOX 




RTN20 

ALL 


ALL TIMERS NOT CKO 
TIMERS CKO CK SLSM 


86205720 
86205730 
8B205740 
8B2057SO 




02AE 


00 


C4000650 




LO 


L 


TRP01 


CHECK THAT ALL TIMER 


88205760 




0260 


00 


F400C651 




EOR 


I 


TRP0l«l 


• il:>w ens are the 


8B205770 




02B2 


00 


E4000652 




AND 


L 


TRP01«2 


•SAME 


8B205780 




G2B4 





4618 




BSC 




•— 




86205790 




028$ 





7014 


• 
• 
• 


MDX 




RTN25 

ILSk 


ILSM OK EXIT 
ERROR 


86205800 
86205810 
86205820 
86205830 




02 66 





6303 




LOX 


3 


3 




86205840 




0267 


00 


C700064F 


RTN24 


LO 


13 


TRPOl-l 


SET ILSH FOR CGNVRSN 


BB205850 




0269 


00 


0400C629 


• 


STO 


i 


HEXWO 




88205860 
86205870 
88205880 
8B205890 
6B205900 
8B205910 




02BB 


00 


4400 06U9 




BSI 


I 


HEXCV 


CONVERT HEX TO 43 CD SRC 










• 












02B0 


00 


CC00062E 




LOO 


L 


HEXCO 


SET ILSW IN MESSAGE 


86205920 




02BF 


00 


DC0007DE 




STO 


L 


TMM12*16 




8620S930 




02C1 


00 


C70001B6 




LO 


L3 


TIBCN«1 


TIMER NMBR TO MESSAG 


88205940 




02C3 


00 


04000709 


• 


STO 


L 


TNM12U1 




8B205950 
8B205960 
86205970 
8B20598O 




02C5 


00 


4400053C 




BSI 


1. 


LOG 


PRINT ILSH SRC 




02C7 





07CE 




OC 




TKM12 




8B205990 
8B206000 
8B206010 










• 












02C8 





73FF 




MOX 


9 


-1 




6B206020 




02C9 





70E0 


• 
• 


MOX 




RTN24 

ALL 


TIMERS CHECKED EXIT 


89206030 
8 B2 06040 

88206OS0 




02CA 


00 


C4000181 


RTN25 


LO 


L 


RTNNO 




66206060 




02CC 





FOOF 




eor 




RT202 




88206070 




02C0 


00 


D40001B2 


• 


STO 


L 


SEOCK 




86206080 
86206099 




02CF 


00 


4C00018E 


* 


BSC 


L 


RTNRT 


RETURN TO CONTROL 


8B206100 
86206116 




0201 


00 


C5000IB6 


RTN26 


LO 


LI 


TIBCNU 




8B206120 




OATE 

EC NO. 


28FEB66 
415120 


01MAY66 
415120A 


04N0V6* 
415233 


• 


PROG 10 
PAGE 


0882-1 



r 


r\ 



r> 



1 

i 



0203 


00 

00 


04000894 

44000511 


• 


STO 


L 


THM2H11 




0705 




6SI 


L 


ERROR 


PRIhT ILSH £EK0 


02D7 





0889 




DC 




TMM2I 


MESSAGE ID 


0208 


a 




0286 
70D2 




OC 




RTN21 


LOCP ERROR RETURN 


0209 


• 

• 
* 

RT200 


MDX 




RTN23** 
















CONSTANTS 


02 DA 





FFFF 


DC 




/FFFP 




02 OB 


o 


0640 


RT201 


OC 




TP.AP2 


INTERRUPT AOORESS 


02 OC 





0003 


RT202 


OC 




3 




0200 





8000 




OC 




/8000 


A OSM 


02DE 





4000 




DC 




MQO0 


B OSM 


02DF 





2000 


s 


OC 




/2000 


C DSH 




• 






ROUT I 


NE FOUR • 








m 






CHECK 


TI«RS FOR • 




00 


0C00026A 


» 






PROPER SUPPING • 


02E0 


• 
TIMQ3 


XIO 


i 


MASKS 


MASK INTERRUPTS 


02E2 


00 


0C00026C 




x:o 


L 


MASK1 




02E4 





6103 




LOX 


1 


3 


TIMER INDEX 


02E5 


00 


C40001B6 




LO 


L 


TIBCN*! 


IOCC TO TIXER € 


02E7 


00 


04000500 




STO 


L 


HJOCC 




02E9 





7005 


• 
RTN30 


MDX 




RTN30»S 




02EA 


00 


C4000500 


LD 


L 


NIOCC 


SET IOCC FOR NEXT 


02EC 





1001 




SLA 




1 


TIMER 


02E0 


00 


04000500 




STO 


L 


NIOCC 




02EF 





6210 




LOX 


2 


16 


SET PASS INDEX 


02F0 


00 


C5000IB6 




LD 


LS 


TIBCN*! 


SET TIMER NUMBER 


02F2 


00 


D40007E0 


* 
RTN31 


STO 


I 


TKMI3*il 


IN ERROR MESSAGE 


02F4 


9 


6332 


LOX 


3 


50 


SET STEP INCEX 


02*5 


00 


C6000344 




LO 


12 


CTTBl-1 


SET ST4RISW COUNT 


02F7 


OQ 


05000003 




STO 


il 


/O0Q3 


•IN TIMER *N0 IN 


02F9 





0048 


* 

• 
* 
» 
RTN32 


STO 




RT300 


•CHECK REGISTER 


02FA 


00 


OC000500 


XIO 


L 


NIOCC 


TURN TIMER ON 












•• CHECK STEPPING •• 


02FC 


00 


C5000003 


10 


il 


/0003 


GET TIMER CONTENTS 


02FE 





9Q43 




S 




RT300 


*10CP UNTIL TIMER 


02FF 





4818 




BSC 




«~ 


•ANO CHICK REG ARE 


0300 





70FB 




MDX 




RTNSt 


•UNLIKE 


0301 





F042 




EOR 




RT302 


CHECK IF DIfF IS 1 


0302 


s 


4S18 




BSC 




♦- 




0303 





7026 




MOX 




RTN3S 


COUNT OK CONTINUE 








• 
• 






•• COUNT IN ERROR •• 


0304 


00 


0C0005O2 


XIO 


L 


FIOCC 


TURN TIH8 OFF 


0306 


00 


OC0006C8 


• 


XIO 


I 


DSM 


RESIT OSM AVOIO iNTP 


0308 





C039 


LO 




RTJOO 


CCNVIRI EXPECT!® 


0309 





803A 




A 




RT302 


•COUNT 


030A 


00 


D4000629 


• 


STO 


L 


HE SMS 





SRC 



030C 00 44000604 



BSI t HE3*C¥ 



GO CONVERT WORD 



SRC 



QATf 28FEB66 0IMAY66 04N0VttV 

EC NO. 415120 415120A 415231 



PART NO. 

PAGE 



6B206130 
8B206140 
8B206150 
8B206160 
8B206170 
86206180 
86206190 
8B206200 
86206210 
88206220 
86206230 
8B206240 
88206250 
86206260 
8B206270 
6B206280 
8B206290 
8B206300 
8B206310 
88206320 
8B206330 
8B206340 
8820635© 
88206360 
8B206370 
83206360 
SB206390 
882 06400 
86206410 
8B206420 
6B206430 
8B206440 
8B206450 
8S206460 
88206470 
68206460 
8B206490 
6B206500 
68206510 
8B206520 
8B206530 
86206540 
86206550 
88206560 
8B206570 
flB206580 
8B206590 
88206600 
66206610 
88206620 
88206630 
6B206640 
68206650 
86206660 
8B2066T0 
88206680 
8S206690 
8B206700 
8B206710 
EB206720 
8B206730 
86206740 
86206750 
38206760 
88206770 
8B206780 
89206790 
86206800 



PROG 10 
PAGE 



2196483 
5& 



8882-1 

m 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 S*S7E* 
INTERVAL TIMER FUNCTION TEST 



PART NO. 2W&46S 
PACE » 



OiOE 00 CC00062E IDD I HEXCD SET EXPECTED COUNT 

0310 00 CCO007F8 ^ STO I IMM13»22 uT MESSAGE ^ 

0312 00 C5000003 if) t J /0Q03 CONVERT ACTUAl 

031* 00 04000629 ^ ST0 t HEXWD COUNT TO ll"t ME« 

0316 00 44000609 „J]^«[*{*}}"Cr*°***crCCNVERT*bC»0***""*SRC 

0318 00 CC00062E tOO t MEXC0 SET ACTiiAi rnirvr 

<"» °° OC0007FO ^ STO £ TKMlLl* IN MESS^E 

OHE 0° 0TE2 0511 ,M#M «^*|«S" , "** # ^"^*"*""" SRC 

0J1F 02F4 ,.,.„^. #ii , J -.„ RTN31 L00P ERB0R ACCESS 

mi o°o° sssgjs * sis i :t™ rek * sk •»» «■«« 

lilt I DOIT " ' i?o " /00 ° S SET PRESENT T '«« 

0326 0018 ^ STO AT3Q0 .COUNT IN CHECK REC 

llll 0° ?D^° 500 ^ XI ° l N,0CC TURN "«« OK 

0329 7002 M0X RTN33*2 

• •• CHECK STEP, PASS Af.0 •• 

• •• TIMER IfOEX FOR RTN •• 

• •• COMPLETE •• 

CMC? ESS"** """SS L RT300 ' 1 CHECK REC TO NEXT CT 

0320 73FF „ DH 3 _ % 

llll I IZft HI ,*]"" BRN " KOT SO STEPS . 

0330 70C3 ^ * 0I RTH31 BRNCH hQT u , ASSES 

0331 00 0C000502 * XIO t FIOCC TURN TIMER OFF 

0333 71FF * H0I , ., 

033* 70B5 ^ * DX RTH30 BRNCH My m TJWRS 

• ROUTINE COMPLETE 

llll o" f2oS° IB1 * LD *• RTNN ° PREPARE SEQUENCE 

°* 3 « O FOOB FOR RT3QI fuff. 

0338 00 040001B2 I?o I SEOci 

lilt 00 llonofH ^ Xl ° l 0SH PREVENT INTERRUPT 

«3E 0°0 °o C "oo"J ^ l\° t SJgJ UN «*« INTERRUPTS 

03*0 00 4C00018E * BSC L RTNRT RETURN TO CONTROL 

• CONSTANTS 

0342 0000 RT300 DC 

0343 0004 RT30I DC * 

0344 0001 RT302 DC 1 

• 

• TIMER STARTING COUNT TABl 

llll 2 " ff CTTBt «* /*«* 

034* FFFO DC /FFFO 



OATC 
EC WO. 



28FEB66 
415120 



01MAY66 
415120A 



04NOV66 
415233 



8B2068I0 

86206829 

8B206S30 

66206840 

88206850 

66206860 

88206870 

86206880 

£8206890 

88206900 

86206710 

88206928 

86206930 

88206940 

88206950 

86206960 

88206970 

88206980 

88206990 

66207000 

88207010 

8B207020 

6B207030 

88207040 

86207050 

88207060 

88207070 

68207080 

88207090 

8B207100 

8E20711C 

86207120 

88207130 

8620^140 

68207150 

88207160 

88207170 

86207180 

88207190 

8B207200 

88207210 

88207220 

86207230 

86207240 

88207250 

88207260 

88207270 

86207260 

68207290 

86207300 

68207310 

68207320 

68207330 

88207340 

88207350 

86207360 

86207370 

88207380 

68207390 

8B207400 

88207410 

8B207420 

88207430 

88207440 

88207450 

66207460 

66207470 

8B2074B0 



PROG ID 
PACE 



I ! 



r, 

r> 
n 









08B2-I 
6 



~> • ") 



\ , ,~\ 



IB* MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



0347 
034 8 
0349 
0344 
034B 
034C 
0340 
0346 
014F 
0350 
0351 
0352 
0353 



0354 



FFOF 
FFOO 
FQFF 
FOFO 
FOOF 
FOOO 
OfFF 
OFF© 
OFOF 
OFOO 
OOFF 
OOFO 
OOOF 
0000 



0355 00 678006CA 
0357 00 C40003DE 

0359 00 D7000000 
035B 1010 
035C 00 040003E5 
035E 00 C40003DF 

0360 00 04000813 

0362 00 0C00026A 
0364 00 0C00026C 

0366 6103 

0367 00 C40004FO 
0369 00 04000500 

0368 00 C50Q0186 
0360 00 D400C80S 

036F 00 660003E8 

0371 C070 

0372 D06E 

0373 6303 

0374 00 07000003 

0376 73FF 

0377 70FC 



0378 00 OCOOO5O0 

037A 00 C5000003 
037C 9064 
0370 4813 
037 E 70F8 

037 F F064 

0380 4618 

0381 702C 



0382 00 OC000502 

0384 C060 

0385 00 4C200389 
0387 00 0C0006C3 



DATE 28FEB66 

EC NO. 415120 



oc 


/FFOF 


oc 


/FFOO 


DC 


/FOFF 


OC 


/FOFO 


oc 


/POOF 


0£ 


/FOOO 


DC 


/OFFF 


OC 


/OFFO 


DC 


/OFOF 


DC 


/OFOO 


OC 


/OOFF 


DC 


/OOFO 


OC 


/OOOF 


oc 


/OOOO 



* ROUTINE NUM8ER FIVE 

* CHECK TIMERS WHILE STEP- • 

* ING TOGETHER.ANO WHILE * 

* IN INTERRUPT XOOE * 



TIM04 LOX 

to 

STO 
SLA 

STO 

LO 

STO 

• 

XIO 
XIO 

RTN40 LOX 
LO 
STO 

LO 
STO 

RTN41 LOX 
LO 
STO 
LOX 
STO 
MDX 
MOX 

• 

* 



13 INLVL 
I RT400 



16 

INTSW 

RT401 

TMM14»23 



13 

I 
I 
I 



SET TIMER 
(LEVEL 



INTERRUPT 



MASKO 
MASKS 

3 

Til 03 
NIOCC 



LI TIBCN+1 
L TMM14+9 

L2 /03E8 
RT404 
RT403 
3 3 
L3 3 
3 -1 
»-4 



XIO L NIOCC 



RTN42 La 
S 

BSC 

MOX 

EOR 
BSC 

MOX 

* 

* 

XIO 
LD 
BSC 
XIO 



Li 3 

RT403 



RTN42 

RT406 

♦- 

RTN43 



CLEAR INTERRUPT PASS 

♦INDICATOR 

SET PASS 1 IN ERROR 

»MESS*GE 

MASK INTERRUPTS FOR 
•1ST PASS 

SET TIMER INDEX 

SET IOCC TO ALL TMRS 



TIMER NUMBER TO 
•ERROR MESSAGE 

SET STEP INDEX 1000 
SET ALL TIMERS AND 
•THE CHECK REGISTER 
•TO HEX FEOB 



TURN ALL TIMERS ON 

GET TIMER CONTENTS 
•LOOP UNTIL TIMER 
•AND CHECK REG ARE 
•UNLIKE 



FIOCC 
INTSH 

•♦2,2 
OSN 



CHECK IF 01FF IS I 

COUNT OK CONTINUE 
** COUNT IN ERROR *» 
TURN TIMEP.S OFF 

RESET 0SM IF 1ST PAS 



01MAV66 
415120A 



04N0V66 

415233 



PART NO. 2196463 
PAGE 6A 



8B207490 
88207500 

8B207510 

8B207520 

88207530 

8B207540 

8B207550 

88207560 

8820757© 

8B207580 

68207590 

8B207600 

8B207610 

8B207620 

8B207630 

8B207640 

88207650 

8B207660 

8B2O7e?0 

88207680 

88207690 

8B207700 

8B20771O 

8B207720 

8B207730 

88207740 

8B207750 

8B2O7760 

8B2077T0 

8B207780 

8B207790 

88207800 

8B207810 

8B207820 

8B207630 

88207840 

88207850 

88207860 

8B207870 

8B207880 

88207890 

8B20790S 

88207910 

8B207920 

8B207930 

8B207940 

8B207950 

8B207960 

88207970 

83207980 

88207990 

8B208000 

83208010 

8B20802O 

8B203030 

88208040 

88208050 

8B20C060 

8B208070 

89208080 

8B20809Q 

SB2O8I0S 

88208110 

8B2C6120 

8B208130 

38208140 

88208150 

86208160 
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0389 COST 
038A 6059 
0386 00 04000629 



tO RT403 

A RT406 

STO I HEXKO 



CONVERT EXPECTEO 
•COUNT 



0380 00 44000609 BSI L Htxcv " GOCONVEm' 



SRC 



k: So° ass a t ass*, sjb? * cro tc ■» 

ss oi ssss ] & t» ss c -- co - » 

0397 00 44000609 "^^££hEXC ^"^CwClM "* SRC 

03 *° ° o36F «. m# ..5;e;.„. ioop erbor * mr "s 

03A, 00 CMOOOOB to U 3 SET PRESENT TIME* 

««* O D030 ^ sto RTf03 #CN| , N CM£CR R£C 

03A4 C040 t0 , NTSM 

03A5 00 4C2003A8 BSC L *+l.i 

ss ss sss -a t sss ara/ss -« 

0°3"o E 0° loo" 03 " "^r L "«"•« 

0381 72FF ^ 2 _j •«" C ° U " 

0382 70C7 ^ „ 0Jt Rm2 eRNCM N0T 10M st£m 

03B3 00 OC000502 ^ KI0 I F1CCC TURN TIMERS OF* 

03B5 71FF KDX . . 

03S6 7084 ^ „ ox „„„_ BR4WH ^ ^ ^^ 

7019 ^ HDX RTN ^ BRNCH If JNT pA$$ 

038A 00 0C0006C8 X I0 1 D SM 

03M So 04°000813 & L ?J«*,„ *" PASS 2 IN ERROR 

ss s ssaa a i F » s »a , i0 cc 

sss sss # ssisr" K'g'" 1 "" 

03C0 00 OC000500 * X, L N,0CC TIMER ON FOR INTRPT 

03CF 3004 «T4 «AIT 4 WAIT F0R mEpRU „ 

0300 00 0C000502 XIO t FIOCC TURN TIMER OFF 



OATE 
EC NO. 



28FE666 
415120 



01MAY66 
415120A 



04NOV66 
415239 



6B208170 

8B20818© 

88208190 

8E?0820e 

88208218 

6&208220 

68208233 

88208240 

8B2082S0 

8B208260 

86208270 

8B208280 

88208290 

8B208300 

88208310 

88208320 

8B208330 

8B20S340 

88208350 

88208360 

88208370 

6B208380 

88208390 

66208400 

SS208410 

88208420 

8B208430 

8B20844S 

88206450 

86208460 

66208470 

8B208480 

8B208490 

83208500 

88208510 

8B208S20 

PB208530 

8B208S4O 

8B208550 

88208560 

88206570 

68206580 

8B208590 

8B2G6600 

8B208610 

8B208620 

8B206630 

8B208640 

8B208650 

6B20666S 

88208670 

88206680 

88208690 

88203700 

86208710 

8B206T20 

60206730 

88208740 

88208750 

6B206760 

6B208770 

8B208760 

8B208790 

86208800 

68208816 

6B20862O 

8B206830 

88208840 



PROG 10 
PACE 



0302 7093 



0303 00 OC0006C8 
0305 00 4C4003D7 

0>D7 00 C40001BI 
0309 F009 
030A 00 D40001B2 

030C 00 4C00018E 



030E 





03E6 


030F 





0100 


03E0 





0200 


03E1 


a 


0000 


ME 2 





FEOB 


C3E3 


o 


0005 


03E4 





0001 


03E5 





0000 



S3E6 0000 
03E7 00 0C0006C6 
03E9 00 4C8003E6 






00 



03EB 00 
03E0 00 
03EF 00 
03F1 00 

03F3 
03F4 

03F5 
03F6 
03F8 00 
03FA 00 
03FC 00 
03FE 00 
0400 00 
0402 00 
0404 00 

0406 

0407 00 
0409 
040A ro 
040C 
0400 
040E 
040F 00 
0411 00 
0413 00 



67000603 

6F000008 

670004A4 

6F8006CA 

6103 

1010 

0O5E 

04000004 

04000005 

04000006 

2C410004 

2C410005 

2C410006 

C4000I66 

04000500 

T005 

C4000500 

loot 

D40005O0 

1010 

004? 

620A 

C50001B6 

D40008CE 

040008EC 



0415 00 OC000500 

0417 00 44000504 
0419 00 OC000502 

0418 00 C50OOOO3 
0410 F037 



MOS 

RTN44 110 t 
BQSC L 

LB I 
EOS 
STO L 



RTN40 RERUN ROUTINE 

** ROUTINE COMPLETE •• 



OSH 

R1NN0 
RT405 

SEOCK 



• 

RT400 OC 
RT4C1 OC 
RT402 DC 
RT403 OC 
RT404 OC 
RT405 OC 
RT406 OC 
INTSM DC 

TRA4/. OC 
XIO 
BSC 



BSC t RTNRT 



RESET OSa 

TURN INTERRUPT OFF 

PREPARE SEQUENCE 
•CHECK 



RETURN TQ CON'S ROt 



CONSTANTS 



TRA4A 

/0100 

/0200 



/FEOB 

5 

I 

a 


ILSM 

TRA4A 



TIMER LEVEL 
43 CODED 1 
43 CODED 2 

TIMER STARTING COUNT 



INTERRUPT SWITCH 
TIMER TRAP RCbTINf 



ROUTINE SIR 
CHECK STORAGE PRO- 
TECTED TIMERS 



TIM05 LOX 
STX 
LOX 
ST* 
LOX 
SLA 
STO 
STO 
STO 
STO 
STS 
STS 
STS 
LO 
STO 
MOX 

RTN50 IG 
SLA 
STO 

SLA 

STO 

LDX 

LO 

STO 

STO 

XIO 
BSI 
XIO 

LO 
EOR 



RTN51 



2 
LI 
L 
L 

I 
t 
L 



L3 SPVTP 
L3 8 
L3 TIMA1 
13 INLVL 
1 3 

16 

SPVCK 

* 

s 

6 

4, Ml 

5./41 

6./41 

!IBCN*1 

NIOCC 

RTN50»5 

MI OCX 

i 

NIOCC 

16 

INCCT 

10 

TIBCN*! 

TMM24«H 

TMM25*18 



LOAD TRAP ADDRESS 



SET TIMER INOEX . 
CLEAR &LL TIMERS 
*ANS VIOLATE SWITCH 



STORAGE PROTECT ALL 
•TIMERS 

INITIALIZE TIMER 
• IOCC 



MODIFY IOCC FOR 
•NEXT TIMER 

CLEAR INCREMENT 

•SWITCH 

SET PASS INDEX 

SET TIMER hUHBER IN 

"•MESSAGES 



NIOCC 
0El20 
FIOCC 



LI 3 

INCCT 



TURN TIMER ON 
AtlCW FOR INCREMENT 
TURN TIMER OFF 

CHECK IF TIMER 
•INCREMENTEO 



SRC 



8B20B850 

86206860 

8B208870 

68208880 

8B208890 

66208900 

8B208910 

8B208920 

88208930 

88208940 

8B20895S 

6B208960 

63208970 

8B208980 

8B208990 

SB2G9000 

85209010 

68209020 

68209030 

66209040 

88209050 

SS209060 

8B2090T0 

SB209080 

86209090 

88209100 

8B209110 

8B209120 

88209130 

8B209140 

8B20915S 

8B209S60 

8B20917S 

8B2091SO 

8B20919S 

8&209200 

BB209210 

8B209220 

8B209230 

88209240 

88209250 

3B20926O 

8B209270 

6B209230 

88209290 

88209300 

8B209310 

8B209320 

8B209330 

88209340 

8B2Q9350 

6B209360 

89209370 

8B209J8O 

8B20939S 

8B209400 

8B209410 

88209420 

88209430 

8820944© 

88209450 

8B209460 

88209470 

68209480 

83209490 

8B209S00 

8B2095I© 

66209520 



0882-1 

T 



DATE 

EC NO. 



28FE866 
415120 



01MAY66 
415120ft 



04N0V6* 
41523S 
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OME 
041F 



4820 

7004 



BSC 

MOX 



I 
RTN52 



OK CONTINUE 



0420 00 4*000511 

0422 08CS 

0423 041S 



0424 00 C5000003 

0426 002E 

0427 72FF 

0428 70EC 

0429 TIFF 
042A 700C 



0428 00 74010454 
0420 6103 
042E 00 C5000186 
0430 00 04000907 

0432 00 U5000003 



0434 00 44000511 

0436 08F2 

0437 042E 



8SI L ERROR PRINT ERROR SRC 

OC THM24 

OC RTN51 LOOP ERROR RETURN 

RTN52 ID LI S HQOIFY INCREMENT 

STO INCCT *SWITCH 

"D* 2 -1 SKIP II- 10 PASSES 

MDX RTN51 

"OX 1-1 SKIP IF LAST TIMER 

MOX RTN50 GO CK NEXT TIMER 



VIOLATE PROTECTED TIMERS 



L SPVCK.l 

1 3 
LI TIBCN*1 
L TMK26+21 



SET CHECK SWITCH 
SET TIHER INDEX 
SET TIMER NUMBER 
*IN MESSAGE 

VIOLATE TIMER 



044E 00 44000511 

0450 080A 

0451 042E 



0452 7001 



0453 0006 

0454 0000 

0455 0000 



MOX 
LDX 
RTN53 LD 
STO 

STO U 3 

•*••*******»»*»*»♦****»*♦♦*»«**»«»*♦*«»»»»»»» 

8SI L ERROR PRINT INTRP FAILED SRC 

OC T MN26 

OC RTNS3 LOOP ERROR RETURN 

SKIP IF ALL TIMERS 
•CHECKEO 

RESTORE INTERRUPT 

•VECTOR 

PREPARE SEQUENCE 

♦CHECK 

CLEAR PROTCCTEO 
•TIMERS 

RETURN TO CONTROL 

INTERRUPT RETURN 

CHECK IF SPV PASS 
SKIP IF ERROR 

•*••••*•*••*•*•••*• *♦#**♦**«*♦*♦♦«»»»»»»»»»»» 

BSI I ERROR PRINT ERROR SRC 

OC TMM25 

OC RTN53 LOOP ERROR RETURN 

***•***•******»•»*♦*•»**»•♦•*»♦****»♦»*»♦#*♦* 

HDX RTN52 

• CONSTANTS 

RT500 DC 6 CONSTANT 6 

SPVCK OC SPV CK SWITCH 

JNCCT OC INCREMENT SWITCH 

• •*»••*••**••* •*••♦«*»»♦»»»»«***»»♦*»»»##»♦»» 

• SCOPING ROUTINE 



0438 


71FF 


RTN54 


MOX 


1 


-1 


0439 


70F4 


• 


MOX 




RTN53 


043A 00 


670006C8 


LDX 


13 


ERINT 


043C 00 


6F000008 




STX 


1 3 


8 


043E 00 


C40001B1 




LO 


I. 


RTNNO 


0440 


F012 




EOR 




RT500 


044! 00 


040001B2 




STO 


« 


SEOCK 


0443 00 


2C400004 




STS 


I 


4./40 


0445 00 


2C400005 




STS 


1 


S./40 


044 7 00 


2C4C0006 




STS 


1 


6 t /40 


0449 00 


4C00018E 


• 
• 
• 
RTN55 


BSC 


L 


RTNRT 


044 8 


C008 


LO 




SPVCK 


044C 


4820 




BSC 




Z 


0440 


70EA 




MOX 




RTN54 



OATE 

EC NO. 



28FE866 
415120 



01MAY66 
415120A 



04N0V66 
415233 
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BB209S30 

88209540 

8B209S50 

88209560 
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8B209580 

8B209S90 

8B209600 

83209610 

3B209620 

8 B2 09630 

8B209640 

8B209650 

88209660 

88209670 

8B209680 

8B209690 

8B209700 

88209710 

8B209720 

8B209730 

8B209740 

8B209750 

8B209760 

88209770 

8B209780 

8B209790 

8B209800 

88209810 

8B209B20 

68209830 

8B209840 

8B209850 

8B209860 

8B209870 

6B209880 

8B209890 

8B209900 

88209910 

88209920 

8B209930 

88209940 

88209950 

8B20996C 

8B209970 

8B209980 

88209990 

88210000 

8B210010 

8B210020 

88210030 

8B210040 

88210050 

88210060 

8B210070 

88210080 

88210090 

88210100 

8B210110 

8B210120 

88210130 

8B210140 

88210150 

86210160 

68210170 

8B210180 

8B210190 

83210200 
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0456 


6318 


0457 


C042 


0458 


00 D7000Q07 


045A 


73FF 



045B 70FC 



045C 00 4400053C 
045E 081S 
045F 3005 
0460 00 0C0001AC 
0462 00 C4000180 
0464 0036 



00 






0465 
0467 
0468 
0469 00 
CH6B 00 
0460 
046 E 
046F 



0470 00 

0472 

0473 
0*74 00 
0476 00 

0478 

0479 
047A 
047B 



4400053C 
0825 

3006 

ocooriAC 

C43001B0 
002E 
4818 
70F5 



4400053C 

0836 

3007 

OCOOOUC 

C4000180 

E029 

180A 

F028 

0021 



047C 
0470 
047E 
0480 






00 




C020 
0001 

67000000 
C01A 



0481 00 07000003 

0483 8018 

0484 0019 



C485 00 C700049E 
0487 00 04000500 
0489 00 0C000500 



043 B 00 C7000003 
0480 9010 
048E 4820 
048F 70F8 



0490 00 0C000502 



TIMAN LOS 

LO 
TINAA STO 

MOX 
MDX 

• 

* 



13 



J 2? 

TIX01 

7 

-1 

TIMAA 



SE 



WT5 



BSI L 

OC 

WAIT 
XIO L 
LD L 
STO 



LOG 

TMM15 

5 

BSW 

BSWA 

TIX02 



SET ALL INTRS FOR 
•RETURN TO MANUAL 

*RPUTINE 

REQUEST SW ENTRY FOR START 
TIME CT 

GO P1INT REQUEST SRC 

AORS OF HSG 

READ BIT SW1TCHS 

GET BIT SWITCHS 



TIMAB BSI 
OC 



WAIT 

XIO 

LO 

STO 

BSC 

MOX 



WT6 



BSI 
OC 
WT7 WAIT 

XIO 

LO 

AND 

SRA 

EOR 

STO 

• 

TIHAL LD 

STO 
TIM AC LDX 

LO 



LOG 

TKMI6 

6 

BSW 

BSWA 

TIX03 

♦- 

TIMAB 



REQUEST SW ENTRY FOR 
NUMBER OF STEPS 

GO PRINT REQUEST 
AORS OF MSG 



SRC 



READ BIT SWS 
GET BIT SMS 

WAS ENTRY ZERO 
VES-REQ AGAIN 



LOG 

TMM1T 

7 

BSW 

BSWA 

TIX07 

10 

TIX08 

TIX04 



REQUEST SW ENTRY FOR TIMER 

GO PRINT REQUEST 
AORS OF HSG 

RE«0 SIT SWS 

GET BIT SWS 

SAVE BITS 4 5 ANO 6 

SET UP TIMER INDEX 



SRC 



L3 



* 



* 
TIM 



STO 

A 

STO 



LO 
STO 

XIO 



L3 



TIX04 

TIHAC+1 



TIX02 

3 

TIX03 

TIX05 



SET UP TIHER TO DESIRED 
VALUE 

GET TIMER ENTRY 



IX 3 - TIMER 

GET STARTING COUNT 

SET IN TIMER 

ADO OESIREO COUNTS 

SAVE 



L3 
L 

I 



TURN ON TIMER FOR OESIREO 
NUMBER OF COUNTS 

TIX06-1 GET TURN ON CONSTANT 

NIOCC SET IN IOCC 

NIOCC TURN ON TIMER 



AO LO 
S 

BSC 

MDX 






CK TIMER FOR COUNT 

L3 5 GET COUNTER CONTENTS 

TIX05 SUB START ♦ NO CNTS 

I SKIP . DESIRED COUNT 

TIMAD LOOP 



GOT OESIREO CT 
XIO L FIOCC TURN OFF CT* 
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OATE 

EC NO. 
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415120 



01MAY66 
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415233 



88210210 

88210229 

38210230 

88210240 

8B210250 

88210260 

8B210270 

8B210280 

8B210290 

8B210300 

8B210310 

8B210320 

88210330 

8B210340 

88210350 

8B210360 

88210379 

88210380 

88210390 

88210400 

83210410 

88210420 

88210430 

8B210440 

88210450 

8B210460 

8B210470 

6B210480 

88210490 

88210500 

8B21O510 

e8210520 

88210530 

88'.10540 

8B210550 

88210560 

8B210570 

88210580 

68210590 

8B21060C 

38210610 

88210620 

88210630 

8B210640 

8B210659 

88210660 

86210670 

88210680 

88210690 

88210700 

8B21C710 

8B210720 

88210730 

88210740 

88210750 

88210769 

8B210770 

68210780 

8B210790 

SB210S00 

88210810 

83210820 

88210830 

88210840 

88210850 

88210860 

83210370 

882 10880 
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0492 


00 


0C0001AC 


0*9* 


00 


C40001BO 


0496 





1002 


0497 





4810 


0498 





TOES 


0499 





70BC 


049A 





04A4 


049 B 





CCOO 


049C 





0000 


0490 





0000 


049E 





0000 


049F 





8000 


04 AO 


e 


4000 


04AI 





2000 


04A2 





OEOO 


04A3 





0003 


04A4 





0000 


04 AS 





0006 



04A6 00 OC0006C6 
0448 00 OC0006C8 
04AA 00 4CC004A4 
04AC 0000 



04A0 

04AE 
04AF 
04BC 
04B1 
04B3 
04B4 
04B5 
04B6 

04B7 
04B8 

0489 
04 BB 
04BC 
04B0 











00 













00 






04BE 
04BF 
04CO 00 
04C2 00 



0000 

6100 

6218 

C049 

D50000G8 

8047 

7101 

72FF 

TOFA 

6303 

C04S 

07000003 

73FF 

70FC 

6103 

C030 
D040 

OC0001A8 
OC0001AA 



04C4 083B 



04CS 403E 



04C6 083B 
04C7 00 C4000212 
04C9 00 05000213 

04CB C034 



DATE 

EC NO. 



26FEB66 
425120 



XtO 

LO 

SLA 

BSC 

MOX 

MDX 



TIX01 OC 
TIX02 OC 
TIX03 DC 
TIX04 DC 
TIX05 OC 
TIX06 OC 
OC 
OC 
TIX07 DC 
TIX08 DC 
• 

TIMAI OC 
STO 



ACS 



TIINT DC 
LDX 
LOX 
LD 
STO 
A 

MOX 
MDX 
MOX 

LOX 

LO 

STO 

MOX 
MDX 
LDX 

LO 
STO 
XtO 
XIO 

T1IN1 XIO 



BSW CHECK IF OPERATOR 

8SWA •OFSIRfcS TO CHANGE 

2 ^ENTRIES 

TIMAL LOOP PRESENT SETUP 

TIMAN £0 CHANGE ENTRIES 



CONSTANTS 



TIKAS 









/eooo 

/4000 
/2000 
/OEOO 
/0003 



INTERRUPT ADRS 
STARTIG CT STORAGE 
NUNPER STEPS STORAGE 
TIMIR STORAGE 
START CT ♦ NO. STEPS 
TURN ON TIMER A 
TURN ON TIMER 8 
TURN ON TIME* C 



INTERRUPT ROUTINE 



XIO L 
XIO L 
BOSC 1 
OC 





ACS 

ILSM 

DSW 

TIMAI 





SAVE ACCUMULATOR 
SENSE ILSM 
SENSE DSH-RESET 
EXIT 

ACCUMULATOR SAVE 



IE 



ROUTIKE TO OETERMINE TIMER 
INTERNUM LEVEL 





1 

2 24 

TIIOO 

LI /0008 

TII01 

1 1 

2 -I 
TIINT** 

3 3 

TII04 
L3 /00Q3 
3 -1 

•-* 
1 3 

TII02 

NIOCC 

L UMSKO 

L UHSKt 

NIOCC 



LOAD INTERRUPT TRAP 

ADDRESSES 

A07RESS INTRP 

BUMP AODRESS BY * 



SET ALL TIMERS TO 
FFFF 



SET TIMER INDEX 
SET TIMER IOCC 
UNMASK INTERRUPTS 

START TIMER 



SE 



BS1 



DEL20 



GO DELAY 20 MILLISEC SRC 



• 
• 



IF TIMER FAILS TO INTERRUP 
CONTINUE FROM THIS POINT 



XIO FIOCC 

LO L HTOO 

STO 11 TIMA-1 

TUNS LO 



TURN TIMER OFF 
SET TMR INOP SH 



01MAV66 
415120A 



NIOCC 



04N0V66 
415233 



68210890 

8B21O90O 

8B2I<>919 

8B2I0920 

86210930 

B82IO940 

8B210950 

8B210960 

8B21097S 

88210980 

68210999 

8B21100O 

BB211010 

8B211020 

86211030 

8B21I040 

8B211050 

B8211060 

BB211070 

8B211080 

8B21109P 

8B211100 

6821U10 

8B211120 

88211130 

88211140 

88211150 

6B21U60 

88211173 

88211100 

88211190 

8B211200 

88211210 

86211229 

88211230 

8B2II240 

68211259 

88211260 

8B211279 

88211280 

8B211290 

8B211300 

88211310 

8B211320 

8B211330 

8B211340 

86211350 

8B211360 

8B211370 

88711389 

8B2U390 

8B21140O 

6B211410 

8B211420 

6B211430 

88211440 

88211450 

8B211460 

88211470 

8B2U480 

8B211499 

68211500 

8B211S10 

6B211520 

8B211530 

88211540 

88211550 

BB211560 



PROS 10 
PACE 



O 



08B2-& 



04CC 


10Q1 




SLA 1 SET IOCC FOS NEXT 


8B211570 


04CO 


0032 




STO NIOCC TIMER 


8B21I580 


04CE 


75FF 




MUX 1 -1 


88211590 


04CF 


70F4 


• 


MOX TUN! TRY NEXT TIF.ER 


68211600 

8B211610 






# 


ALL TIMERS FAILED TO 


88211620 






• 


INTERRUPT CH=CK IF TIMERS 


BB211630 






• 


HILL STEP 


88211600 






• 




8B2I1650 


04D0 00 


C40003E5 


TIIN2 


LD L IMTSW BYPASS STEP £K IF 


88211660 


0402 00 


4C2Q04F5 




BSC L TIIN6.2 *MY TMR INTERRUPTED 


88211670 


04D4 


C026 




LD TII03 SET IOCC TO TURN ON 


SB211680 


0405 


D02A 


* 


STO NIOCC ALL TIMERS 


86211690 
8B2U700 


04P6 


lfiO 




SLA 16 CLEAR TIMERS 


88211710 


040? 00 


C4000004 




STO L /0004 


8B21172© 


04D9 00 


04000005 




STO L /0C05 


8B2U730 


04D8 00 


04000006 


♦ 


STO L /0006 


8B211740 
8B211750 


04DO 


0822 


• 


XIO NIOCC TURN ALL TIMERS ON 


BB211760 

8B2117T0 






• •t«**»»»tS*<:tSt»j:*»t»*» < »*e*t««»tli«t**»»*»« 


8B211780 


040E 


4025 




BSI 0EL20 GO DELAY SRC 


8B2I1790 






***»»•***•+»*»*••*»»»**»* **•*•**»** *»S*l***»* 


8B211800 


i 




* 




8B211819 


04DF 


0822 


* 
• 


XIO FIOCC TURN ALL TIMERS OFF 


8B2U820 
86211830 
8B21I840 






• 


CHECK TO SEE IF ANY TIMER 


8B211850 






• 


STEPPES 


8B211B69 






• 




88211870 


04E0 


6303 




LDX 3 3 


8B211860 


o*ei 00 


C7000003 




LD L3 /0003 


8B211890 


04E3 00 


4C2004FO 




8SC L TIIN3.Z BRNCH IF TIMER STEPO 


B3211900 


04E5 


73FF 




MDX 3 -I 


8B211910 


04E6 


TOFA 


* 


MDX •-* 


8B2U920 
SB211930 






• 


ALL TIMERS FAILEO TO STEP 


8B2 11940 






• 




8821 1950 






• 




88211960 






A******************************************** 


8B211970 


04E7 00 


44000511 




BSI L ERROR PRINT TIMERS FAIL SRC 


88211989 


04E9 


0747 




DC TMM05 TO STEP 


88211990 


04EA 


04B7 




DC TIINT+10 LOOP ERROR RETURN 


86? 1 2000 






•*»****•**•••*»*»****»****»•**•****«*»**«$«»* 


8B212010 






• 




88212020 






»*t **•*•**»*•»*»**•****•**»•***•»** •******•»* 


33212030 


04EB 00 


4400053C 


TIIN4 


BSI L LOG PRINT RUM MANUAL SRC 


88212040 


04ED 


071F 




OC TMM02 


88212050 






** f ,»<iji:nt«»* *•*»»•*«•«•*•**•**•**#***» *•**•• 


88212060 






* 




6B212079 


04EE 00 


4C000146 


• 


BSC L CTL01*12 GO TO WAIT 1 


6B2120B0 

88212090 






****#**»**«*«»•»«*»**••**««*»•»«*«***««»***** 


8B212IOO 


O4F0 00 


44000511 


TIIN3 


BSI L ERROR PRINT TIMERS FAIL SRC 


88212110 


04F2 


0757 




DC TMM06 TO INTERRUPT 


8B212120 


04F3 


04B? 




DC TIINT*10 LOOP ERROR RETURN 


8B212130 






«»««*»*** »«*st»»«»»«»*e«»jsttt»t*t««i»»4« »* 


88212140 


04F4 


70F6 


• 


MDS TIIN4 


BB212IS0 
88212160 






•ft******************************************* 


SB212170 


04F5 00 


4400053C 


TSIN6 


BSI L LOG PRINT TIMER INTERRPT SRC 


8B212180 


04F7 


0767 




DC THMO? LEVEL 


8B21219® 








8B21220© 






• 




8B212210 


04F3 00 


4C8004A0 


• 


BSC I TIINT RETURN TO USER SX 


88212220 

SB21223S 




• 


• 


HINT SUBROUTINE CONSTANTS 


8B2 12240 


DATE 


28FEB66 


01MAV66 04N0V6* 


PROG ID 


EC N0<» 


415120 


415220A 415233 


PASE 



mm~i 



o 



o o o o o o o o 10 t)°cMcPcP(^6^o 6^0 oooo 6 o o o o o o o o o c c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR tHE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



PART NO* 2196*68 
PACE I® 



ij 



o 







• 










88212250 


0*FA 


065* 


TIIOO 


oc 




INTRP 


TRAP RTNS START AORS 


88212269 


04FB 


000* 


TII01 


OC 




/OOO* 




68212270 


0*FC 


2000 


TSI02 


oc 




/2000 




68212280 


0*F0 


EOOO 


Til 03 


BC 




/EOOO 




88212290 


0*FE 


FFFF 


TIIO* 

• 


DC 




/FFFF 


• 


S8212300 

88212310 


0500 


OOOO 


• 


ess 


f 







8B212320 
8B212330 


OSOO 


OOOO 


NIOCC 


DC 




/OOOO 


TURN TIBER ON IOCC 


882123*0 


0501 


0*20 


• 


oc 




/0*20 




8B21235G 
8B212360 


0502 


OOOO 


FIOCC 


DC 




/OOOO 


TURN T!*ER CFF IOCC 


6B212370 


0503 


0*20 


• 


oc 




/0*20 




8B2 12380 
6B212390 






• 






70 


HILLISEC DELAY ROUTINE 


88212*00 






• 










8B212*iO 


050* 


oooo 


DEL 20 


oc 









86212*20 


0505 00 


7*00018* 




MDX 


L 


SPEEO.O 


SKIP IF 2 USEC CORE 


86212*30 


0507 


7003 




NOX 




• *i 




8B212**0 


050 8 00 


670036BO 




LDX 


L3 


/36B0 


2 USEC INDEX 


8B212*50 


050A 


7002 




MDX 




• ♦2 




8B212*60 


050B 00 


670032C8 




LOX 


L3 


/32C8 


* USEC INDEX 


882 12*70 


0500 


73FF 




MDX 


B 


-1 




86212*80 


050E 


70FE 




MOX 




•-2 




88212*90 


050F 00 


*C80050* 


• 
• 


BSC 


1 


0EL20 




8B212500 
BB212510 
88212520 






»**»***##*» *****«s*«»«e»»**#»#«««**»* «.**»■#*»» 


88212530 






• 






ERROR ROUTINE 


882125*0 






•••»•••••••••»*••*•*•••••••*•**•••••••••••*•» 


88212550 




„ 


• 










8B212560 


0511 


oooo 


ERROR 


OC 







SE 


6B212570 


0512 00 


C*800511 




LO 


I 


ERROR 


SET MESSAGE ADDRESS 


88212580 


051* 


OOOF 




STO 




ERROl»l 


IN LOG CALL 


88212590 


0515 00 


7*010511 




MDX 


L 


ERROR tl 




88212600 


0517 00 


C*800511 




LO 


1 


ERROR 


LOAD LCCP ON ERROR 


8B212610 


0519 


0020 


• 


STO 




LPERR*l 


ADDRESS 


88212620 
6B212630 


051 A 00 


7*01 053B 


• 


NOX 


L 


ERRIOtl 


SET ERR CALL IKOCTOR 


682126*0 
88212650 


051C 00 


OCOOOIAC 




xto 


L 


8SW 


READ BIT SWITCHES 


8B212660 


0S1E 00 


C*0001B0 




LD 


L 


8SWA 


CHECK IF BYPASS 


6B212670 


0520 


1802 




SRA 




2 


• ERROR PRINT 


8B212680 


0521 


*80* 




BSC 




E 




88212690 


0522 


7002 


• 


MOX 




ERR02 




8B212700 
69212710 






»»»**!»»*»*«*»*»*»»* »»»******»**«e»» **»*•»**•» 


86212720 


0523 


*018 


ERR01 


BSt 




LOG 


GO PRINT ERROR SRC 


88212730 


052* 


OOOO 




OC 









832127*0 






•••*••••«.*• *••*•»<•• •**•*•*••••••*• • ••••••••*)• 


88212750 






• 










8B212760 


0525 


1010 


ERR 02 


SLA 




16 


CLEAR ERROR CALL 


88212770 


0526 


001* 


* 


STO 




ERRID 


INDICATOR 


88212780 
88212790 


0527 00 


C*0001B0 




LO 


t 


BSUA 


CHECK IF HALT ON ERR 


8B212800 


0529 


1801 




SRA 




1 




8B212810 


052A 


*80* 




BSC 




E 




8B212820 


0528 


7008 


• 


MOX 




VT9 


HALT BIT ON 


86212830 
882126*0 


052C 00 


OCOOOIAC 


ERR03 


XIO 


L 


BSW 


REAO BIT SWITCHES 


68212850 


052E 00 


C*0001BO 




LO 


L 


BSUA 


CHECK IF LOOP ON 


66212660 


0530 


1803 




SRA 




9 


•ERROR REQUESTCO 


68212870 


0531 


*80* 




BSC 




E 




8B212R80 


0532 


7006 


• 


MOX 




LPERR 


LOOP ERROR 


88212890 
8B212900 


0533 00 


7*010511 




MOX 


L 


ERROR, 1 


ado i to r:turn 


8B212910 


0535 00 


*C800511 




ISC 


I 


ER20R 


RETURN TO USER SX 


8B2 12920 


DATE 


28FEB66 


IN AY 66 


0*N0V66 




TROC ID 08 B 2-1 


EC NO. 


*15120 


*15120A 


* 15233 




PAGE 10 



n 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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PART NO. 2196*63 
PAGE 10* 







• 










8B212930 








• 






ERROR HALT 


882129*0 








• 










88212950 




f537 


3009 


WT9 


WAIT 




9 


ERROR HALT REQUESTED 


SB212960 




0538 


70F3 


* 
• 



MDX 




ERS03 

LOOP 


ERROR REOUESTED 


8B2129T0 
88212960 
8B212990 
88213000 




0539 00 


*C000000 


LPERR 

• 


BSC 


L 







8B213010 

8B213020 




053B 


oooo 


ERR 10 


DC 




e 


ERROR CALL INDICATOR 


8B213030 








c*» **•«»«**•*»*•*»•«»•*«**«•?* <•*«*»**«******»• 


8B213Q*0 








• 






LOG 


ROUTINE • 


88213050 








•••*.»»»•••«••••*»•»•»•*•»****•••••**•»•*•*•• 


£8213060 








• 










8B213070 




053C 


CCC" 


LOG 

• 


DC 




© 


SE 


88213080 
8B213090 




0530 


6B10 


LOGOt 


STJS 


3 


LOG06»l 


SAVE IX 3 


83213100 




053 E QO 


0CO0026A 




XIO 


i 


NASKO 


MASK INTERRUPTS 


8B213110 




05*0 03 


0C00026C 


* 


XIO 


L 


MASKl 




63213120 
8B213130 




05*2 00 


C*0001B3 




LD 


i 


OPIND 


CK Witt* OUTPUT DVC 


SB2131*0 




05** 00 


*C18056* 


• 


BSC 


L 


TWRTR t *- 


•BRANCH IF 1053/1816 


8B213150 
8B213160 




05*6 00 


C*80053C 




LD 


1 


LOG 


GET MESSAGE AOOtESS 


8B213170 




05*8 


0055 


• 


STO 




PRWRT 


SET If* IOCC 


8B213160 
88213190 




05*9 


0850 


LOG 02 


XIO 




PRSNS 


CHECK PRINTER READY 


8B213200 




05*A 00 


*C0*0550 




BSC 


L 


WTA.E 


BRANCH IF NOT READY 


88213210 




05*C 


1601 




SRA 




1 




83213220 




05*0 00 


*C0*0552 




BSC 


L 


WTB.E 


BRANCH IF BUSY 


88213230 




05*F 


700* 


• 


MDX 




L0G05 


READY AKD NOT BUSY 


882132*0 
88213250 




0550 


300A 


WTA 


WAIT 




10 


NOT READY 


8B213260 




0551 


70F7 


• 


MDX 




L0G02 


CHECK AGAIN 


8B213270 
8B213280 




0552 


3003 


WTB 


WAIT 




11 


BUSY 


88213290 




0553 


70F5 


• 


MOX 




LOG02 


CHECK AGAIN 


8B213300 
88213310 




055* 


08*9 


LOGOS 

• 


XIO 




PRWRT 


OUTPUT MESSAGE 


88213320 
88213330 




0555 


06*6 




XIO 




PRSN 


CHECK FOR OP CCMPLT 


8B2133*0 




0556 


1002 




SLA 




2 




8B213350 




0557 


*810 




BSC 




_ 




8B213360 




0558 


70FC 




MOX 




• -* 




88213370 




0559 


08*0 


• 


XIO 




PRSNS 


RESET OSH 


88213380 
8B213390 








• 






PRINTING COMPLETE 


88213*00 








* 










86213*10 




055A 00 


67000000 


LOG06 


LDX 


13 





RESTORE IX 3 


88213*70 




055C 00 


OC0001A8 




XIO 


L 


UMSKO 


UNMASK INTERRUPTS 


88213*30 




055 E 00 


0CQ001AA 




XIO 


L 


UMSK1 




88213**0 




0560 00 


7*01 053C 


9 


MOX 


t 


LOG.l 


BUMP RETURN 


80213*50 
88213*60 




0562 00 


*C80053C 


• 


BSC 


I 


LOG 


RETURN TO USER SX 


88213*70 
88213*80 




056* 


1010 


TWRTR 


SLA 




16 




88213*90 




0565 


D032 




STO 




WROSM 




8B213500 




0566 


0839 




XIO 




TWSNS 


CHECK IF TYPEWRITER 


8B213510 




0567 


1005 




SLA 




5 


REAOY 


8B213520 




0568 


180F 




SRA 




IS 




8B213530 




0569 00 


*C180560 


• 


BSC 


i 


TWR01,*- 




832135*0 
88213550 




0568 


300C 


WTC 


WAIT 




12 


NOT REAOY 


8B2I3560 




056C 


70F9 


* 


MOX 




TWRTR *2 




88213570 
8B213580 




0560 


C028 


TWR01 


LO 




TWRTO 


CARP.AIGE RETURN AND 


6B213590 




056E 


002A 




STO 




IOARA 


LINE SPACE TO 10 ARA 


88213600 




DATE 


28FEB66 


01MAY66 0*N0V66 




PROG 10 


OS B 2-1 


EC NO. 


*15120 


*15120A 415299 




PAGE 


10A 



* i, O ^ L ' ' ' ' ' ' ' ; '■ Q o OOO c 

oooooooooo o o o o o 



o 6 J .& 8606600000000 00 c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



056F 0832 



XIO 



TWWR? 



0570 

0571 

0572 

0573 


082F 
180B 
4804 
70FC 


• 


XIO 
SRA 

esc 

MDX 


TUSNS 
11 
E 
*-4 


0574 

0575 00 
0577 


6301 

C480053C 
0001 


LOX 

LO 

STO 


3 1 

I LOG 

TWR02+1 



0578 00 C7000000 
05 7 A 00 04000504 
057C FOIA 
0570 00 4CI8055A 



057F uO 440005A4 



0581 00 C40005D4 
0583 0015 



TWR02 LD L3 

STO L CODWD 
EOR TWRTl 

8SC L L0G06.4 



CARG RETURN/LINE SP 
HANG TILL NOT BUSY 



BYPASS 1443 WORD COUNT 
GET MESSAGE ADDRESS 



GET WORD TO PRINT 
SET IN CONVERSION RT 
CHECK IF TERMINATOR 
BRANCH IF TERMINATOR 



BSI L COOCV GO CONVERT 43 TO TW SRC 



0584 0810 



0585 

0586 

0587 

0588 



081A- 
1808 
4804 
70FC 



0589 COOE 
058A 4804 
0588 7006 



058C 
0580 
C58E 



COOC 
1008 
OOOA 



058F 00 74010598 
0591 T0F2 



0592 7301 

0593 00 74010598 
0595 70E2 



0596 810* 

0597 FFFF 

0598 0000 

0599 0000 



10 
STO 

xiowk xio 

XIOSN XIO 
SRA 
8SC 

MOX 

» 

LD 
BSC 

MOX 

* • 

LO 
SLA 

STO 

MDX 
MOX 



CODWO 
IOARA 



TWWRT 

TWSNS 
11 

c 

XIOSN 



OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUST 



WROSH 
E 

TWR03 



BUSY 

CHECK IF 1ST 1/2 WORD 

GFT 1/2 WORD SWITCH 
GO SET UP NEXT WORD 

SET UP FOR 2ND 1/2 WORD 



IOARA 
8 

IOARA 

WRDSW.l 

XIOWR 



POSITION 2ND 1/2 WO 

BUMP WORD SWITCH 
GO WRITE 2ND 1/2 WO 



SET UP FOR NEXT WORD 



059A 

0S9A 
059B 
059C 
0590 
059E 
059F 



OATE 
EC NO. 



0000 

0000 
3701 
0000 
3700 
0000 
3500 



28FEB66 
415120 



TWR03 

• 

TWRTO 

TWRT1 

WROSW 
IOARA 

• 

PRSNS 

PRSN 

PRWRT 



MOX 
MDX 
MOX 



DC 
OC 

DC 
OC 



3 1 

L WRDSW.l 
TWR02 



/8103 
/FFFF 






BSS E 



DC 
OC 
OC 
OC 
OC 
DC 



01MAY66 
415120A 



/OOOO 

/3701 



/3700 

/OOOO 

/3500 



04N0V66 
415233 



NEXT WORD INDEX 
BUMP WORD SWITCH 
GO GET NEXT WORD 

LOG CONSTANTS 

LINE SP/CARRAIGE RTM 

TERMINATOR 

1/2 WORD SWITCH 

OUTPUT AREA 



PRINTER SENSE IOCC 
NON RESET SENSE 
PRINTER WRITE IOCC 



PART NO. 219646S 
PAGE 1| 



88213610 

88213620 

88213630 

8B213640 

8B213650 

8B213660 

88213670 

86213680 

8B213690 

88213700 

8B213710 

8B213720 

8B213730 

88213740 

8B213750 

8B213760 

88213??© 

8B213780 

8B213790 

8B213800 

8B213810 

88213820 

88213830 

BB21384© 

88213850 

8B213860 

8B213870 

8B213S80 

68213890 

86213900 

8B213910 

88213920 

8B213930 

88213940 

8B213950 

86213960 

8B213970 

£8213980 

8B213990 

8B214000 

8B214010 

88214020 

88214030 

8 62 14040 

88214050 

8B214060 

8B214O70 

88214080 

8B214090 

8B2I4100 

8B214110 

8B214120 

88214130 

88214140 

8B214150 

8B214160 

6B214170 

88214180 

8B214190 

86214200 

88214210 

88214220 

8B214230 

86214240 

68214250 

86214260 

88214279 ' 

88214280 



PR06 10 
PACE 



o 


o 



0B. ?I » 



-, 



■■> ' ') 
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05A0 


0000 


TWSNS 


DC 


/OOOO 


05*1 


OF03 




DC 


/OF03 


05A2 Q 


0599 


rWHRT 


OC 


IOARA 


05A3 


0902 


• 


DC 


Z0902 



TYPEWTR SENSt IOCC 
fYPENTR KRITE IOCC 



05A4 


OOOO 


05A5 


6927 


05A6 


6A28 


05A7 a 


6B?f 


05A8 


1010 


05A9 


002 B 


05AA 


6300 


05AB 


C028 


05AC 


1890 


05A0 


C027 


05AE 


4820 


05AF 


1088 


0560 


1010 


0561 


1084 


0562 


0023 


05B3 00 


65900506 


0565 


1010 


05B6 


1084 


0587 


D01E 


05B8 00 


66800506 



05BA 00 C5000SD9 
05BC 0001 

0560 00 C6000000 
05BF 00 D700050? 

05C1 C013 
05C2 00 4C2005C8 
05C4 00 7401Q5D5 
05C6 7301 
05C7 70E3 

05C8 COOE 

05C9 1008 

OSCA E800 

05C8 0008 

05CC 00 65000000 
05CE 00 66000000 
05D0 00 67000000 

0502 00 4C6005A4 



0SD4 OOOO 

0503 OOOO 

05D6 OOOO 

0507 OOOO 

0SD8 OOOO 



DATE 

EC NO. 



28FEB66 
415120 



* 1443 CODE TO 1816/1053 • 

'" CODE CONVERSION ROUTINE • 



CODCV OC 

STX 
STX 
STX 

SLA 

STO 

LOX 

C0DC1 10 
SRT 
LO 
BSC 
SLT 



SLA 
SLT 

STO 

LDX 

SLA 
SLT 

STO 
LDX 

9 

LO 

STO 

C00C2 LO 
STO 

LO 

BSC 

MDX 
MDX 
MDX 

C0DC3 LO 
SLA 
OR 
STO 

* 

C0DC4 LDX 
LOX 
LDX 

BSC 

• 

COO WD DC 

LHINO OC 

CODOO OC 

CODOl DC 

COD 02 DC 

• 

# 



@ 

1 C0DC4«1 

2 C00C4*3 

3 C0CC4*5 

16 

LHINO 
3 

CODWO 
16 

LHINO 
2 

8 

16 

4 
CODOO 

11 CODOO 

16 

4 

COOOO 

12 COOOO 

LI ZONE 
C0DC2*1 

L2 

S3 CODOl 

LHIND 
L C0DC3.Z 
L LHINO. 1 

3 I 
C0DC1 

CODOl 
• 

C0D02 
CODWO 

LI 
L2 

L3 

1 CODCV 



a 







0SMAY&6 
415120A 



04NOV66 

*15233 



SAVE INDEX REGS 



%£ 



CLEAR LEFT HALF MORD 
♦INDICATOR 



GFT WORD TO CONVERT 
SET IN Q 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO ACCUM 
IX 1 - ZONE 

DIGIT TO ACCUM 

IX 2 • DIGIT 

GET ZONE TABLE AODRS 
SET IN CONVERSION WD 

GET CONVERTED COOE 

BRNCH IF RIGHT HALF 

GO CONVERT RIGHT HLF 
PACK CCNVERTED CCOES 



RESTORE INDEX REGS 



RETURN TO USER SX 



CONSTANTS 

WORD LOCATION 

LEFT HALF INDICATOR 
WORK AREA 

CONVERTED LH CHARACT 
CONVERTED RH CHARACT 



PART NO. 21964&S 
PAGE U« 



88214290 
89214300 
83214310 

88214320 
8B214330 
8821434© 
8B214350 

8S214360 

8B214370 

88214380 

83214390 

65214400 

88214410 

88214420 

88214430 

86214440 

8B214450 

E8214460 

8B214470 

8B214480 

8B214490 

8S21450S 

8B214510 

8B214520 

8621*530 

88214540 

8S214550 

88214560 

8B214570 

8B214580 

8B2I4590 

8B214600 

88214610 

83214620 

86214630 

88214640 

8B214-650 

8B214660 

88214670 

€6214680 

8B214690 

88214700 

8B214710 

8B214720 

88214730 

88214740 

83214750 

882S4760 

88214??® 

8B2147B® 

88214790 

88214808 

8B214810 

88214820 

88214830 

8B214840 

8B214S50 

88214860 

8821487© 

8B214880 

86214890 

88214900 

66214910 

88214920 

8B214930 

88214940 

8B214950 

68214960 
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IBM MINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEN 
INTERVAL TIMER FUNCTION TEST 



PART NO. 2196463 
MCE 12 



C509 05DO 

OSOA 05F.A 

0508 05F3 

050C O 05FO 



C5DO 

O50E 

050F 

C5E0 

CSEl 

C5E2 

05E3 

C5E4 

C5E5 

CSE6 

C5ET 

C5E8 

C5E9 

05EA 

05EB 

05EC 

C5E0 

C5EE 

05EF 

C5F0 

05F1 

C5F2 

05F3 

C5F4 

C5F5 

05F6 

05F7 

05F8 

05F9 

C5FA 

05F8 

C5FC 

05FO 

C5FE 

C5FF 

0600 

0601 

0602 

0603 

0604 

060 5 

0606 

C60T 

0608 





























































































0021 

OOFC 

0008 

OODC 

OOFO 

00F4 

OOOO 

0004 

00E4 

OOEO 

0OC4 

OOOO 

OOOO 

009A 

009E 

00B2 

00B6 

0092 

0096 

00A6 

00A2 

0021 

OOOO 

OOTE 

005A 

OOSE 

0072 

0076 

0052 

0056 

0066 

0062 

OOOO 

003E 

001A 

001E 

0032 

0036 

0012 

0016 

0026 

0022 

0086 

OOOO 



• 




1443 TO 1816/1053 


• 
• 


CONVERSION TABLES 


ZONE DC 


ZONEN 


NO ZONE 


OC 


Z0NE1 


ZONE 


DC 


Z0NE2 


11 ZONE 


OC 

* 


Z0NE3 


12 ZONE 


ZONEN DC 


/0021 


SPACE 


OC 


/OOFC 


I 


DC 


/0008 


2 


DC 


/OOOC 


3 


OC 


/OOFO 


4 


OC 


/00F4 


5 


OC 


/OOOO 


6 


OC 


/00D4 


7 


OC 


/00E4 


8 


OC 


/OOEO 


9 


OC 


/00C4 





ZONE! OC 







OC 







OC 


/009A 


S 


OC 


/009E 


T 


OC 


/00B2 


U 


DC 


/00B6 


V 


OC 


/0092 


H 


DC 


/0096 


X 


DC 


/00A6 


V 


DC 


/00A2 


2 


DC 


/0021 


SPACE 


Z0NE2 DC 







OC 


/007E 


J 


DC 


/005A 


K 


DC 


/005E 


L 


DC 


/0072 


K 


OC 


/0076 


H 


DC 


/0052 





DC 


/0056 


9 


OC 


/0066 





DC 


/0062 


R 


ZONES DC 







OC 


/003E 


A 


OC 


ZOOM 


B 


DC 


/OOIE 


C 


DC 


/0032 





DC 


/0036 


E 


OC 


/0012 


F 


OC 


/0016 


6 


DC 


/0026 


H 


oc 


/0022 


I 


DC 


/0086 


ERROR 


OC 


/OOOO 


PERIOD 



COOE 



»**•*******»***»»****•*********♦*»«*♦******»,» 

* HEXADECIMAL TO 1443 COOED* 

* HEXADECIMAL CONVERSION • 

* ROUTINE * 
•******»****•*****•«*****♦******♦♦*#♦♦*»***»» 
• 



0609 
060A 
060B 
060C 


OOOO 
6A19 
6B1A 
6204 


HEXCV DC 
STX 
STX 

LDX 

• 

to 

SRT 

SLA 

HEXCI SLT 




2 HEXC2* 

3 HEXC2* 
2 * 


0600 O 
060E 
060F 
0610 


COIB 
1690 
1010 
1064 


HEXW0 

16 

16 

4 


DATE 
EC NO. 


28FEB66 
415120 


01MAT66 
415I20A 


04N0V66 
415233 



SAVE INDEX 2 AND 3 

CONVERSION INOEX 

GET WORD TO CONVERT 
SET A IN Q 

CcT CHARACTER 



SE 



8B214970 

88214980 

88214990 

8B215000 

8B21MU0 

88215020 

8B215030 

88215040 

8B215050 

8B215060 

8B215070 

8B215080 

8B215090 

8B215100 

8B215110 

8B215120 

8B215130 

8B215140 

88215159 

80215160 

88215170 

88215180 

8B215190 

88215200 

8B2152I0 

8B215220 

8B215230 

8B21524Q 

88215250 

6B215260 

8B21S270 

8B215280 

68215290 

8B215300 

BB215310 

8B215323 

8B215330 

8B215340 

8B215350 

8B215360 

88215370 

88215380 

BB215390 

8B215400 

8B215410 

8B215420 

8B2 15430 

8B215440 

8B215450 

8B215460 

8B215470 

SB215480 

88215490 

8B215500 

88215510 

6B215520 

8B215530 

8B215540 

8B215550 

8B215560 

8B215570 

8B215580 

6 82 15590 

8B215600 

8B215619 

8B215620 

88215630 

8 B2 15640 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERVAL TIMER FUNCTION TEST 



061.1 D001 
0612 OS 67000000 



0614 00 


C700063S 


0616 00 


06000629 


0618 


1010 


0619 


72FF 


061A 


70F5 


0618 


con 


061C 


1008 


0610 


E30E 


OblE 


DOOF 


061F 


COOB 


0620 


1006 


0621 


E808 


0622 


DOOC 



STO HEXC1«3 

LDX 13 

10 L3 CODEK 

STO 12 HEXOO-I 



SLA 

MOX 
MDX 

LO 

SLA 

OR 

STO 

LD 

SLA 

OR 

STO 



16 

2 -1 

HEXCI 

HEXQ0*3 

B 

HEX00*2 

HEXCD 

H£X00*1 

S 

HEXOS 

HEXCD»l 



SET CODE TABLE INDEX 

GET CODED CHARACTER 
AND SAVE 



CHECK IF DONE 
FACK CODED WORDS 



0623 00 66000000 
0620 00 67000000 

0627 00 4C800609 



0629 OOOO 

062 A OOOO 

0628 OOOO 

062 C OOOO 

062 D OOOO 



062 E 

062 E 
062F 



0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0639 
0639 
063A 
0638 
063C 
063 D 
063E 
063F 



OOOO 



OOCO 
OOOO 



OOOA 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0031 
0032 
0033 
0034 
0035 
0036 



HEXC2 LDX 12 O 
LDX L3 O 

8SC 1 HEXCV 

HEXWO DC 
HEX 00 OC 

OC 

DC 

OC 

8SS 

HEXCO OC 
OC 

CdDEH DC 
DC 
















RESTORE INOEX 

RETURN TO USER 
CONSTANTS 

WORD TO CONVERT 

• 

• UNPACKED CODED 

• WORO 



• PACKED CODED WORD 



Ss 



0640 OOOO 

0641 00 OC0005Q2 

0643 00 0C0006C6 
0645 00 D500064F 

0647 00 OC0006C6 



CONVERSION TABLE 

/OOOA 

/0001 1 
DC /0002 2 
DC /0003 3 
OC /0004 4 
DC /0005 S 
DC /0006 6 
DC /0007 7 

oc /oooB a 

DC /0009 9 

OC /0031 A 

OC /0032 8 

DC /0033 C 

DC /0034 D 

OC /0035 e 

DC /0036 F 
• 
******** *********** »***«*»**»*» # » > „ 6# » 4 .,,, # ^ 

* ROUTINE TWO INTERRUPT • 

* TRAP ROUTINE • 
•A***************** ************************** 

TRAP2 DC 

XIO L FIOCC TURN TIMER OFF 

$ 

XIO L ILSW SENSE ILSW AND SAVE 
STO LI TRP01-1 

* 

*'<> *- OSW SENSE DSW AND SAVE 



DATE 
EC NO. 



28FEB66 
415120 



01HAV66 

4151206 



04NOV66 
415233 



PART NO. 2196463 
PAGE I2A 



8B215650 

8B2 15660 

8B215670 

8B215680 

8B215690 

8B215700 

8B215710 

8B215720 

88215730 

8B215740 

8B215750 

88215760 

8B215770 

80215780 

8B215790 

8B215800 

8B215810 

88215820 

8B215830 

8B215840 

8B2158S0 

8B215860 

8B215870 

8B215880 

8B215890 

8B215900 

88215910 

8B215920 

06215933 

8B2I5940 

88215950 

88215960 

8B215970 

SB215980 

8B215990 

8B216000 

8B216010 

8B216020 

8B216030 

8B216O40 

8B2I6050 

88216060 

88216070 

8B216080 

8B216090 

8B216100 

88216110 

8B216120 

8B216130 

88216*40 

8B216150 

8B216160 

88216170 

8B216180 

88216190 

8B216200 

88216210 

8B216220 

8B216230 

88216240 

8B216250 

88216260 

8B216270 

86216280 

6B216290 

88216300 

8B216310 

SS216320 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTEKVAL TSMIR FUNCTION TEST 



PART NO. 2196463 
PACE u 



06*9 D009 

064A 00 OCOOO6C0 
064 C 4820 

064D 3000 



064E 00 4C400294 



STO 



TRPOf 



SUO t OSH 
6SC £ 



0650 

0651 

0652 

0653 



0000 
0000 

0000 
0000 



WTO 
TRP01 



WAIT 



is 



BOSC L RTN22 



0654 0000 

0655 405E 

0656 OAOA 
065 T OOOB 



0658 0000 

0659 405* 
065A OAOt 
065B OOOC 



065C 0000 

0650 a 4056 

065E 0A02 

065F 0000 



0660 0000 

0661 4052 

0662 0A03 

0663 OOOE 



0664 0000 

0665 404E 

0666 0A04 

0667 OOOF 



0668 0000 

0669 -.04* 
066 A OAOS 
0668 0010 



066 C 0000 

0660 4046 

066E 0A06 

066F 0011 



DC 

OC 

DC 

TRP02 OC 

• 

* 

INTRP OC 

esi 

DC 
OC 

OC 

SSI 

DC 

cc 



• 






• 









OC 

est 

DC 

OC 



DC 

esi 

oc 

DC 



OC 
BS! 

DC 

DC 



OC 
BSI 

DC 
OC 



OC 
BSI 

oc 

oc 



• 



8 



s 



CHECK IF DSN RESET 
ON FIRST SENSE 

DIM 010 NOT RESET 
OS* IN ACCUMULATOR 

RETURN TO CALLER 

USK 

OSH 



TRAP ROUTINES TO OETERKINE 
TIMER INTERRUPT LEVEL 

•• LEVEL •* 





CKTRP 
/OAOA 
/OOOB 





CKTRP 
/OAOI 
/OOOC 





CKTRP 
/0A02 
/OOOO 





CKTRP 
/0A03 
/OOOE 





CKTRP 
/OA04 
/OOOF 





CKTRP 
/OA05 
/0010 





CKTRP 
/0A06 
/0011 



CC»H RTN 
00 1443 
INTRP ADRS 

•• LEVEL 1 •• 



CCKN RTN 
01 1443 
INTRP ADRS 

•• LEVEL 2 »• 



CCKN RTN 
02 1449 

INTRP AOOKS 

»• LEVEL 3 •• 



CCKN RTN 
03 1443 
INTRP ADRS 

•• LEVEL * •• 



COKN RTN 
04 1443 
INTRP ADRS 

•• LEVEL 5 •• 



COKN RTN 
05 1443 
INTRP AORS 

•• LEVEL 6 •• 



COKN RTN 
06 1443 
INTRP AORS 

•• LEVEL 7 •• 



Fr T !U 28FEB66 01NAV66 04N0V66 
« NO. 415120 41S120A 415233 



88216330 

8B216340 

6B216350 

36216360 

88216370 

8B216386 

88216390 

8B216400 

68216410 

£8216420 

88216430 

8B216440 

8B216450 

BB216460 

8B216470 

8B216480 

88216490 

6B216500 

88216510 

6B216520 

88216530 

83216540 

88216550 

88216560 

8B216570 

68216580 

8B216590 

88216600 

8B216610 

86216626 

8B216630 

882 16640 

6B216650 

8B216660 

68216670 

88216680 

86216690 

8B216700 

88216710 

8B216720 

83216730 

8B216740 

86216750 

68216760 

88216770 

68216780 

8 82 16790 

68216800 

68216310 

88216820 

8B216830 

8B216840 

8B216850 

8B216860 

8B216870 

8S216880 

8B216890 

88216900 

8B216910 

88216920 

88216930 

68216940 

89216950 

88216960 

68216970 

8B216980 

8B216990 

8B2 17000 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 S¥5¥£« 
INTERVAL TIKER FUNCTION TEST 



PART NO, 219646S 
P*GE l3 ft 



0670 0000 

0671 4042 
06.2 0A07 
0673 0012 



0674 OOQO 

0675 403E 

0676 OAOS 

0677 0013 



0678 0000 

0679 403A 
067A 0A09 
0678 C014 



06 7C 0000 

0670 4036 

067E 010A 

067F 0015 



0680 0000 

0681 .4032 

0682 0101 

0683 0016 



0684 0000 

0685 402E 

0686 C102 

0687 .0017 



0688 0000 

0689 402A 
068A 0103 
068B 0018 



068C 0000 

0680 C 4026 

068E 0104 

068F 0019 



0690 0000 

0691 4022 

0692 0105 

0693 001A 



0694 0000 

0695 401E 

0696 0106 

0697 0016 



DATE 

EC NO. 



28FEB66 
415120 









• 
* 



* 

* 



* 



DC 

BSI 

DC 

OC 



oc 

BSI 

OC 

oc 



DC 
BSI 

OC 

oc 



oc 

BSI 

DC 
OC 



DC 
BSI 
DC 
OC 



DC 
BSI 

DC 

OC 



DC 

BSI 

OC 

OC 



oc 

BSI 

DC 

OC 



OC 

BSI 

DC 

OC 



DC 
SSI 

DC 
DC 





CKTRP 
/OAO? 
/0012 





CKTRP 
/OAOS 
/0013 





CMTRP 
/0A09 
/0014 





CKTRP 
/010A 

/0015 





CMTRP 
/0101 
/0016 





CMTRP 
/0102 
/0017 





CNTRP 
/0103 
/0018 





CMTRP 
/0104 
/0019 





CKTRP 

/0105 

ZOOS* 





CMTRP 
/0106 
/001B 



CQKN RTN 
0? 1443 
INTRP ADRS 

** LEVEL 8 »# 



CONN RTN 
08 1443 
IMTRP AORS 

•• LEVEL 9 •• 



COKN STN 
09 !443 
INTRP ADRS 

»• LEVEL 10 •• 



COKN RTN 
10 1443 
INTRP ADRS 

•* LEVEL 11 •• 



COKN RTN 
11 1443 

INTRP ADRS 

»* LEVEL 12 •• 



COKN RTN 
12 1443 
INTRP AORS 

•* LEVEL 13 »• 



CONN RTN 
13 1443 

INTRP AORS 

•* LEVEL 14 •• 



COKN RTN 
14 1443 
INTRP AORS 

•* LEVEL 15 •• 



CCKN RTN 
15 1443 
INTR? ADRS 

** LEVEL 16 •• 



COKN R?N 
16 2443 
INTRP AORS 



0IMAV66 
4151204 



O4N0WM. 
4I523S 



8B217010 

8B217020 

88217030 

8B217040 

6B217050 

88217060 

68217070 

6B2I708O 

8B217090 

8S217100 

88217110 

86217120 

6B2S7130 

6621 7140 

6S217150 

6 8217160 

8S217170 

6S21T180 

88217190 

6B2172O0 

RB21721'? 

68217220 

£6217230 

6B217240 

6i>2l7250 

£8217260 

88217270 

Bb21?280 

SB217290 

88217300 

?B2I73I0 

8?21?320 

88217330 

88217340 

8P2173S0 

6B2I7360 

8B217370 

8E217380 

8B217390 

BB2I7400 

6P217410 

68217420 

6P217430 

8B2I7440 

6&217450 

8F>2 17463 

*>B2i7470 

SE217489 

88217490 

88217500 

SB217510 

8B217520 

68217530 

6B217S40 

68217550 

86217560 

SB21757© 

8B2175BO 

88217599 

8 B2 17600 

83217610 

882! 7620 

86217630 

6 B2 17640 

6*217650 

68217660 

86217670 

8S2176S0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1B0D SYSTEM 
INTERVAL TIMER FUNCTION TfST 



OOO 



060000 o o o o o 00 o 00 c 



o 



PART no. im**s 

PAGS i« 



I 






• 










88217696 








• 








•• LEVEL 17 •• 


86217700 


r 






• 










88217710 


069S 


OOOO 




OC 









8B217720 




0699 


401* 




BSI 




CHTRP 


COKN RTN 


88217730 


f 


069 A 3 


0107 




DC 




/0107 


17 1443 


S821TT43 


0698 


001C 




DC 




/OOIC 


INTRP ADRS 


8B217T50 








• 










8B217760 


c 






* 








•• LEVEL 18 »• 


88217770 






• 










8B21778© 




069C 


OOOO 




DC 









8B217790 


r 


069D 


4016 




BS! 




CHTRP 


COKN RTN 


88217800 


069E Q 


0108 




DC 




/0108 


18 1443 


SB217810 




069F 


0010 




OC 




/0010 


INTRP AORS 


8B217820 


f 






• 










88217830 






• 








*• LEVEL 19 •• 


8B217840 








• 










8B217850 




06A0 


OOOO 




DC 









68217860 




06AI 


4012 




BS! 




CMTRP 


COKN RTN 


88217870 




06A2 


FCtO 




DC 




/FCEO 


19 1443 


6B217880 




06A3 


001E 


* 
• 
• 


OC 




/OOIE 


INTRP ADRS 
*• LEVEL 20 »• 


88217890 

8B217900 
8B217910 
6B217920 




06A4 


OOOO 




DC 









66217930 




06AS 


400E 




BSI 




CHTRP 


COMN RTN 


6B217940 




06A6 


020A 




DC 




/020A 


20 1443 


68217950 




06A7 


001F 


• 
• 
• 


OC 




/001F 


INTRP ADRS 
** LEVEL 21 *• 


£6217960 
8B217970 
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88217990 




06A8 


OOOO 
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06A9 


400A 




BSI 
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86216010 




06 A A 
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/020I 
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BY 
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OOOO 
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DC 







SE 


88218220 




0635 00 
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• 


XIO 


L 


FIOCC 


TURN TIMERS OFF 


88216230 
68218240 
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080E 


* 


XIO 




ILSW 


RESET ILSH 
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0688 


080F 


* 


XIO 




osu 
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6B213270 
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0689 00 


C4800684 




LO 


I 


CMTRP 


GET INTRP LEVEL NUMB 


8B216290 




06TS 00 


04000777 


9 


STO 


L 


THK07»H 


SET IN PRINT MESSAGE 


8B218300 
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06BD 00 


740106B4 




HDX 


L 


CHTRP, I 




63218320 




06BF 00 


C48006B4 




LO 


I 


CHTRP 


GET INTRP ADDRESS 


8B21B330 
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0008 




STO 




INLVL 


SAVE 


8B216340 




06C2 00 


740103E5 




MOX 


L 


INTSW.l 


SET INTERRUPT SWITCH 
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BOSC 


L 
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88218390 




06C6 


OOOO 


# 
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£ 







88216400 
8B218410 




06C6 


0090 


ILSH 


DC 




/GOOD 


J.ENSE itSW IOCC 


8B218420 




06C7 


0300 


• 


8C 




/0300 




8B2S8430 
8B2 18440 




06CS 


0009 


DSM 


DC 




/OOOO 


SENSE/RESET OSM IOCC 


88218450 


u 


06C9 


0721 


• 


DC 




/0T21 




88218460 
86218470 


1 ) 


06CA 


OOOO 


INLVL DC 




e 


TIMER INTERRUPT ADRS 
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* 










8B216490 




OoCB 


OOOO 


ERINT DC 









8B218500 




06CC 


COFg 




LO 




ER1NT 


SET I CTS* IN REG 


8B218510 




c&co 


1690 




SRT 




16 




88218520 




O&CE 00 


0C0OO&C6 


* 


XIO 


L 


ILSH 




8B216530 

SB218540 
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300E 


HIE 


MAIT 




14 


ILSH IN A REG 
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8B218560 




0601 00 
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• 
• 
• 


BOSC 


L 


T1SRT 

RTN 


6 TRAP ROUTINE 


8B218570 
8B218580 
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OOOO 


SPVTP 


OC 







INTERRUPT ENTRY IE 


83218610 




06 D4 


COFE 




LD 
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8B218620 




06D5 


1890 




SRT 




16 




6B218630 




06D6 


08EF 




XIO 




ILSH 


SENSE ILSH 


63216640 




06D7 


F006 




EOR 




SPVCN 


CHECK FOR SPV 


8B2I8650 




0608 00 


4C56044B 




BOSC 


L 


RTN55,*- 


BRANCH IF SPV 


8B218660 




060A 


F003 


• 


EOR 




SPVCN 


•RESTORE ILSH 


eB2l8670 
8B2166S0 




0608 


300F 


WTF 

• 


WAIT 




15 


NOT SPV ERROR 


86218690 
8B218700 
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4C400120 


* 


BOSC 


L 


TISRT 


RESTART PROGRAM IX 


8B218710 
8B218720 




06DE 
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* 


DC 




/2000 
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8B218750 
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ROUTINE TO SERVICE AIL 
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* 
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• 










8B218780 
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6B218T90 




060F 


OOOO 


SVINT 


OC 







SE 


8B21E800 




06E0 


D020 




STO 




SVIO 


SAVE ACCUMULATOR 


66216810 




06E1 00 


0C0006C6 




XIO 


L 
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8B216820 
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HDX 


L 
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C020 
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8B218660 




06E8 


0023 




STO 




SV6 
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8B218870 


1 


06E9 


C010 
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LO 




SV1 




8B216880 




06EA 


D020 




STO 




SV5 


SET MODIFIER COUNTER 


88216890 




06EB 


COIE 


SVIN1 


LO 




SV4 


» 


CB218900 


"1 


06EC 


100B 




SLA 




11 


• 


88216910 




06ED 


E810 




OR 




SV5 


•euiLO iocc 


8B218920 




06EE 


E81D 




OR 




SV6 


• 


88218930 
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D01F 




STO 




SVI0*1 


• 


8B218940 




06F0 


0810 




XIO 




SVIO 


SENSE OSH AND RESET 


8B218950 




06F1 00 


74FF0708 




HDX 


i 


SV5.-1 




83256960 




06F3 


70F7 




MOX 




SVIN1 


BRANCH is NOT ALL MO 
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06F4 00 


7401070A 




HOX 


i 
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INCREMENT AREA CODE 
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06F6 


C013 




LO 




SV4 




86218990 




06F7 
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S 
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♦ 


SKIP IF ALL AC USED 
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06F9 
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88219020 
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L 
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7001 
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LO 
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• 
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OP 


DC 
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E 


DC 
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Rf 


DC 
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n 


OC 
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SE 


DC 
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IE 


DC 
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CT 


DC 
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ED 


DC 

• 
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DC 
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01 


DC 
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RT 
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0735 S 3326 


DC 


Z3326 


ea 


0736 2*27 


OC 


/2427 


MP 


073" 2335 


DC 


/233S 


IE 


0738 1335 


OC 


/1335 


T6 


0739 FFFF 


DC 


/FFFF 


TERM 


073A 0008 
073B 350A 


TKMO* DC 
DC 


/OOOB 

/350A 


fe'ORO COUNT 
EO 


073C OAOI 


SC 


/OAOI 


01 


0730 OOOO 


DC 


/OOOO 


SPACE 


073E OOOO 
073F 1235 


ec 
oc 


/OOOO 
/1235 


SPACE 
SE 


07*0 2814 


OC 


/281* 


ea 


07*1 3525 


oc 


/352S 


EN 


07*2 3335 


DC 


/333S 


Ce 


07*3 0035 


OC 


/0035 


E 


07*4 2929 


oc 


Z2929 


Kg 


07*5 S 2629 


oc 


Z2629 
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07*6 FFFF 


DC 

9 
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TERM 


07*7 0006 
07*8 350A 


TNM05 OC 
DC 


/OOOE 

/350A 


WO»C CCUNT 
EO 


07*9 0A02 


DC 


/0A02 


02 


07*A OOOO 


DC 


/OOOO 


SPACE 


07*B OOOO 


DC 


/OOOO 


SPACE 


07*C 1339 


OC 


/1 339 


TI 


07*0 2*35 


oc 


/2*35 


ME 


07«E 2912 


oc 


/2912 


RS 


07*F 0036 


oc 


/0036 


F 


0750 3139 


DC 


/3139 


XI 


0751 2300 


DC 


/2300 


L 


0752 1326 


oc 
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TO 


0753 0012 


oc 


/0Q12 


s 
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oc 
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TE 
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oc 
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P 
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oc 
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oc 
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oc 
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077F 2500 
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/2500 
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DC 
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2 
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oc 
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TI 


0782 2435 


oc 


Z2435 


HE 
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oc 
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R 
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oc 
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03E2 
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RT406 
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SEGCK 


0182 


018E, 0205, 0252.02CD, 0338, 030A, 0461 




SNSWS 
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01B4 


014C,0505 




SPVCK 
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svo 
svi 
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SV6 
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TIBCN 

TIINT 

TIIN1 

TIIN2 

TI1N3 

TIIN4 

TUNS 

TIIN6 

TIIOO 

TII01 

TII02 

TII03 

TII04 

TIMA 

TIMAA 

TIMA8 

TIMAC 

TIMAO 

TIMA! 

TIMAL 

TIMAN 

TIMER 

TINOO 

TIM01 

TIM02 

TIM03 

TIM04 

TIM05 

TISRT 

TIX01 

TIX02 

TIX03 
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TMM04 
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TABLE OF CONTENTS 
PARAGRAPH PAGE 

1. PURPOSE 01A 

2. PREREQUISITES 01A 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. USE PROCEOURE 01A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 
3.1 PROGRAM TERMINATION 

3.4 RESTART PROCEOURE 

3.5 PROGRAM HALTS I IN LISTING) 

4. PRINTOUTS 02A 

4.1 STATUS MESSAGES 

4.2 COMMAND MESSAGES 
4.9 DATA MESSAGES 
4.4 ERROR MESSAGES 



5. COMMENTS 



04A 



6. APPENDIX (NONE) 



1. PURPOSE 

THE INTERRUPT FUNCTION TEST CHECKS THE OPERATING CONDITION OF THE 
INTERRUPT CIRCUITS IN THE PROCESSOR/CONTROLLER. AUTOMATIC ANO MANUAL 
INTERRUPTS. INTERRUPT PRIORITY, MASK REGISTER. DISABLE INTERRUPT 
SWITCH. AND TRACE MODE ARE TESTED. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE 1800 BASIC DIAGNOSTIC LOADER PROGRAM IS REQUIRED TO LOAD THE 
INTERRUPT FUNCTION TEST "PROGRAM; ~ ._-.-—. 

2.2 EQUIPMENT PREREQUISITES 

THE FOLLOWING EQUIPMENT IS REQUIREO. 

A. 1C00 PROCESSQR/COrUnOLLER. 

B. 1442 CARD READ/PUNCH OR 1054 PAPER TAPE READER. 

C. EITHER A 1053/1016, CR 1443 PRINTER. 

3. USE PROCEOURE 

3.1 PROGRAM LOAOING 

REFER TO 1800 BASIC DIAGNOSTIC LOADER DOCUMENTATION PARAGRAPH 3.1, 
FOR LOADING INSTRUCTIONS. 



3.2 PROGRAM OPERATION 

AFTER LOADING PROCESSOR STOPS AT WAIT 1 IB REG 
STOPPEO AT WAIT 1, PROCEED AS FOLLOWS - 



3001) UITH PROCESSOR 



A. SET DISABLE INTERRUPT SWITCH TO OFF. 

B. SET CHECK STOP SWITCH TO OFF. 

C. SET WRITE STORAGE PROTECT BITS SUITCH TO YES. 

0. AT THE CE PANEL, INSURE THAT THE CE INTERRUPT SWITCH IS SET TO 
INTERRUPT TO HAIN STORAGE. 

E. SELECT PROGRAM GP1ICNS FROM TABLE 1. 

F. IF LOOP ROUTINE IS DESIRED, REFER TO TABLE 2. 

G. DEPRESS START PUSHBUTTON. PROGRAM SHOULD START EXECUTION. 

1. OPERATOR SHOULD PERFORM THE ACTIONS REQUESTEO BY THE PROGRAM. 
THE ACTIONS TO BE PERFORMED ARE INDICATED BY A PRINTOUT. 

2. IF THE OPTIOMS OF LOOP ROUT IKE OR LOOP PROGRAM ARE NOT 
SELECTED, THEN ROUTINE 1 THROUGH 6 WILL BE EXECUTED ONCE, 
FOLLOWEO BY PRINTOUT A001 PROGRAM COMPLETE. THE PROGRAM 
STOPS AT WAIT 2 B REG « 3002. PRESSING START RETURNS PROGRAM 
TO WAIT 1. 

3. IF A ROUTINE WAS SELECTED FOR LOOPING, THEN THAT ROUTINE WILL 
LOOP UNTIL THE PROGRAM IS TERMINATED OR THE LOOP ROUTINE 
FUNCTION IS CHANGED OR CLEARED. IF THE LOOP ROUTINE FUNCTION 
IS CHANGED, THEN THE NEW ROUTINE SELECTEO WILL BE LOOPED. 

IF THE LOOP ROUTINE FUNCTION IS CLEARED, THE PROGRAM WILL 
CONTINUE FROM THE PRESENT ROUTINE TO COMPLETION. FOR ROUTINE 
LOOPING WITH BYPASS MANUAL CHECKS, REFER TO NOTE 1 TABLE 2. 

4. IF LOOP PROGRAM WAS SELECTED. ANO THE MANUAL CHECKS WERE NOT 
BYPASSED, THEN ROUTINES 1 THROUGH 6 WILL BE RUN IN SEQUENCE 
IN LOOP FASHION. 

5. IF LOOP PROGRAM WAS SELECTEO AND THE MANUAL CHECKS ARE 
BYPASSEO, THEN THE PROGRAM WILL RUN ROUTINE 1, 1ST PASS OF 
ROUTINE 2 ANO ALL OF ROUTINE 3 AND 4 IN SEQUENTIAL LOOP 
FASHION. ROUTINE 5 ANO 6 ARE NOT RUN UNDER THIS SETUP. 
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TABLE 1 
PROGRAM OPTIONS - OATA ENTRY SWITCHES 

NOTE 

THE OPTIONS OF SELECT 1443 AS OUTPUT DEVICE, BYPASS MANUAL 
CHECKS, AND NL'MBCR OF INTERRUPT LEVELS SELECTED HILL BE 
HONOREO ONLY IF THEY ARE ENTERED WHILE THE PROCESSOR IS 
STOPPCD AT WAIT 1 IB REG ■ 3001). 

***«****««*«*******«««i»<<»o«6e***a**««*»***»******««6o«**«**«»**«»***«*****«*«*: 
OATA ENTRY SWITCHES * OPTION DESCRIPTION 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 

... ... 1.... HALT ON ERROR 

... . . 1 BYPASS ERROR PRINT 

. . . • 1 LOOP ON ERROR 

... 1 LOOP PROGRAM 

. . 1 USE 1443 AS OUTPUT DEVICE 

• 1 BYPASS MANUAL CHECKS - NOTE 1. 

1 • BYPASS ROUTINE 3 PRIORITY PRINTOUT 

12 INTERRUPT LEVELS 

18 INTERRUPT LEVELS 

1 ,. 24 INTERRUPT LEVELS 

NOTE 1 — MANUAL CHECKS INCLUDE DISABLE SWITCH, CONSOLE INTERRUPT 

PUSHBUTTON, CE INTERRUPT 8UTTCN AND TRACE MODE OPERATION. 
SWITCH 8 OY?ASSES THESE CHECKS BY PREVENTING PASS 2 OF 
ROUTINE 2 AND ALL OF ROUTINES 5 AND 6 FROM OPERATING. 
SWITCH 8 IN COHJUCTICri WITH OPTION SWITCHES 7 AND 11 WILL 
RUN Ti;E PROGRAM IN A HOOE ADAPTABLE TO SCOPING. 

TABLE 2 

***»*»»*♦*♦»***»» *♦*•»«*»»*«*#»»* »*♦»**••*•*#•♦•»»**»»**» ©»»♦#••♦••♦•••••♦»♦•• 
SENSE / PROGRAM • OPTION DESCRIPTION 

01234567* 



XXX. 



- ROUTINE DUMBER TO LOOP. N'JHOER MUST 

BE IN HEX AND MAY BE CHANGED AT ANY 
TIME. 

NOTE — IF ROUTINE ENTRY IS 5 OR 6 AND THE PROGRAM OPTION TO 

BYPASS MANUAL CHECKS HAS BEEN SELECTED, THCM THE PROGRAM 
MILL LOOP SELECTING THAT ROUTINE BUT NOT ALLOWING IT TO 
EXECUTE. IF ROUTINE ENTRY IS 2 AND BYPASS MANUAL CHECKS IS 
SELECTED, THEN ROUTINE 2 WILL LOOP WITHOUT CHECKING 
THE DISABLE INTERRUPT SWITCH. 
»•*•**« ♦••««»***«****«*«<.o&*»*»'..*»s. <.»<■«*»©«*♦*♦»*#***•»»» **»•♦*««#»#*#»»*♦»»«» 

3.3 PROGRAM TERMINATION 

A N0.1MAL PROGRAM RUN TERMINATES BY PROGRAM STOPPING AT WAIT ft 
FOLLOWING 'PROGRAM COKPLETE' PRINTOUT. DEPRESSION OF THE START 
PUSHBUTTON HILL CAUSE PROGRAM TO E1ANCH TO WAIT 1 TO PERMIT PROGRAM 
TO BE REPEATEO, IF OESIRED. 

THE PROGRAM MAY ALSO BE TERMINATED AT ANY TINE BY DEPRESSIN6 THE 
IKIIED STOP PUSHBUTTON. DEPRESSING RESET ANO START PUSHBUTTONS WILL 
ORANCH PROGRAM TO WAIT 1 TO PERMIT PROGRAM TO BE REPEATEO. 



3.4 RESTART PROCEDURE 

PRESS THE STOP, RESET AND START BUTTONS. THE PROGRAM SHOULD GO TO 
WAIT 1. IF THIS DOES NOT OCCUR, THE PROGRAM MUST BE RELOAOEO. 

3.5 PROGRAM HALTS I IN LISTING) 

PROGRAM WAITS ARE USEO IN THIS PROGRAM, AND ARE IDENTIFIED BY 
REFERENCING THE B REG ANO I REG. 

A PROGRAM WAIT IS OF THE FORM, 

30XX, I B REG I. 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUNO AT THE 
BEGINNING OF THE PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION FOLLOWS. 
IT IS INCLUDED TO SHOW THE FORMAT OF THE LISTING, ANO IT IS NOT 
NECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. 

3001 01EO DC HAITI*! 



WAIT 1 

ONE OF THE METERED I/O UNITS 
FAILED TO SEND A RESPONSE 
INTERRUPT TO THE PROGRAM. INDEX 
REGISTER 1 WILL HAVE THE AODRESS 
OF THE IOCC. THE AREA CODE WILL 
INDICATE THE I/O UNIT NOT REAOV. 
IF A 2401/02 DRIVE IS NOT READY, 
PROGRAM WILL NOT STOP AT WAIT 1. 



B REG, I FIRST 4 DIGIT GROUP ) CORRESPONDS TO B REG READING. 
I REG, I SECOND 4 OIGIT GROUP ) CORRESPONDS TO I REG REAOING. 



4. PRINTOUTS 



4.1 



THE VARIOUS PRINTOUTS THAT MAY OCCUR OURING EXECUTION OF THIS PROGRAM 
FOLLOW. 

STATUS MESSAGES 



A001 PROGRAM COMPLETE 



4.2 



ONE PASS THROUGH THE PROGRAM HAS BEEN COMPLETED. OEPRESS START TO 
RETURN TO UAIT 1. 

COHMAND MESSAGES 



C001 TURN DISABLE SW ON PUSH START 
COHMANO TO OPERATOR. 

C002 TURN DISABLE SW OFF 

COMMAND TO OPERATOR. PROGRAM SHOULD START EXECUTIONG WHEN SNITCH IS 
TURNEO OFF. IF IT DOES NOT, PUSH START TO CONTINUE. 
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C003 PUSH CE INTERRUPT BUTTON 

COMMAND TO OPERATOR. 

C004 PUSH CONS 1NTRP BUTTON 



CO'l.'l&ND TO OPERATOR. THE PROGRAM DELAYS FOR 1 MINUTE WAITING FOR THE 
BUTii'Orj TO BE PUSHED. IF THE BUTTON IS NOT PUSHED, OR IF IT FAILS TO 
INTERRUPT, AN ERROR PRINTOUT MILL OCCUR. 



C005 SET TRACE MCOE PUSH START 
CCUIANO TO OPERATOR. 

C0C6 SET RUN MODE PUSH START 

COMMAND TO OPERATOR. 



C007 SET DISABLE ON HIT CE ANO CONS BTNS SET TRACE AND START 

COIIIAfJD TO OPFRATOR TO CHECK CE AND CONSOLE INTERRUPT BUTTONS FOR 
INTERRUPTS UITH DISABLE INTERRUPT SWITCH ON. 

C008 REPAIR FAILURE BEFORE CONTINUING 

THIS PRINTOUT WILL FOLLOW ERROR MESSAGE EOOB. THE FAILURE INDICATED 
BY MESSAGE EOOB CAN CAUSE LOSS OF PROGRAM CONTROL IF THE PROGRAM IS 
CONTINUED ANO SHOULO THEREFORE BE REPAIREO BEFORE THE REMAINOER OF 
THE PROGRAM IS RUN. 



4.3 



OATA MESSAGES 



D001 RTN OX PRIORITY CHECK 

PRIORITY CHECK HEADING PRINTOUT. ROUTINE NUMBER CAN BE 3 OR 4. 

REQ SEQUENCE XX XX XX XX XX 

SRVC SEQUENCE XX XX XX XX XX 

THESE TWO PRINTOUTS WILL OCCUR FOLLOWING THE HEADING PRINTOUT. 
REQUEST SEQUENCE INDICATES THE OROER (READING FROM LEFT TO R1GHTI IN 
WHICH THE INTERRUPTS WERE RECEIVED BY THE TRAP ROUTINES. SERVICED 
SEQUENCE INDICATES IREAOING FROM LEFT TO RIGHT) THE OROER IN WHICH 
THE INTERRUPTS WERE SERVICEO BY THE TRAP ROUTINES. 

THE FIRST INTERRUPT IS ISSUED BY ROUTINE 3, OR WITH EITHER 1HE TRACE 
MODS OR CE INTERRUPT BUTTON BY ROUTINE 5. THE FIRST TRAP ROUTINE 
ENTERED, WILL ISSUE AN INTERRUPT TO THE NEXT HIGHER LEVEL ETC* UNTIL 
LEVEL 00 IS REACHED. LEVEL 00 WILL CAUSE AN OP CODE VIOLATE TO 
INTERRUPT TO LEVEL ERROR. LEVEL ERROR WILL BE SERVICEO IMMEDIATELY 
ANO CAUSE THE SERVICING OF ALL NESTED INTERRUPTS IN THE OPPOSITE 
ORDER THAN THEY WERE RECEIVEO. 

IF THE FIRST INTERRUPT REQUEST PAILS, BOTH THE REQUEST ANO SERVICEO 
SEQUENCE PRINTOUTS WILL BE BLANK. IF A REQUEST FAILS TO INTERRUPT 
FROM A TRAP ROUTINE, THEN, THE LEVEL FROM WHICH THE REQUEST WAS 
ISSUED WILL BE THE FIRST ONE SERVICED. 



TYPICAL CORRECT "R1NT0UTS FOLLOW. 

FOR ROUTINE 3 AND SYSTEM WITH 12 INTERRUPT LEVELS, 

REQ SEQUENCE 11 10 09 08 02 01 00 ER 

SRVC SEQUENCE ER 00 01 C2 08 09 10 11 

FOR ROUTINE 3 ANO SYSTEM WITH 18 INTERRUPT LEVELS. 

REQ SEQUENCE 17 16 IS 14 02 01 00 ER 

SRVC SEQUENCE ER 00 01 02 14 IS 16 17 

FOR ROUTINE 3 AND SYSTEM WITH 24 INTERRUPT LEVELS, 

REQ SEQUENCE 23 22 21 20 02 01 00 ER 

SRVC SEQUENCE ER 00 01 02 20 21 22 23 

FOR ROUTINE 5 AND SYSTEM WITH 12 INTERRUPT LEVELS, 

REQ SEQUENCE CE IOR TRI 11 10 09 02 01 00 ER 

SRVC SEQUENCE ER 00 01 02 09 10 11 CE (OR TRI 

FOR ROUTINE S ANO SYSTEM WITH 18 INTERRUPT LEVELS, 

REQ SEQUENCE CE (OR TRI 17 16 IS 02 01 00 ER 

SRVC SEQUENCE ER 00 01 02 IS 16 17 CE (OR TRI 

FOR ROUTINE S ANO SYSTEM WITH 24 INTERRUPT LEVELS, 

REQ SEQUENCE CE (OR TRI 23 22 21 02 01 00 ER 

SRVC SEQUENCE ER 00 01 02 21 22 23 CE (OR TRI 

0002 CONSOLE BUTTON ON LEVEL XX ILSW BIT X 

THIS PRINTOUT IS GIVEN BY ROUTINE 4 TO INDICATE THE LEVEL TO WHICH 
THE CONSOLE INTERRUPT PUSHBUTTON INTERRUPTS. THE ILSW BIT IS IN 
DECIMAL. IF NO ILSW BIT WAS ON, IT WILL BE INDICATED BY AN • • N ••. 



4.4 



ERROR MESSAGES 



E001 RTN OX LEVEL XX FAILED TO INTRP 

ROUTINE NUMBER (RTN) CAN BE 2, 4, OR 5. 
THIS ERROR PRINTOUT INDICATES THAT, 

A. THE LEVEL SPECIFIED FAILED TO RESPOND TO A PROGRA4NE0 
INTERRUPT. 

B. IF RTN 03, LEVEL ER, OP COOE VIOLATE FAILED TO INTERRUPT. 

C. IF RTN OS, LEVEL ER, VIOLATING A STORACE PROT«CTEO LOCATION 
FAILED TO CAUSE AN INTERRUPT. 

D. IF RTN 04, THE LEVEL SPECIFIED FAILEO TO INTERRUPT AFTER THE 
MASK REGISTER WAS RESET OFF. 

E002 RTN OX REQ XX GIVEN LEVL XX SRVCO 

ROUTINE NUMBER CAN BE 2, 4, OR 5. PRINTOUT OCCURS WHE* THE INTERRUPT 
GIVEN INTERRUPTS TO THE WRONG LEVEL. 
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E003 RTN OX REQ XX INTRPO WITH DISABLE SH ON 

ROUTINE NUMBER CAN BE 2 OR S. THE REQUEST NUMBER SPECIFIED RESULTED 
IN AN INTERRUPT WHILE THE OISABLE INTERRUPT SMITCH HAS ON. 

£004 RTN OX WRONG ILSU ON ERR INTRP 

IF ROUTINE 2, THE ILSU HAS WRONG FOR AN OP CODE VIOLATE. IF ROUTINE 
5. THE ILSU WAS WRONG FOR A STORAGE PROTECT VIOLATION. 

£005 SEQUENCE ERROR RTN OX 

ROUTINE NUMBER SPECIFUO SHOULD HAVE BEEN RUN, BUT MAS NOT. PUSH 
START TO GO TO WAIT 1. 

£006 RTN 4 LEVEL XX INTRPO WHILE MASKED 

THE LEVEL SPECIFIED INTERRUPTED WHILE THE MASK REGISTER HAS SET ON. 

£007 RTN 2 INT XX ILSU NOT ZERO 

THE ILSU FOR THE LEVEL INDICATED HAS NOT ZERO AFTER A PROGRAMHEO 
INTERRUPT. FOLLOWING THIS PRINTOUT, IF THE PROGRAM IS IN A NORMAL 
PROGRAM RUN, IT UILL STOP AT UAIT IS UITH ILSU IN A REGISTER. 

£008 RTN 6 TRACE DID NOT INTRPT ON PASS XX 

TEN PASSES ARE MAOE THROUGH THIS ROUTINE. IF ANY PASS IS MADE WITHOUT 
RECEIVING A TRACE INTERRUPT THIS PRINTOUT UILL OCCUR, INDICATING THE 
PASS NUMBER. 

£009 RTN 6 EXPECTEO INTRPT FROM INSTRN XX GOT XX 

THE ROUTINE HAS 10 INSTRUCTIONS WHICH SHOULD INTERRUPT IN SEQUENCE. 
IF THE SEQUENCE IS OESTROYED OUE TO A SKIPPED INSTRUCTION OR BECAUSE 
TRACE FAILED TO INTERRUPT, THE PRINTOUT WILL OCCUR, INDICATING THE 
INSTRUCTION THAT INTERRUPTED, AND THE INSTRUCTION THAT SHOULD HAVE 
INTERRUPTED. 

THE INSTRUCTIONS USED IN THE ROUTINE FOLLOW. 



1 


LO 


6 N 


2 


RTE 


7 A 


3 


STO 


8 BSC 


4 


S 


9 NOP 


5 


EOR 


10 MDX 



EOOA CONSOLE BUTTON FAILED 

IF THE CONSOLE BUTTON DOES NOT CAUSE AN INTERRUPT, OR IF THE CONSOLE 
BUTTON IS NOT DEPRESSED WITHIN 1 MINUTE AFTER THE OPERATOR MAS 
REQUESTED TO 00 SO, THIS PRINTOUT WILL OCCUR. 

EOOB RTN1 INTRPT NOT INHIBITED AFTER XXX 

XXX REPRESENTS EITHER XIO OR BSI. THIS PRINTOUT INDICATES THAT AN 
INTERRUPT WAS NOT INHIBITED FOR 1 INSTRUCTION FOLLOWING THE 
EXECUTION OF AN XIO OR BSI INSTRUCTION. 
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EOOC ILLEGAL RTN ENTRY 



AN ENTRY OF 7 WAS ENTERED IN THE SENSE PROGRAM SWITCHES- 
INVALID ENTRY. PROGRAM RETURNS TO UAIT 1, B REG - 3001. 



THIS IS AN 



5. COMMENTS 



THE INTERRUPT FUNCTION TEST CONSISTS OF A CONTROL ROUTINE AND SIX 
TESTING ROUTINES. INTERRUPT LEVELS THROUGH 23 ARE CHECKED USING THE 
PROGRAMMED INTERRUPT FEATURE. LEVEL INTERNAL IS CHECKED BY ISSUING OP 
CODE VIOLATES AND STORAGE PROTECT VIOLATES. LEVELS TR AND CE ARE 
CHECKED OUT THROUGH THEIR ASSOCIATED HAROUARE. THE CONSOLE INTR 
PUSHBUTTON IS ALSO CHECKEO. 

THE CONTROL ROUTINE SEQUENCES THE TEST ROUTINES AND ACCOMPLISHES THE 
PROGRAM OPTIONS SPECIFIED 6V THE OPERATOR. 

ROUTINE 1 CHECKS TO INSURE THAT THE INTERRUPT IS DELAYED FOR 1 
INSTRUCTION FOLLOWING THE EXECUTION OF AN XIO AND BSI. THE XIO CHECK 
IS MAOE FIRST. THE BSI CHECK IS THEN MADE BY EXECUTING THE BSI 
IMMEDIATELY AFTER AN XIO. IF AN ERROR IS DEFECTED, THE CE UILL 
RECEIVE A FIX COMMAND ANO THE PROSRAM HILL GO TO UAIT 1. 

ROUTINE 2 CHECKS THE BASIC OPERATION OF INTERRUPT LEVELS THROUGH 23 
AND INTERRUPT LEVEL INTERNAL. PASS 1 CHECKS FOR PROPER INTERRUPTING 
AND PASS 2 CHECKS FOR NO INTERRUPTS UITH THE DISABLE INTERRUPT SWITCH 
SET TO ON. LEVEL INTERNAL IS CHECKED WITH AN OP CODE VIOLATE, AND IS 
ALSO CHECKEO FOR PROPER ILSU PIT ON. LEVELS THROUGH 23 ARE CHECKED 
FOR NO ILSW BIT BEING ON AFTER PROGRAM INTERRUPT. EACH PASS IS RUN 
SOO TIMES. 

ROUTINE 3 CHECKS LEVELS THROUGH 23 AND LEVEL INTERNAL FOR PROPER 
PRIORITY SEQUENCING. THE METHOD USED TO CHECK PRIORITY SEQUENCING IS 
EXPLAINED IN PARAGRAPH 4. PRINTOUTS* UNDER THE 'RTN OX PRIORITY 
CHECK* PRINTOUT. 

ROUTINE 4 CHECKS THE MASK REGISTER. THE FIRST PASS CHECKS THAT THE 
MASK REG. CAN BE SET ON, ANO THE SECOND PASS CHECKS THAT IT CAN BE 
RESET OFF. THE CHECK IS MADE SOO TIMES. 

ROUTINE 5 CHECKS THE HARDWARE INTERRUPT FEATURES, THAT IS THE CONSOLE 
INTR AND CE INTERRUPT PUSHBUTTONS. ANO THE TRACE MODE CIRCUITRY. 
PROPER INTERRUPTING, PRIORITY, ANO INTERRUPT OISABLE ARE CHECKED. 
LEVEL INTERNAL ILSU IS CHECKEO FOR PROPER BIT ON AFTER A STORAGE 
PROTECT VIOLATION. 

ROUTINE 6 IS A CHECK OF TRACE MODE UHILE RUNNING A 10 INSTRUCTION 
ROUTINE. TEN PASSES ARE MAOE THROUGH THIS ROUTINE. THE 10 
INSTRUCTIONS USED ARE LISTED IN PARAGRAPH 4. PRINTOUTS, UNDER 
•RTNOS EXPECTEO INTRPT FROM INSTRN XX GOT XX* PRINTOUT. 
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02BC 



3001 0130 



3002 0175 



3003 018* 



3004 027F 



3005 0250 



3006 035C 



3007 0386 



3008 038E 



3009 03CF 



DATE 28FEB66 

EC NO. 415120 



ABS 
ORG 



DC 



/3001 



WTl*l 



DC 



DC 



WT2»1 



WT3»1 



DC 



MT4»1 



OC 



WT5M 



DC 



MT6*1 



OC 



NT 7*1 



DC 



DC 



WT8*1 



KT9+1 



IN AY 66 
415120A 



08JUN66 
415175 



•* PROGRAM WAITS •* 

WAIT 1 

WAIT OCCURS AFTER PROGRAM 
HAS LOADED. PERFORM SETUP, 
ENTER DESIRED OPTIONS IN 
OATA ENTRY SWITCHES AND 
DEPRESS START. 

WAIT 2 

PROGRAM RAN TO COMPLETION. 
DEPRESSING START RETURNS 
PROGRAM TO WAIT 1. 

WAIT 3 

PROGRAM SEQUENCE ERROR. 
SUPERVISOR SECTION OF 
PROGRAM DECTEO AN ERROR 
IN ROUTINE SEQUENCING. 

WAIT 4 

ROUTINE 2 WAIT. TURN THE 
DISABLE INTERRUPT SWITCH 
ON AND DEPRESS THE START 
PUSHBUTTON. 

WAIT 5 

ROUTINE 2 WAIT. TURN THE 
OISABLE INTERRUPT SWITCH 
OFF. PROGRAM SHOULD START 
EXECUTION. IF IT DCES NOT 
IOUE 10 INTERNAL INTERRUPT 
FAILURE IPRESS START BUTTON 
TO CONTINUE. 

WAIT 6 

ROUTINE 5 WAIT. WRONG ILSM 
WAS SENSED ON STORAGE 
PROTECT VIOLATE INTERRUPT. 
THE ILSW IS IN THE A REC. 
PUSH START TO CONTINUE. 

WAIT 7 

ROUTINE 5 WAIT. SET MOOE 
SWITCH TO TRACE AND PRESS 
START. PROGRAM WILL CHECK 
TRACE INTERRUPT. 

WAIT • 

ROUTINE 5 WAIT. SET MOOE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 

WAIT 9 

ROUTINE 5 WAIT. SET MOOE 
SNITCH TO TRACE AND PRESS 



04N0V66 
415233 



8B300010 
8B300020 
8B300030 
8B300040 
8B300050 
8B300060 
8B300070 
8B300080 
8B300090 
8B300100 
8B300110 
8B300120 
8B300130 
8B300140 
BB300150 
BB300160 
8B300170 
8B3001B0 
8B300190 
8B300200 
8B300210 
8B300220 
88300230 
8B300240 
8B300250 
BB300260 
8B300270 
8B30O280 
8B30O290 
8B300300 
8B30031O 
8B300320 
8B300330 
8B300340 
86300350 
8S300360 
BB300370 
88300380 
88300390 
8B30040O 
88300410 
88300420 
88300430 
88300440 
8B3C0450 
•8300460 
8A300470 
8B3004BO 
•8300490 
8B300500 
8B300510 
6B300520 
8B30O53O 
88300540 
8B300S50 
8B300560 
6B300570 
8B300580 
8B300590 
88300600 
8B300610 
BB300620 
8B30O630 
8B300640 
8B300650 
88300660 
BB300670 
8B300680 
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PAGE 



300A 03D6 



3008 03E6 



300C 03F7 



3000 040A 



300E 040E 



300F 0450 



n 



0883-1 
1 



n 



n 



3010 0475 



3011 051F 



3012 0538 



DATE 28FEB66 
EC NO. 415120 



DC 



DC 



DC 



DC 



DC 



DC 



START. PROGRAM WILL MAKE 
AN INTERRUPT PRIORITY 
CHECK IN TRACE MOOE 
OPERATION. 

WTA+1 WAIT A 

ROUTINE 5 WAIT. SET MODE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 

WTB+1 WAIT B 

ROUTINE 5 WAIT. DEPRESS 
C.E. INTERRUPT BUTTON. 
PROGRAM WILL MAKE AN 
INTERRUPT PRIOPITY ChECK 
WITH THE C.E. INTERRUPT 
LEVEL. 

WTC*1 WAIT C 

ROUTINE 5 WAIT. SET THE 
DISABLE INTERRUPT SWITCH 
ON, THEN DEPRESS THE C.E. 
INTERRUPT ANO CONSOLE 
INTERRUPT BUTTONS. NO 
INTERRUPT SHOULD OCCUR. 
THEN SET TRACC MODE AND 
DEPRESS START. 

WTD+1 WAIT D 

ROUTINE 5 WAIT. SET THE 
MODE SWITCH TO RUN AND 
DEPRESS START. 

WTE+l WAIT E 

ROUTINE 5 WAIT. TURN THE 
DISABLE INTERRUPT SWITCH 
OFF. PROGRAM SHOULD CONTI- 
NUE. IF IT OOES NOT! DUE 
TO OISABLE INTERRUPT IN- 
OPERATIVE* i HEN PUSH START 
TO CONTINUE. 

WTF-tl WAIT F 

ROUTINE 6 WAIT. SET MOOE 
SWITCH TO TRACE ANO PRESS 
START EUTTON. PROGRAM WILL 
CHECK TRACE MOOE OPERATION 



OC 



OC 



OC 



01MAY66 
415120A 



WT10+1 



WAIT 10 



ROUTINE 6 WAIT. SET MOOE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 



WTll*l 



WAIT 11 



HALT ON ERROR OPTION 
REQUESTED. DEPRESS START 
BUTTON TO CONTINUE. 



WT12*1 



WAIT 12 



08JUN66 
415175 



04N0V66 
415233 



8B300690 
8B300700 
8B300710 
6B300720 
8B300730 
8B300740 
8B300750 
8B300760 
8B300770 
8B300780 
8B300790 
8B300800 
8B300810 
8B300820 
BB300830 
8B300840 
8B300850 
8B300860 
8B300870 
8B300880 
8B300890 
8B300900 
8B300910 
8B300O20 
8B300930 
8B300940 
BB300950 
8B300960 
8B300970 
8B300980 
8B300990 
8B301000 
8B301010 
8B301020 
8B301030 
8B301040 
88301050 
8B301060 
8B30107C 
8B301080 
88301090 
8B301100 
88301110 
8B301120 
8B301130 
88301140 
8B3011S0 
8B301160 
8B301170 
8B301180 
88301190 
8B301200 
88301210 
8B301220 
8B301230 
8B301240 
88301250 
88301260 
8B301270 
86301280 
88301290 
8B301300 
86301310 
8B301320 
86301330 
88301340 
88301350 
86301360 
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5013 053A 



301* 0553 



3015 06CS 



3016 

012C 8300 



0120 00 4400048E 

012F CC64 
0130 00 OC000026 

0132 C863 

0133 00 CCOOOOOO 



0135 
0136 
0137 



1010 

D058 
D061 



0138 00 04000428 
013A 2C40 
013B 0429 



013C 





3001 


0130 





084C 


013E 





10A0 


01 3F 





C052 


0140 





16CB 


0141 





1010 


0142 





1081 


0143 





D055 


0144 





1010 


0145 





1081 


0146 





0053 



1443 NOT READY. MAKE 1443 
READY AND DEPRESS START. 



DC 



WT13*1 



WAIT 13 



1443 BUSY. THIS IS AN 
ERROR CONDITION. REMEDY 
CAUSE, THEN PUSH START TO 
CONTINUE. 



DC 



DC 



WT14M 



WAIT 14 



1816/1053 NUMBER 1 NOT 
READY. MAKE REAOY ANO PUSH 
START TO CONTINUE. 



WT15*1 



WAIT IS 



ORC 
DC 



THIS WAIT MILL OCCUR 
DURING ROUTINE 2 IF OPTION 
BIT SWITCH 8 IS NOT ON, ANO 
AN 1LSU ERROR IS DETECTED 
ON A PROG.GtNERATED INTER- 
RUPT. THE ILSW IS IN THE 
A REG. OEPRESS START TO 
CONTINUE. 

300 

/S300 PID 

• • 

• INTERRUPT FUNCT TEST • 

• •• INfRP •• • 

• • 



CONTROL ROUTINE 



START BSt I 

LOD 
STO L 
LDD 
STO L 

SLA 

STO 

STO 

STO L 

DC 

DC 

WT1 WAIT 

xto 

C0N01 SLT 
LD 
RTE 
SLA 
SLT 
STO 
SLA 
SLT 
STO 



INTST 

CNC02 
/0026 
CNC03 
/OOOO 

16 

BSUOO 
RUNSW 
CN400 
/2C40 
CN401 

1 

BSMO 
32 

eswoo 

a 

16 
1 

RUNSW 

16 

1 

OPIND 



SET SPURIOUS INT ADR 

SET RESTART ADDRESS 
IN LOCATION 26 



CLEAR BIT SWITCH 

•READ IN AREA ANO BY 
•PASS MAN CKS SWITCH 
CLEAR TRACE IND1CAT0 
INSURE SP AREA IS 
•CLEAR 

ENTER PROG. OPT IONS 

REAO BIT SWITCHES 

CLEAR A AND Q 
GET OPTION ENTRY 



SET RUN SWITCH 



SET OUTPUT DEVICE ID 



DATE 
EC NO. 



26FEB66 
415120 



01MAY66 
415120A 



08JUN66 
♦15175 



DETERMINE NUMBER fF LEVELS 



04N0V66 
415233 



8B301370 
8B301380 
8B301390 
8B301400 
8B301410 
8B301420 
8B301430 
83301440 
8B301450 
8B301460 
8B301470 
8B301480 
803O149O 
8B301500 
8B301510 
8B301520 
8B301530 
8B301540 
8B301550 
BB301560 
8B301570 
8B301580 
8B301590 
8B301600 
88301610 
8B301620 
8B301630 
BB301640 
8B30165C 
8B301660 
88301670 
8B301680 
8B301690 
8B301700 
8B301710 
88301720 
8B301730 
8B301740 
6B301750 
BB301760 
88301770 
6B301780 
8B301790 
8B301600 
8B301810 
88301620 
8B301830 
8B301840 
8B301850 
88301860 
BB301870 
6B301880 
6B30189D 
8B301900 
8830X910 
BB301920 
8P301930 
BB301940 
88301950 
QB30196Q 
8B301970 
8B301980 
8B301990 
8B302000 
8B302010 
BB302020 
8B302030 
8B302040 
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0147 
0148 
0149 
014A 
014B 
014C 
0140 
014E 
014F 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 



0159 
01 5A 



0158 

015C 

0150 

015E 

015F 

0160 

0161 

0162 

0163 

0164 

0165 

0166 00 

0168 00 

016A 00 

















C04A 
4810 
7004 
6311 
6B4C 
6302 
700A 
1001 
4810 
7004 
6317 
6845 
6304 
7003 
630B 
6B41 
6300 
6B35 

1010 
0034 

062C 

1005 

1800 

4 808 

7002 

002E 

7006 

C02C 

902C 

4818 

7006 

740101BF 

6580018F 

4D80019A 



016C 0810 

0160 C024 

016E 1804 

016F 4804 

0170 70E8 



0171 00 44000523 
0173 09C9 



0174 3002 

0175 00 4C000120 



0177 C019 

0178 4818 

0179 70EI 

017A 00 6780018F 
017C 00 C700092F 
017E 00 04000A2C 



0180 00 44000523 
0182 0A1D 



LO 

BSC 

MDX 

LOX 

STX 

LDX 

MDX 

CTRL1 SLA 
BSC 
MDX 
LOX 
STX 
LDX 
MDX 

CTRL2 LDX 
STX 
LDX 

CTRL3 STX 

• 

C0N06 SLA 

sro 

CNTRL 



BSW00 

CTRL1 

17 

LVSAV 

2 

CTRL3 

1 

CTRL2 

23 

LVSAV 

4 

CTRL3 

11 

LVSAV 



LVLIX 

16 

RTNN0 



LVL 



1 

ON 

BIT 



GET OPTION ENTRIES 

SKIP IF BIT ON 

BRANCH ON NOT BIT 

SET LEVEL INDICATOR 

*FOR 18 LEVELS 

SET INDEX FOR 18 

CONTINUE 

CHECK FOR BIT 

SKIP IF BIT 1 

BRANCH ON NOT 

SET LEVEL INOICATOR 

•FOR 24 LEVELS 

SET INDEX FOR 24 LVL 

CONTINUE 

SET LEVEL INDICATOR 

♦FOR 12 LEVELS 

SET INDEX FOR 12 LVL 

SAVE INDEX SETTING 



CLEAR ROUTN. NUMBER 



XIO SNSWS 

SLA 5 

SRA 13 

BSC * 

MDX »+2 

STO RTNNO 

MDX C0N05*2 

LD RTNNO 

S SIX 

BSC ♦- 

MOX C0N03 ALL ROUTINES HAVE RN 

C0N05 MOX L RTNNO, 1 

LOX II RTNNO 

BSC II RTN-1 
• 

• 

C0N03 XIO BSWO 

LD BSWOO 

SRA 4 

BSC E 

MDX CON06 
* 
********************************************* 

BSI L LOG PRINT PROGRAM SRC 

DC INM07 IS COMPLETE 
******** *************************** ********** 

* 

PROGRAM COMPLETE 
PROGRAM RESTART 



READ SENSE SWITCHES 
CHECK FOR LOOP RTN 

SKIP IF LOOP ROUTINE 



GO EXECUTE ROUTINE 

CK IF ALL RTNS RUN 

ALL ROUTINES HAVE 
ADD 1 TO RTN. NO. 

EXIT TO ROUTINE 



ALL ROUTINES HAVE RUN 

READ BIT SWITCHES 
GET BIT SWITCHES 
CK LOOP PROGRAM 

LOOP PROGRAM 



WT2 



2 
START 



SEQCK 

CNTRL 

13 RTNNO 
L3 INLVT-H 
L INM12+15 



•*• ROUTINE RETURN ••• 
SEQUENCE CHECK 



WAIT 
BSC 

* 
* 

RTNRT LD 
BSC 

MDX 

* 

LOX 

LD 

STO 

* 
********************************************* 

BSI L LOG PRINT SEQUENCE SRC 

DC INM12 ERROR 

********************************************* 



CHECK OK 



GET HEX. VALUE OF 
SET IN MESSAGE 



RTN 



08B3-1 

2 



DATE 
EC NO. 



2eFEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B302050 
8B302060 
8B302070 
8B302080 
8B302090 
8B302100 
8B302110 
8B302120 
8B302130 
8B302140 
8B302150 
8B302160 
8B302170 
8B302180 
6B302190 
8B30220G 
8B302210 
8B302220 
8B302230 
8B302240 
8B302250 
8B302260 
8B302270 
8B302280 
8B302290 
8B302300 
8B302310 
8B302320 
8B302330 
8B302340 
8B302350 
8B302360 
8B302370 
88302380 
8B302390 
8B302400 
8B302410 
8B302420 
8B302430 
8B302440 
8B302450 
8B302460 
8B302470 
8B302480 
8B302490 
8B302S00 
8B3O2510 
8B302520 
8B302530 
8B302540 
8B302558 
8B302560 
8B302570 
88302580 
8B302S90 
8B302600 
8B302610 
8B302620 
8B302630 
8B302640 
6B302650 
8B302660 
8B302670 
8B307680 
8B302690 
88302700 
8B302710 
88302720 
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0183 





3003 


MT3 


WAIT 


3 


0184 


00 


4C000120 


• 
* 


BSC L 


START 


0186 


00 


00000000 


• 


DEC 





0188 





0000 


SNSWS 


DC 


/oooo 


0189 





0760 




DC 


/0760 


018A 





0192 


BSHO 


DC 


BSWOO 


0188 





0240 


* 
BSW1 


DC 


/0240 


018C 





0193 


DC 


BSWOl 


0180 





0240 


* 
LVLIX 


DC 


/0240 


018E 





0000 


DC 





01 8F 





0000 


RTNNO 


DC 





0190 





0006 


SIX 


DC 


6 


0191 





0000 


SEQCK 

* 
BSUOO 


DC 





0192 





0000 


DC 





0193 





0000 


BSWOl 

* 
CNC02 


DC 





0194 





4C00 


DC 


/4C00 


0195 





0120 




DC 


START 


0196 





7025 


CNC03 


DC 


/7025 


0197 





4400 




DC 


/4400 


0198 





0000 


LVSAV 


DC 





0199 





0000 


RUNSM 


DC 





019A 





0000 


OP I NO 

* 
* 
* 
RTN 


DC 





019B 





01A6 


DC 


INTOO 


01 9C 





01FE 




DC 


INT01 


0190 





0292 




DC 


INT02 


019E 





02B5 




DC 


INT03 


019F 





0328 




DC 


INT04 


01A0 





0446 




DC 


INT05 


01A1 





01A2 




DC 


INTER 



SEQUENCE ERROR 



CONTROL ROUTINE CONSTANTS 



READ SENSE SW IOCC 
READ BIT SWITCH IOCC 



REAO BIT SWITCH IOCC 



NO.OF LEVELS INDEX 
ROUTINE NUMBER 
CONSTANT 6 
SEQUENCE CHECK SAVE 

BIT SW. CONTROL DATA 
NO INTERRUPT LEVELS 

RESTART INSTRUCTIONS 



NO. INTR.LVLS SAVE 
OUTPUT OEVICE INDCTR 



ROUTINE ADDRESSES 



ROUTINE 1 

ROUTINE 2 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 



3 

4 
5 

6 



01A2 00 44000523 
01A4 C 0B9F 



01 A5 7096 



INVALID ENTRY 

********************************************* 
INTER BSI L LOG PRINT INVALID ENTRY 

DC INM25 
********************************************* 

* 

MDX WT1 RETURN TO WAIT 1 

* 

********************************************* 
* ROUTINE NUMBFR ONE 

********************************************* 



SRC 



01 A6 


00 


OC000320 


INTOO 


XIO 


L 


MASKO 




MASK INTERRUPTS 


01A8 


00 


0C000322 


• 


XIO 


L 


MA SKI 






01AA 





631B 


LDX 


3 


27 




SET INTERRUPT 


01AB 


00 


C40001F5 




LO 


L 


VCTOR 




•TRANSFER VECTOR 


01A0 


00 


07000007 




STO 


L3 


7 






01AF 





73FF 




MDX 


3 


-1 






01B0 





70FC 




MOX 




*-4 






01B1 





C848 




LOO 




XIO 




SET UP He S SAGE 


01B2 


00 


DC000B66 




STD 


L 


INM23«22 




01B4 


00 


CC00028C 




LOO 


L 


XIOCC 




SET UP IOCC 


01B6 


00 


DC00028A 




STD 


L 


ISINT 






01B8 





630C 




LDX 


3 


12 




SET INTRP INDEX 


0189 


00 


650001C5 




LDX 


LI 


PLU1 




SET UP TRAP ROUTINE 


01BB 


00 


6D000608 




STX 


LI 


PLEXT*! 


RETURN 


01BD 


00 


OC000324 




XIO 


L 


UMSKO 




UNMASK INTERRUPTS 


OATE 




28FEB66 


01MAV66 


08JUN66 


04N0V66 


EC NO. 


415120 


41512 


OA 


41S175 


415233 



8B302730 
8B302740 
8B302750 
8B302760 
8B302770 
88302780 
8B302790 
8B302800 
8B302810 
8B302820 
88302830 
BB302840 
8B3C2850 
88302860 
8B302870 
8B302880 
8B302890 
8B302900 
8B302910 
8B302920 
8B302930 
8B302940 
8B302950 
8B302960 
8B302970 
8B302980 
8B302990 
8B303000 
88303010 
8B303020 
88303030 
8B303040 
8B303050 
8B303060 
88303070 
8B303080 
88303090 
8B303100 
8B303110 
8B303120 
8B303130 
8B303140 
8B303150 
8B303160 
8B303170 
8B303180 
8B303190 
8B303200 
8B303210 
8B303220 
8B303230 
8B303240 
BB303250 
88303260 
8B303270 
8B303280 
8B303290 
8B303300 
8B303310 
8B30332O 
88303330 
8B303340 
8B303350 
8B303360 
8B303370 
88303380 
8B303390 
BB303400 
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01BF 


00 


0C000326 




XIO 


L 


UMSK1 




01C1 


00 


0C00028A 


IN001 


XIO 


L 


ISINT 


ISSUE INTRP CHECK 


01C3 





1000 




NOP 






• POLL 3N XU 


01C4 





701C 


PL1 


MOX 




FAIL 


INTERRUPT FAILED 


01C5 





C030 




LD 




ICTR 


CHECK FOR PROPER I 


01C6 





F030 




EOR 




XIOCK 


♦cOUNT ON INTERRUPT 


01C7 


00 


4C2001E9 


• 


BSC 


L 


POLER, I 


BRANCH ON WRONG I CT 


01C9 





C832 


LOO 




BSI 


SET UP MESSAGE 


01CA 


00 


DCOO0B86 




STD 


L 


INM23+22 




01CC 


00 


650001D6 




LDX 


LI 


PL2*l 


SET UP TRAP ROUTINE 


01CE 


00 


60000608 


• 


STX 


LI 


PLEXT+1 


•RETURN 


0100 


00 


0C00028A 


XIO 


L 


ISINT 


ISSUE INTRP CHECK 


01D2 





4000 




BSI 




* 


•FOLL ON BSI 


0103 





1000 




NOP 








0104 





1000 




NOP 








01D5 





7004 


PL2 


MOX 




♦ ♦4 


BRNCH IF INTRP FAILD 


0106 





COIF 




LD 




ICTR 


CHECK FOR PROPER I 


0107 





F020 




EOR 




BSICK 


•COUNT ON INTERRUPT 


0108 


00 


4C2001E9 


* 
IN002 


BSC 


L 


POLER, Z 


BRANCH ON WRONG I CT 


010A 





C0B4 


LO 




RTNNO 


PREPARE SEQUENCE CK 


010B 





F01D 




EOR 




CN001 




010C 





D0B4 




STO 




SEQCK 




010D 


00 


4400048E 


• 


BSI 


L 


INTST 


SETUP XFER VECTORS 


01DF 


00 


4C000177 


BSC 


L 


RTNRT 


RETURN TO CONTROL 


01E1 


00 


C400028A 


FAIL 


LD 


L 


ISINT 


MODIFY IOCC FOR 


C1E3 





1001 




SLA 




1 


•NEXT INTERRUPT 


01E4 


00 


0400028A 




STO 


L 


ISINT 




01E6 





73FF 




MDX 


3 


-1 




01E7 





7009 




MDX 




IN001 


CONTINUE 


01E8 





70F1 


* 
POLER 


MDX 




IN002 


ENO ROUTINE 


01E9 


00 


650001A6 


LDX 


LI 


INTOO 


SET LOOP ERROR 


01E8 


00 


6D000521 




STX 


LI 


LPERR+1 


•RETURN 



SRC 



01ED 00 440004F5 

01EF CB70 

01F0 00 44000523 

01F2 0B89 



01F3 00 4C00013C 



• 
********************************************* 

BSI L ERROR PRINT POLL ERROR SRC 

OC INM23 MESSAGE TAG 

BSI L LOG PRINT FIX COMMAND 

DC INM24 

*********** **************************** ****** 

• 

BSC L WT1 GO TO WAIT 1 



01F5 





0601 


01F6 





0000 


01F7 





0104 


C1F8 





01O5 


01F9 





0001 


01FA 




0000 


01FA 





0017 


01FB 





3926 


01FC 





0032 


01FD 





1239 



• 
• 
VCTOR 




ROUTINE 1 CONSTANTS 


DC 


POLL 


TRANSFER VECTOR 


ICTR 


DC 





I COUNT ON INTERRUPT 


XIOCK 


DC 


PL1 


XIO CHECK CONSTANT 


BSICK 


DC 


PL2 


BSI CHECK CONSTANT 


CNOOl 


DC 


1 


CONSTANT 1 




BSS 


E 




XIO 


DC 


/0017 


X 




DC 


/3926 


10 


BSI 


OC 


/0032 


8 




DC 


/1239 


SI 



******************************* *•***• •**••*** 
• ROUTINE NUMBER TWO 

•••••••*•••**•*•••**•*****•***••••••••••••••• 

• 



01FE 00 C40C0931 
0200 00 04000975 
0202 00 0400098A 
0204 00 D40009A1 



INT01 LD 
STO 
STO 
STO 



INLVT+3 

INM03»7 
INM04+7 
INH05*7 



GET HEX 2 

SET ROUTINE NUMBER 

IN ERROR MESSAGES 



08B3-1 
3 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B303410 
88303420 
8B303430 
88303440 
8B303450 
8B303460 
8B303470 
8B303480 
88303490 
8B303500 
88303510 
8B303520 
8B303530 
BB303540 
8B303550 
8B303560 
8B303570 
88303580 
8B303590 
8B303600 
BB303610 
8B303620 
8630363*3 
8B303640 
88303650 
88303660 
8B303670 
8B303680 
8B303690 
8B303700 
8B303710 
8B303720 
8B303730 
8B303740 
8B303750 
88303760 
8B303770 
8B303780 
88303790 
8B303800 
8B303810 
8B303820 
8B303830 
8B303840 
8S303850 
8B303860 
8B303870 
88303680 
8B303890 
88303900 
88303910 
8B303920 
88303930 
8B303940 
88303950 
8B303960 
8B303970 
8B303980 
8B303990 
8B304000 
8B304010 
88304020 
8B304030 
8B304040 
8B304050 
8B304060 
8B4C4070 
8B304080 
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0206 


00 


D40009BB 


• 


STO 


L 


INM06«7 




8B304090 
6B304100 




020S 


00 


440004AA 


• 


BS1 


L 


LVLST 


CO SET INTERPT AORSS 


88304110 
8B304170 




020A 


00 


C4000280 




10 


L 


CN101 




8P304130 




020C 


00 


0400C281 




STO 


L 


CN102 


SET 1ST PASS SWITCH 


88304140 




020E 


00 


C4000284 




to 


L 


CN103 


SET PASS SNITCH 


88304150 




0210 


00 


04000285 


• 


STO 


L 


PSSM 




88304160 
88304170 




0212 


00 


C4000282 


RT100 


LO 


L 


CN103 




8B304180 




0214 


00 


04000286 




STO 


L 


ECKSM 


S£ LVL ER CHECK SW. 


88304190 




0216 


00 


65800198 




LDX 


11 


LVSAV 




8B3J4200 




0218 





">101 




MOX 


1 


1 


IX 1 - N). LEVELS ♦ . 


88304210 




0219 


00 


66800198 




LDX 


12 


LVSAV 




8B304220 




02 IB 





7201 




MOX 


2 


1 


IX 2 - NO. LEVELS ♦' 


88304230 




021C 


00 


67000226 




LDX 


L3 


RT101 




8B304240 




02 IE 


00 


6F000S21 


• 


STX 


L3 


LPERR*1 


SET LOOP ERR RETURN 


BB304250 
8B304260 




0220 


00 


6780018E 




LDX 


13 


LVLIX 


SET UP INTERRUPT 


8B304270 




0222 


00 


CF00028C 




LOD 


L3 


XIOCC 


IOCC 


88304780 




0224 


00 


OC00028A 


• 


STO 


L 


ISINT 




BB304290 
88304300 




0226 


00 


C600092E 


RT101 


LD 


L2 


INLVT 


SET REQUEST NUMBER 


88304310 




0228 


00 


04000979 




STO 


L 


INM03+11 


IN crrcr MESSAGES 


8B304320 




022A 


00 


D400098E 




STO 


L 


INM04411 




89304330 




022C 


00 


040009AS 




STO 


L 


INM05«11 




8B304340 




022 E 


00 


D4000A4F 


• 


STO 


L 


INN14«10 




88304350 
8B304360 




0230 





0859 




XIO 




ISINT 


ISSUE PROGMO INTRPT 


8B304370 




0231 





1000 




NOP 








BB304380 




0232 


00 


440006D7 


* 


BS! 


L 


SERVC 


PRGM OPERATION PROT SRC 


88304390 
8B304400 




0234 


00 


C4000281 


RT109 


LO 


L 


CN102 


REQUEST 010 NOT INRP 


88304410 




0236 





4818 




BSC 




♦- 




86304420 




0237 





7003 


• 


MOX 




RT104 


NOT 1ST PASS OK 


8B304430 
88304440 










»*»«*»»»*»»#*»##»**»*»*»»»»•»»•»»»»•»•♦•#•»#• 


88304450 




023B 


00 


440004F5 




BSI 


L 


ERROR 


PRINT REQUEST FAILED SRC 


8B304460 




02 3 A 





096E 




DC 




INH03 


TO INTERRUPT 


88304470 










»**♦»»»»***»»»»»»»*»**•»»»»•»»••»•»•»••»••••• 


8B304480 










* 










8B304490 










* 






RETURN FRCM TRAP ROUTINES 


6B304500 










* 










8B3G4510 




023B 





71FF 


PTI04 


MDX 


1 


-1 


CK IF ALL LVLS DONE 


8B304S20 




023C 





701C 




MDX 




RT105 


NO 


8B3C4530 




0230 


00 


74FF02B6 




MOX 


L 


ECKSW.-l 


LEVEL ERROR CHECKED 


8B304540 




023F 





7027 




MDX 




RT106 


NO 


8B3C4550 




0240 


00 


74FF0285 




MOX 


L 


PSSW.-l 


SKIP IF 500 PASSES 


80304560 




0242 





70CF 


• 
• 
• 
• 


MOX 




RTICO 

1ST 

MODE 


PASS COMPLETE CHECK IF 
IS RUN WITHOUT STOPS 


8B304570 
88304580 
8B304590 
8B304600 
8B304610 




0243 


00 


C4000199 




LD 


L 


RUNSW 


GET RUN SWITCH 


8B3C4620 




0249 


00 


4C20025O 


• 
• 
• 


BSC 


L 


RT 110,2 

RUN 


RUN WITH OUT STOPS 
NORMAL PROGRAM MOOE 


8B304630 
8B304640 
8B304650 
8B304660 




0247 





C039 




LO 




CN102 


GET 1ST PASS SWITCH 


8B304670 




024S 





4820 




BSC 




I 




8B304680 




0249 





702F 


• 


MOX 




RT107 


1ST PASS 


8B304690 
8B304700 










• 






ROUTINE ONE COMPLETE 


8B304710 










• 










8B304720 




024A 


00 


440004AO 


• 


BSI 


L 


NEST1 


SET NEST ADDRESSES 


8B304730 
8B304740 










»•»••#»»»***»»»♦*»**»»*♦»»*♦**»»»*♦♦»*»»»»**» 


8B304750 




024C 


00 


44000523 




BSI 


L 


LOG 


PRINT TURN DISABLE SRC 


8B304760 




DATE 




28FE6'>6 


01MAY66 


08JUN66 04N0V66 


PROG ID 


08B3-1 


EC NO. 


415120 


415120A 


415175 415233 


PAGE 


4 
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n 






024 E 





095E 




DC 




INM02 


SWITCH OFF 


BB304770 










»»**********»»*»*»**************»•**♦**»****• 


6B304780 










• 










8B304790 




024F 





3005 


WT5 

* 


WAIT 




5 


TURN DISABLE SW OF* 


8B304B00 
8R304810 




0250 


00 


C400018F 


RT110 


LD 


L 


RTNNO 


PREPARE SEQUENCE CK 


8B3C4820 




0252 





902F 




S 




CN103 




BB304B30 




0253 


00 


04000191 


* 


STO 


L 


SEOCK 




8B304840 
8B304850 




0255 


00 


4400048E 


* 


BSI 


L 


INTST 


SET SPURIOUS INT ADR 


8B 304 8,60 
8B304870 




0257 


00 


4C000177 


* 


BSC 


L 


RTNRT 


RETURN TO CONTROL 


88304860 
8B304i)90 




0259 





C030 


RT105 


LO 




ISINT 


GET IOCC ADDRS WD 


8B304900 




025A 





4808 




BSC 




♦ 


CK BIT » 1 


8B304910 




025B 





7004 




MDX 




RT108 


BIT - I 


BB30492C 




025C 





1001 




SLA 




1 




6B304930 




0250 





D02C 




STO 




ISINT 




8B304940 




025E 





72FF 




MDX 


2 


-1 


SET FOR NEXT LVL. NO 


8B304950 




025F 





70C6 


* 


MDX 




RT101 


CONTINUE 


8B304960 
8B304970 




0260 





C02A 


RT108 


LD 




ISINT+1 


CLEAR BIT 15 FROM 


8B304980 




0261 





901 E 




S 




CN101 


IOCC CONTROL WORD 


8B3O4990 




0262 





D02B 




STO 




ISINT+1 




8B305000 




0263 





C01C 




LD 




CN101 


SET BIT 13 IN IOCC 


8B3050S0 




0264 





1002 




SLA 




2 


AODRESS WORD 


60305020 




0265 





0024 




STO 




ISINT 




8B305030 




0266 





70F7 


• 


MDX 




RT105-»5 




8B305040 
88305050 




0267 





72FF 


RT106 


MDX 


2 


-1 




BB305O60 




0268 





1000 




NOP 








88305070 




0269 


00 


C600092E 




LD 


L2 


INLVT 


LEVEL ERROR 


6B305080 




026B 


00 


D4000979 




STO 


L 


INM03+11 


SET IN ERROR 


8B305O90 




026D 


00 


D400098E 




STO 


L 


INM04»11 


•MESSAGES 


8B305100 




026F 


00 


D40009A5 




STO 


L 


INM05+11 




6B30511O 




0271 


00 


04000A4F 




STO 


L 


INM14+10 




8B305120 




0273 


00 


67000277 




LDX 


L3 


RT106-H6 




88305130 




02 T5 


00 


6F000521 


* 


STX 


L3 


LPERR+1 


LOOP ERROR RETURN 


8B303140 
88305150 




0277 





0100 


• 


DC 




/0100 


ILLEGAL OP CODE 


8B305160 
8B305I70 










• 






ILLEGAL " • m 


88305180 










* 






NOT 


INTERRUPT 


88305190 










• 










88305200 




0278 





70BB 


* 


MDX 




RT109 




8B305210 
8BJ05220 




0279 





1010 


RT107 


SLA 




16 




88303230 




027A 





0006 


* 


STO 




CN102 


CLEAR 1ST PASS SW. 


68305240 
8B305250 










»#*#•***»***********♦***»»»********•**»****»♦* 


88305260 




02 7B 


00 


44000523 




BSI 


L 


LOG 


PRINT TURN DISABLE SRC 


8B305270 




027D 





0949 




DC 




INM01 


SWITCH ON 


8B305260 










*♦»*»*****»****#*♦«*»*#♦*♦»»******»**»**»##»* 


8B305290 










• 










8B305300 




02 7E 





3004 


WT4 

• 


WAIT 




4 


SET DISABLE SW ON 


8B305310 
CD30532D 




027F 





708E 


* 
• 


MDX 




RT100-4 


GO MAKE 2ND PASS 


8B305330 
8B305340 
88305350 










• 






ROUTINE TWO CONSTANTS 


6B305360 










* 










8B305370 




0280 





0001 


CN101 


DC 




1 




8B305380 




0281 





0000 


CN102 


DC 







1ST PASS SNITCH 


8B305390 




0282 





0002 


CN103 


DC 




2 




88305400 




0283 





0607 


CN104 


DC 




SERVC 




86305410 




0264 





01F4 


CN105 


DC 




/01F4 


PASS CONSTANT 


88305420 




0285 





0000 


PSSW 

* 


DC 







PASS SWITCH 


8B305430 
8B305440 




OATE 




28FEB66 


01MAY66 


08JUN66 04N0V66 


PAOG 10 


0863-1 


EC NO. 


415120 


415120A 


415175 415233 


PAGE 


4A 



4 \ 
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0286 





0000 


ECKSW 

* 


DC 







LEVEL ERR 


CHECK SU. 


0288 


00 


00000000 


DEC 











02 8A 





0000 


ISINT 


DC 







PROGRAMED 


INTERRUPT 


0288 





0000 


• 
XIOCC 


DC 







I0CC 




028C 





0010 


DC 




/0010 


12 LEVELS 


OF INTRPT 


0280 





04A0 




DC 




/04A0 






028E 





1000 




DC 




/1 000 


18 LEVELS 


OF INTRP 


028F 





04 A 1 




DC 




/04A1 






0290 





0040 




DC 




/0040 


24 LEVELS 


OF INTRPT 


0291 





04 A 1 


• 


DC 




/04A1 












• 
•******•*•***•••**»***•**•*•••*•*••***•*••*•* 








* 






ROUTINE NUMBER THREE 








••ft****************************************** 


0292 


00 


C4000932 


• 

I NT 02 


LD 


L 


INI VT*4 


GET HEX 3 




0294 


00 


D4000A5F 




STO 


L 


INM15*7 


SET IN LOG MESSAGE 



0296 00 44000488 

0298 00 6580018E 
029A 00 C000028C 
029C D81S 

0290 00 67800198 
029F 7302 



BSI L PRIST 

LDX II LVLIX 

LDO LI XIOCC 

STO CN200 

LDX 13 LVSAV 



MOX 



3 2 



GO SET TRAP ADDRESS SRC 

SET IOCC FOR LOWEST 
INTERRUPT LEVEL 



NUMBER OF INTERRUPTS 
TO BE GENERATED 



02A0 
02A1 







6100 
6200 


» 

• 
• 
* 

• 

* 

• 


LDX 
LDX 


1 
2 






PRINT TABLE INDEX 


02A2 
02A3 






080F 
1000 


XIO 
NOP 




CN200 


ISSUE INTERRUPT 












RETURN FRCM TRAP ROUTINES 


02A4 


00 


440004E2 


BSI 


L 


PRIPT 


GO OUTPUT PRIO. SEQ 


02 A6 


00 


4400048E 


BSI 


L 


I NT ST 


SET SPURIOUS INT ADR 


02 A3 
02AA 
02AB 


00 



00 


C400018F 

9009 
0*000191 


LD 

S 

STO 


L 
L 


rtf;no 

CN201 
SEQCK 


PREPARE SEQUENCE CK 


02 A 


00 


4C000177 


BSC 


L 


RTNRT 


RETURN TO CONTROL 








* 






ROUTINE THREE CONSTANTS 


02B0 
0282 
02B3 


00 






00000000 

0000 

0000 


CN200 

CN201 

* 

***** 

• 

***** 

* 

I NT 03 


DEC 

DC 

DC 









INTERRUPT IOCC 


02B4 





0003 


DC 




3 


CONSTANT 3 








**************************************** 

ROUTINE NUMBER FOUR 
I*************************************** 


02B5 
0287 
0289 


00 
00 
00 


C4000933 
04000975 
0400098A 


LD 

STO 

STO 


L 
L 
L 


INLVT*5 
INM03+7 
INM04+7 


GET HEX 4 

SET RTN NO. IN ERROR 

♦MESSAGES 


0288 
0280 
02 BC 


00 






440004AA 

C0C6 

D0C6 


• 


BSI 

LD 

STO 


L 


LVLST 
CN105 
PSSM 


GO SET UP TRIP ADDRS 
SET PASS SWITCH 


DATE 
EC NO. 


28FEB66 
415120 


01MAY66 
415120A 


08JUN66 04N0V66 
415175 415233 



8B305450 
8B305460 
8B305470 
8B305480 
8B305490 
8B305500 
8B305510 
88305520 
8B305530 
8B305540 
BB305550 
8B305560 
8B305570 
8B305580 
8B305590 
8B305600 
8B305610 
8B305620 
8B305630 
8B305640 
8B305650 
8B305660 
8B305670 
BB305680 
8B305690 
8B305700 
8B305710 
8B305720 
8B305730 
8B305740 
8B305750 
8B305760 
8B305770 
8B305780 
8B305790 
BB305800 
8B305810 
8B305B20 
8B305830 
8B305840 
88305850 
8B305860 
8B305870 
88305880 
88305890 
8B305900 
8B30S910 
88305920 
8B305930 
8B305940 
8B305950 
8B305960 
8B305970 
8B305980 
8B305990 
6B306000 
8B306010 
8B306020 
8B306030 
8B306040 
8B306050 
8B306060 
8B306070 
8B306080 
88306090 
8B306100 
8B306110 
8B306120 



PROG ID 
PAGE 



U 



02BF 


00 


C4000280 


RT300 


LD 


L 


CN101 




02C1 





0057 


g 


STO 




CN300 


SET 1ST PASS SW. 


02C2 


00 


650002D0 




LDX 


LI 


RT3C1 


SET UP LOOP ON 


02C4 


00 


6D000521 


* 


STX 


LI 


LPERR+1 


ERROR RETURN 


02C6 





0859 


XIO 




MASKO 


MASK UPPEP LEVELS 


02C7 





085A 




XIO 




MA SKI 


MASK LOWER LEVELS 



02C8 00 6780018E 
02CA 00 CF00028C 
02CC 085 1 

02C0 00 67800198 
02CF 7301 

0200 00 C700092E 
0202 00 04000979 
0204 00 D400098E 
0206 00 D4000A39 



02D8 





0845 


02 D9 





1000 


020A 





C03E 


02DB 





4808 


02DC 





7011 


020D 





73FF 


02DE 





701A 


020F 





C039 


02 EO 





4820 


02E1 





7012 



02E2 00 74FF0285 
02E4 70DA 



02E5 00 4400046E 

02E7 00 C400018F 
02E9 9031 
02EA 00 D4000191 

02EC 00 4C000177 



02EE 00 440004F5 
02F0 096E 



02 Fl 00 44000609 
02F3 70E9 



02F4 1010 

02F5 D023 

02F6 082D 

02F7 032E 

02F8 70CF 

02F9 C024 



RT306 LDX 13 LVLIX 
LOO L3 XIOCC 



STD 

* 

LDX 
MOX 

* 

RT301 LD 
STO 
STO 
STO 

* 

RT302 XIO 
NOP 

* 

LD 

BSC 

MDX 

* 

RT305 1DX 
MDX 
LD 
BSC 
MDX 
MDX 
MDX 

* 

* 

BSI 

* 

LD 

S 

STO 

* 

BSC 



CN301 

13 LVSAV 
3 1 

L3 INLVT 



INMQ3+11 
INM04+11 
INM13-H1 

CN301 



CN300 
RT303 

3 -1 

RT304 
CN300 
Z 
RT311 

; PSSW.-l 

RT300 



SET UP INITIAL IOCC 
FOR LOWEST LEVEL 



SET IX FOR NO. OF 
INTERRUPTS 

GET REOUEST NUMBER 
SET IN ERROR 
•MESSAGES 



ISSUE INTERRUPT 

GET 1ST PASS SWITCH 

NOT 1ST PASS INTR ER 

CHECK IF ALL LVLS 

NO 

YES 

1ST PASS COHPL.CNTNU 
SKIP IF 500 PASSES 



INTST 

RTNNO 
CN303 
SEQCK 

RTNRT 



ROUTINE COMPLETED 

SET SPURIOUS INT ADR 
PREPARE SEOUENCE CK 

RETURN TO CONTROL 
REQ DID NOT INTRP MASK OFF 



* 
* 

********************************************* 
RT303 BSI L ERROR LOG REOUEST FAILED SRC 
DC INM03 TO INTERRUPT 

***•***•*****•••*•*•*•*•**•**•**•****•******* 

* 

BSI L SVINT 



MDX 

* 

RT311 SLA 
STO 

XIO 
XIO 

* 

MDX 
* 
RT304 LD 



RT305 



16 

CN300 

UMSKO 
UMSK1 

RT306 

CN301 



SET UP FOR 2ND PASS 

CLEAR 1ST PASS SWITC 

UNMASK UPPER LEVELS 
UNMASK LOWER LEVELS 

GO MAKE SECOND PASS 

MOOIFY IOCC FOR 



0853-J 

5 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B306130 
8B306140 
8B306150 
8B306160 
8B306170 
8B306180 
8B306190 
8B306200 
8B306210 
88306220 
8B306230 
8B306240 
8B306250 
8B306260 
8B306270 
8B306280 
8B306290 
8B306300 
8B306310 
8B306320 
8B306330 
88306340 
8B306350 
8B306360 
8B3 06370 
8B306380 
8B306390 
8B306400 
88306410 
88306420 
8B306430 
8B306*40 
8B306450 
8B306460 
8B306470 
8B306480 
88306490 
8B306500 
88306510 
8B306520 
8B306530 
8B306540 
8B306550 
8B306560 
8B306570 
88306580 
RB306590 
8B306600 
88306610 
8B306620 
8B306630 
8B306640 
8B306650 
8B306660 
BB306670 
8B306680 
8B306690 
8B3C6700 
88306710 
8B306720 
8B306730 
8B306740 
8B306750 
8B306760 
8B306770 
8B306780 
8B306790 
8B306800 



PROG ID 
PAGE 



08B3-1 
5A 
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02BC 



3001 0130 



3002 0175 



3003 018* 



3004 027F 



3005 0250 



3006 035C 



3007 0386 



3008 038E 



3009 03CF 



DATE 28FEB66 

EC NO. 415120 



ABS 
ORG 



DC 



/3001 

•* PROGRAM WAITS ** 

WT1+1 WAIT 1 

WAIT OCCURS AFTER PROGRAM 
HAS LOADED. PERFORM SETUPt 
ENTER DESIRED OPTIONS IN 
DATA ENTRY SWITCHES AND 
DEPRESS START. 



DC WT2+1 WAIT 2 

PROGRAM RAN TO COMPLETION. 
DEPRESSING START RETURNS 
PROGRAM TO WAIT 1. 

OC WT3*1 WAIT 3 

PROGRAM SEQUENCE ERROR. 
SUPERVISOR SECTION OF 
PROGRAM DECTEO AN ERROR 
IN ROUTINE SEQUENCING. 

OC WT4+1 WAIT 4 

ROUTINE 2 WAIT. TURN THE 
DISABLE INTERRUPT SWITCH 
ON AND DEPRESS THE START 
PUSHBUTTON. 

OC WTS*l WAIT 5 

ROUTINE 2 WAIT. TURN THE 
OISABLE INTERRUPT SWITCH 
OFF. PROGRAM SHOULD START 
EXECUTION. IF IT OCES NOT 
IOUE 10 INTERNAL INTERRUPT 
FAILUREIPRESS START BUTTON 
TO CONTINUE. 

OC WT6»1 WAIT 6 

ROUTINE 5 WAIT. WRONG ILSW 
WAS SENSEO ON STORAGE 
PROTECT VIOLATE INTERRUPT. 
THE ILSW IS IN THE A REC. 
PUSH START TO CONTINUE. 

OC WT7*1 WAIT 7 

ROUTINE 5 WAIT. SET MOOE 
SWITCH TO TRACE AND PRESS 
START. PROGRAM WILL CHECK 
TRACE INTERRUPT. 

DC WT8*1 WAIT • 

ROUTINE 5 WAIT. SET MOOE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 

OC WT9*1 WAIT 9 

ROUTINE 5 WAIT. SET MOOE 
SWITCH TO TRACE AND PRESS 



01MAV66 08JUN66 04NOV66 
415120A 415175 415233 



8B300010 
BB300020 
8B300030 
8B300040 
8B300050 
8B300060 
8B300070 
8B300080 
8B300090 
8B300100 
8B300110 
8B300120 
8B300130 
8B300140 
BB300150 
BB300160 
8B300170 
8B300180 
8B300190 
8B300200 
6B30021O 
8B300220 
8B30O230 
8B300240 
8B300250 
8B300260 
88300270 
8B300280 
88300290 
8B300300 
8B300310 
8B300320 
8B300330 
8B300340 
88300350 
68300360 
BB3O0370 
88300380 
66300390 
6B300400 
86300410 
8B300420 
88300430 
88300440 
86300450 
8B3O0460 
BB3O0470 
BB3D0480 
86300490 
68300500 
8B300510 
68300520 
86300530 
88300540 
8B300550 
8B300560 
8B300570 
8B300580 
88300590 
8B300600 
8B300610 
8B300620 
88300630 
8B300640 
8B300650 
8B300660 
8B300670 
88300680 



PROG ID 
PAGE 



300A 03D6 



3008 03E6 



300C 03F7 



3000 040A 



300E 040E 



300F 0450 



08B3-1 
1 



n 



n 



3010 0475 



3011 051F 



3012 0538 



DATE 28FEB66 
EC NO. 415120 



DC 



DC 



DC 



OC 



DC 



OC 



START. PROGRAM WILL MAKE 
AN INTERRUPT PRIORITY 
CHECK IN TRACE CODE 
OPERATION. 

WTA+1 WAIT A 

ROUTINE 5 WAIT. SET MODE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 

WTB+1 WAIT B 

ROUTINE 5 WAIT. DEPRESS 
C.E. INTERRUPT BUTTON. 
PROGRAM WILL MAKE AN 
INTERRUPT PRIOPITY ChECK 
WITH THE C.E. INTERRUPT 
LEVEL. 

WTC+1 WAIT C 

ROUTINE 5 WAIT. SET THE 
DISABLE INTERRUPT SWITCH 
ON. THEN DEPRESS THE C.E. 
INTERRUPT ANO CONSOLE 
INTERRUPT BUTTONS. NO 
INTERRUPT SHOULO OCCUR. 
THEN SET TRACS MODE AND 
DEPRESS START. 

WTD+1 WAIT 

ROUTINE 5 WAIT. SET THE 
MODE SWITCH TO RUN ANO 
DEPRESS START. 

HTE+l WAIT E 

ROUTINE 5 WAIT. TURN THE 
DISABLE INTERRUPT SWITCH 
OFF. PROGRAM SHOULO CONTI- 
NUE. IF IT OOES NOT (DUE 
TO OISABLE INTERRUPT IN- 
OPERATIVE* i HEN PUSH START 
TO CONTINUE. 

WTF-tl WAIT F 

ROUTINE 6 WAIT. SET MOOE 
SWITCH TO TRACE ANO PRESS 
START EUTTON. PROGRAM WILL 
CHECK TRACE MOOE OPERATION 



OC 



OC 



OC 



01MAV66 
415120A 



WT10+1 



WAIT 10 



ROUTINE 6 WAIT. SET MOOE 
SWITCH TO RUN AND DEPRESS 
START BUTTON. 



WT1U1 



WAIT 11 



HALT ON ERROR OPTION 
REQUESTED. DEPRESS START 
BUTTON TO CONTINUE. 



WT12*1 



WAIT 12 



08JUN66 
415175 



04N0V66 
415233 



8B300690 
8B300700 
8B300710 
6B300720 
8B300730 
8B300740 
6B300750 
8B300760 
8B300770 
8B300780 
88300790 
8B300800 
8B300810 
8B300820 
8B300830 
8B300840 
8B300850 
8B300860 
8B3O0870 
8B3008BO 
8B300890 
8B300900 
8B300910 
8B300O20 
8B300930 
8B300940 
8B300950 
68300960 
8B300970 
8B300980 
8B300990 
8B301000 
8B301010 
8B301020 
8B301030 
6B301040 
8B301050 
8B301060 
88301070 
8B301080 
6B301090 
8B301100 
88301110 
8B301120 
8B301130 
8B301140 
BB301I50 
8B301160 
BB301170 
BB3011B0 
86301190 
66301200 
86301210 
8B301220 
86301230 
8B3O1240 
8B301250 
88301260 
8B301270 
86301280 
8B301290 
BB301300 
88301310 
6B301320 
88301330 
88301340 
88301350 
86301360 
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3013 053A 



3014 0553 



3015 06C8 



3016 
012C 



B300 



0120 00 4400048E 

012F Ce64 
0130 00 0C000026 

0132 C663 

0133 00 DCOOOOOO 



0135 
0136 
0137 



1010 

D05B 
D061 



0138 00 04000428 
01 3 A 2C40 
013B 0429 



013C 





3001 


0130 





084C 


013E 





10A0 


013F 





C052 


0140 





18C8 


0141 





1010 


0142 





1081 


0143 





0055 


0144 





1010 


0145 





1081 


0146 





D053 



DATE 
EC NO. 



28FEB66 
415120 







1443 NOT READY. MAKE 1443 


86301370 






READY AND DEPRESS START. 


86301380 
86301390 




DC 


UT13+1 WAIT 13 


8B301400 
8B301410 






1443 BUSY. THIS IS AN 


8B301420 






ERROR CONDITION. REMEDY 


8B301430 






CAUSE, THEN PUSH START TO 


8B301440 






CONTINUE. 


8B301450 
86301460 




DC 


HT14*1 WAIT 14 


86301470 
86301480 






1816/1053 NUMBER 1 NOT 


80301490 






READY. MAKE READY AND PUSH 


8B301500 






START TO CONTINUE. 


8B301510 
8B301520 




DC 


WT15*l WAIT IS 


8B301530 
8B301540 






THIS WAIT WILL OCCUR 


8B301550 






OURING ROUTINE 2 IF OPTION 


SB301560 






BIT SWITCH • IS NOT ON, AND 


8B301570 






AN 1LSW ERROR IS DETECTED 


8B301S80 






ON A PROG.CINERATED INTER- 


8B301590 






RUPT. THE ILSW IS IN THE 


8B301600 






A REG. OEPRESS START TO 


8B301610 






CONTINUE. 


8B301620 
SB301630 




ORC 


300 


88301640 




DC 


/B300 PIO 


8B30165C 






• • 


8B301660 






• INTERRUPT FUNCT TEST • 


88301670 






• •• INTRP •• • 


88301680 






• • 


8B301690 
6B301700 
8B301710 






CONTROL ROUTINE 


8S301720 
•B301730 


START 


BSI 


L 1NTST SET SPURIOUS INT ADR 


8B301740 
•B301750 




LOO 


CNC02 SET RESTART ADDRESS 


86301760 




STO 


L /0026 IN LOCATION 26 


8B301T70 




I DO 


CNC03 


•6301780 




STO 


L /OOOO 


8B301790 


• 






88301800 




SLA 


16 CLEAR BIT SWITCH 


86301810 




STO 


BSWOO «REAO IN AREA ANO BY 


8B301620 




STO 


RUNSW OPASS MAN CKS SWITCH 


8B301830 




STO 


L CN400 CLEAR TRACE INOICATO 


86301840 




DC 


/2C40 INSURE SP AREA IS 


8B301850 




DC 


CN401 'CLEAR 


88301860 


• 






8B301870 


WT1 


MA IT 


1 ENTER PROG. OPT IONS 


8B301880 


• 






88301890 




XIO 


BSWO READ BIT SWITCHES 


8B301900 


• 






8830X910 


C0N01 


SIT 


32 CLEAR A AND Q 


•B301920 




LD 


BSWOO GET OPTION ENTRY 


88301930 




RTE 


B 


8B301940 




SLA 


16 


88301950 




SLT 


1 


QB301960 




STO 


RUNSW SET RUN SWITCH 


8B301970 




SLA 


16 


36301980 




SLT 


1 


8B301990 




STO 


OPIND SET OUTPUT 0EV1CE ID 


86302000 


• 






8B302010 


• 






86302020 


• 




DETERMINE NUM6ER CF LEVELS 


8B302030 


• 






SB 30 2040 


01HAY66 


08JUN66 04N0V66 
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415120A 


415175 415233 
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0147 


C04A 




LO 




BSWOO 


GET OPTION ENTRIES 


8B302050 




0148 


4810 




BSC 




- 


SKIP IF BIT ON 


8B302060 




0149 


7004 




MDX 




CTRLl 


BRANCH ON NOT BIT 


86302070 




014A 


6311 




LOX 


3 


17 


SET LEVEL INDICATOR 


8B302080 




014B 


6B4C 




STX 


3 


LVSAV 


•FOR 18 LEVELS 


8B302090 




014C 


6302 




LDX 


3 


2 


SET INDEX FOR 18 LVL 


8B302100 




014D 


700A 




MDX 




CTRL3 


CONTINUE 


8B302110 




014E 


1001 


CTRL1 


SLA 




1 


CHECK FOR BIT 1 


8B302120 




014F 


4810 




BSC 




- 


SKIP IF BIT 1 ON 


8B302130 




0150 


7004 




MDX 




CTRL2 


BRANCH ON NOT BIT 1 


8B302140 




0151 


6317 




LDX 


3 


23 


SET LEVEL INDICATOR 


8B302150 




0152 


6B45 




STX 


3 


LVSAV 


♦FOR 24 LEVELS 


86302)60 




0153 


6304 




LOX 


3 


4 


SET INDEX FOR 24 LVL 


8B302170 




0154 


7003 




MDX 




CTRL3 


CONTINUE 


86302180 




0155 


630B 


CTRL2 


LDX 


3 


11 


SET LEVEL INDICATOR 


8B302190 




0156 


6B41 




STX 


3 


LVSAV 


•FOR 12 LEVELS 


86302200 




0157 


6300 




LDX 


3 





SET INDEX FOR 12 LVL 


8B302210 




0158 


6B35 


CTRL3 

• 


STX 


3 


LVLIX 


SAVE INDEX SETTING 


8B302220 
86302230 




0159 


1010 


CON 06 


SLA 




16 




8B302240 




015A 


0034 


• 


sro 




RTNNO 


CLEAR ROUTN. NUMBER 


8B302250 
8B302260 




015B 


082C 


CNTRL 


XIO 




SNSWS 


READ SENSE SWITCHES 


8B302270 




015C 


1005 




SLA 




5 


CHECK FOR LOOP RTN 


8B302280 




0150 


1800 




SRA 




13 




8B302290 




015E 


4808 




BSC 




* 


SKIP IF LOOP ROUTINE 


8B302300 




015F 


7002 




MDX 




•♦2 




8B302310 




0160 


002 E 




STO 




RTNNO 




8B302320 




0161 


7006 




MDX 




CON05+2 


GO EXECUTE ROUTINE 


88302330 




0162 


C02C 




LD 




RTNNO 




8B302340 




0163 


902C 




S 




SIX 


CK IF ALL RTNS RUN 


8B302350 




0164 


4818 




BSC 




♦- 




86302360 




0165 


7006 




MDX 




C0N03 


ALL ROUTINES HAVE RN 


8B302370 




0166 00 


7401018F 


CON 05 


MDX 


L 


RTNNO, 1 


ADD 1 TO RTN. NO. 


8B302380 




0168 00 


6580016F 




LDX 


11 


RTNNO 




8B302390 




016A 00 


4D80019A 


* 
• 
• 


BSC 


U 


RTN-1 

ALL 


EXIT TO ROUTINE 
ROUTINES HAVE RUN 


8B302400 
86302410 
86302420 
86302430 




016C 


081D 


C0N03 


XIO 




BSWO 


READ BIT SWITCHES 


88302440 




0160 


C024 




LD 




BSWOO 


GET BIT SWITCHES 


88302450 




016E 


1804 




SRA 




4 


CK LOOP PROGRAM 


8B302460 




016F 


4804 




BSC 




E 




8B302470 




0170 


70E8 


* 


MDX 




CON06 


LOOP PROGRAM 


8B302480 

88302490 








*********************************** ********** 


8B302500 




0171 00 


44000523 




BSI 


L 


LOG 


PRINT PROGRAM SRC 


8B3O2510 




0173 


09C9 




OC 




INM07 


IS COMPLETE 


86302520 








******* ************ ************ *** ********** * 


88302530 








* 










86302540 




0174 


3002 


WT2 


WAIT 




2 


PROGRAM COMPLETE 


86302550 




0175 00 


4C000120 


* 
* 
• 


BSC 


L 


START 

•♦♦ 


PROGRAM RESTART 
ROUTINE RETURN *•* 


8B302560 
8B302570 
83302580 
8B302590 




0177 


C019 


RTNRT 


LD 




SEQCK 


SEQUENCE CHECK 


8B302600 




0178 


4818 




BSC 




♦— 




88302610 




0179 


70E1 


* 


MDX 




CNTRL 


CHECK OK 


88302620 
88302630 




017A 00 


6780018F 




LOX 


13 


RTNNO 




88302640 




01 7C 00 


C700092F 




LD 


L3 


INLVT+1 


GET HEX. VALUE OF RTN 


8B302650 




017E 00 


04000A2C 


* 


STO 


L 


INH12+15 


SET IN MESSAGE 


88302660 
86302670 








********************************************* 


86302680 




0180 00 


44000523 




BSI 


L 


LOG 


PRINT SEQUENCE SRC 


8B302699 




0182 


0A1D 




DC 




INM12 


ERROR 


8B302700 








********************************************* 


88302710 








• 










88302720 




DATE 


28FEB66 


01MAY66 


08JUN66 04N0V66 


PROG 10 


08B3-1 


EC NO. 


415120 


415120A 


415175 415233 


PAGt 


2A 



N 
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0183 3003 

0184 00 4C00012D 



0166 00 00000000 
01 B6 0000 
0189 0760 
0!8A 0192 
018B 0240 



018C 





0193 


0180 





0240 


01 8E 





0000 


018F 





0000 


0190 





0006 


0191 





0000 


0192 





0000 


0193 





0000 


0194 





4C00 


0195 





0120 


0196 





7025 


0197 





4400 


0198 





0000 


0199 





0000 


019A 





0000 


019B 





01A6 


01 9C 





01FE 


019D 





0292 


019E 





02B5 


019F 





0328 


01A0 





0446 


01A1 





01A2 


01A2 


00 


44000523 


01A4 





0B9F 



01A5 7096 



MT3 


WAIT 


3 




BSC L 


START 


* 






• 




( 


• 








DEC 





SNSWS 


DC 


/oooo 




DC 


/0760 


BSUO 


DC 


BSHOO 




DC 


/0240 


• 






BSW1 


DC 


BSW01 




DC 


/0240 


* 






LVLIX 


DC 





RTNNO 


DC 





SIX 


DC 


6 


SEQCK 


DC 





* 






BSHOO 


DC 





BSW01 


DC 





* 






CNC02 


DC 


/4C00 




DC 


START 


CNC03 


DC 


/7025 




DC 


/4400 


LVSAV 


DC 





RUNSW 


DC 





OP I NO 


DC 





* 






* 






* 






RTN 


DC 


INTOO 




DC 


INT01 




DC 


INT02 




DC 


INT03 




DC 


INT04 




DC 


INT05 




DC 


INTER 



SEQUENCE ERROR 



CONTROL ROUTINE CONSTANTS 



READ SENSE SW IOCC 
READ BIT SWITCH IOCC 



READ BIT SWITCH IOCC 



NO.OF LEVELS INDEX 
ROUTINE NUMBER 
CONSTANT 6 
SEQUENCE CHECK SAVE 

BIT SW. CONTROL DATA 
NO INTERRUPT LEVELS 

RESTART INSTRUCTIONS 



NO.INTR.LVLS SAVE 
OUTPUT DEVICE INDCTR 
ROUTINE ADDRESSES 



ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 



INVALID ENTRY 
* 

********************************************* 
INTER BSI L LOG PRINT INVALID ENTRY 

DC INM25 
********************************************* 
* 

MDX WT1 RETURN TO WAIT 1 

********************************************* 
* ROUTINE NUMBFR ONE 

********************************************* 



SRC 



01 A6 


00 


OC000320 


INTOO 


XIO 


L 


MASKO 




MASK INTERRUPTS 


01A8 


00 


0C00O322 


• 


XIO 


L 


MA SKI 






01AA 





631B 


LOX 


3 


27 




SET INTERRUPT 


01AB 


00 


C40001F5 




LO 


L 


VCTOR 




•TRANSFER VECTOR 


01A0 


00 


D7000007 




STO 


L3 


7 






01AF 





73FF 




MDX 


3 


-1 






01BO 





70FC 




MDX 




*-4 






01B1 





C848 




LOD 




XIO 




SET UP McSSAGE 


01B2 


00 


DCO0OB86 




STD 


L 


INM23+22 




01B4 


00 


CC00028C 




LOD 


L 


XIOCC 




SET UP IOCC 


01B6 


00 


0C00028A 




STD 


L 


ISINT 






01B8 





630C 




LDX 


3 


12 




SET INTRP INDEX 


01 B9 


00 


650001C5 




LOX 


LI 


PLl*l 




SET UP TRAP ROUTINF 


01BB 


00 


6D000608 




STX 


LI 


PLEXT*1 


RETURN 


01BD 


00 


OC000324 




XIO 


L 


UMSKO 




UNMASK INTERRUPTS 


OATE 




28FEB66 


01MAY66 


08JUN66 


04N0V66 


EC NO. 


415120 


41512 


OA 


41*175 


415233 



8B302730 
8B302740 
8B302750 
6B302760 
8B302770 
8B302780 
6B302790 
8B302800 
8B302810 
8B302820 
8B302830 
8B302840 
8B3C2850 
8B302860 
8B302870 
8B302880 
8B302890 
8B302900 
BB302910 
8B302920 
8B302930 
8B302940 
BB302950 
8B302960 
BB3 02970 
8B302980 
BB302990 
8B303000 
8B303010 
8B303020 
8B303030 
8B303040 
8B303050 
8B303060 
8B303070 
8B303080 
8B303090 
8B303100 
8B303110 
8B303120 
8B303130 
8B303140 
8B303150 
BB303160 
8B303170 
8B303180 
8B303190 
6B303200 
8B303210 
8B303220 
BB303230 
8B303240 
8B303250 
8B303260 
8B303270 
8B303280 
8B303290 
8B303300 
8B303310 
88303320 
8B303330 
8B303340 
8B303350 
8B303360 
8B303370 
8B303380 
8B303390 
8B303400 



PROG ID 
PAGE 



01 BF 00 

01C1 00 

01C3 

01C4 

01C5 

01C6 










01C7 00 

01C9 
01CA 00 
01CC 00 
01CE 00 

0100 00 

01D2 

0103 

0104 

0105 

0106 

01D7 



01D8 00 



0C000326 

0C00028A 

1000 

701C 

C030 

F030 

4C2001E9 

C832 

0C000B86 
650001D6 
60000608 

0C00028A 

4000 

1000 

1000 

7004 

COIF 

F020 

4C2001E9 



01DA C0B4 
01 OB POID 
010C 00B4 
010D 00 4400048E 



01DF 00 
01E1 00 
C1E3 
01E4 00 
01 E6 
01E7 
01E8 



4C000177 

C400028A 

1001 

0400 02 8 A 

73FF 

7009 

70F1 



01E9 00 650001A6 
01E8 00 6D000521 



01E0 00 440004F5 
01EF 0870 
01F0 00 44000523 
01F2 0B89 



01F3 00 4C00013C 



01F5 





0601 


01F6 





0000 


01F7 





0104 


C1F8 





0105 


01F9 





0001 


01FA 




0000 


01FA 





0017 


01FB 





3926 


01FC 





0032 


01FD 





1239 



01FE 00 C40C0931 
0200 00 04000975 
0202 00 0400098A 
0204 00 D40009A1 



PL1 



XIO 
IN001 XIO 
NOP 
MDX 
LD 
EOR 
BSC 



LOD 
STO 
LOX 
STX 

XIO 
BSI 

NOP 

NOP 

MDX 

LO 

EOR 

BSC 



PL2 



IN002 LO 
EOR 
STO 
BSI 



UMSK1 
ISINT 

FAIL 
ICTR 
X10CK 
POLERtZ 



BSI 
L INM23+22 
Li PL2+1 
LI PLEXT-H 

L ISINT 



♦ ♦4 
ICTR 
BSICK 
POLERtZ 

RTNNO 
CN001 
SEQCK 
!NTST 



FAIL 



BSC 

LD 

SLA 

STO 

MDX 

MDX 

MDX 



RTNRT 

ISINT 

1 

ISINT 

-1 

IN001 

IN002 



ISSUE INTRP CHECK 
• POLL 3N Xlf 
INTERRUPT FAILEO 
CHECK FOR PROPER I 
♦cOUNT ON INTERRUPT 
BRANCH ON WRONG I CT 

SET UP MESSAGE 

SET UP TRAP ROUTINE 
•RETURN 



ISSUE INTRP 
•POLL ON BSI 



CHECK 



BRNCH IF INTRP FAILO 
CHECK FOR PROPER I 
♦COUNT ON INTERRUPT 
BRANCH ON WRONG I CT 

PREPARE SEQUENCE CK 



SETUP XFER VECTORS SRC 

RETURN TO CONTROL 
MODIFY IOCC FOR 
♦NEXT INTERRUPT 



CONTINUE 
END ROUTINE 



SET LOOP ERROR 
♦RETURN 



POLER LOX LI INTOO 

STX LI LPERR+1 

♦ 
********************************************* 

BSI L ERROR PRINT POLL ERROR SRC 

OC INM23 MESSAGE TAG 

BSI L LOG PRINT FIX COMMANO 

DC INM24 
********************************************* 
♦ 

BSC L WT1 GO TO WAIT 1 



♦ 
♦ 
VCTOR 




ROUTINE 1 CONSTANTS 


DC 


POLL 


TRANSFER VECTOR 


ICTR 


DC 





I COUNT ON INTERRUPT 


XIOCK 


DC 


PL1 


XIO CHECK CONSTANT 


BSICK 


DC 


PL2 


BSI CHECK CONSTANT 


CNOOl 


OC 


1 


CONSTANT 1 




BSS 


E 




XIO 


DC 


/0017 


X 




DC 


/3926 


10 


BSI 


DC 


/0032 


B 




DC 


/1239 


SI 



********************************************* 

* ROUTINE NUMBER TWO 

********************************************* 

* 



INT01 LD 
STO 
STO 
STO 



INLVT+3 
INM03»7 
INM04+7 
INM05+7 



GET HEX 2 

SET ROUTINE NUMBER 

IN ERROR MESSAGES 



08B3-1 
3 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B303410 
8B303420 
8B303430 
8B303440 
8B303450 
8B303460 
8B303470 
8B303480 
8B303490 
8B303500 
8B303510 
88303520 
8B303530 
BB303540 
8B303550 
88303560 
8B303570 
8B303580 
8B303590 
8B303600 
8B303610 
8B30362G 
8B303638 
8B303640 
8B303650 
8B303660 
SB303670 
8B303680 
88303690 
8B303700 
8B303710 
8B303720 
8B303730 
88303740 
88303750 
88303760 
8B303770 
88303780 
88303790 
8B303800 
8B3038I0 
88303820 
8B303830 
8B303840 
8S303850 
8B303860 
88303870 
88303880 
88303890 
8B303900 
8B303910 
8B303920 
8B303930 
8B303940 
8B303950 
8B303960 
BB303970 
86303980 
8B303990 
88304000 
8B304010 
8B304020 
88304030 
8B304040 
6B304050 
88304060 
8B3C4070 
8B304080 



PROG 10 
PAGE 



08B3-1 
3A 



N 



c c ( c; ( ( c t ( (. c ( ( c i i ( c t c i i c c c t c c c c c c 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0206 00 0*000988 

0201 00 440004AA 

020A 00 C4000280 
020C 00 D400C281 
020E 00 C4000284 
0210 00 0*000285 



0212 00 
0214 00 
0216 00 

0218 

0219 00 
0218 
021C 00 
021E 00 



C4000282 
04000286 
65800198 

noi 

66800198 
7201 

67000226 
6F000521 



0220 00 6780018E 
0222 00 CF00028C 
0224 00 0C00028A 

0226 00 C600092E 
0228 00 04000979 
022A 00 0400098E 
022C 00 040009A5 
022 E 00 04000A4F 

0230 0859 

0231 1000 

0232 00 440006D7 

0234 00 C4000281 

0236 4818 

0237 7003 



0238 00 440004F5 
023A 096E 



023B 71FF 
023C 701C 
0230 00 74FF0286 
023F 7027 
0240 00 74FF0285 
0242 70CF 



0243 00 C4000199 
0245 00 4C200250 



0247 C039 

0248 4820 

0249 702F 



024A 00 440004A0 



024C 00 4*000523 



DATE 
EC NO. 



28FE6'>6 
415120 



STO 
BSI 

to 

STO 

to 

STO 



RT100 tO 
STO 
tOX 
MOX 
tOX 
MOX 
tOX 
STX 



INM06«7 

tVtST 

CN101 
CN102 
CN105 
PSSW 



tox 

too 

STO 



t CN103 
t ECKSW 

11 tVSAV 

1 1 

12 tVSAV 

2 1 

L3 RT101 
L3 LPERR»1 



13 LVtIX 
L3 XIOCC 
L ISINT 



CO SET INTERPT ADRSS 



SET 1ST PASS SWITCH 
SET PASS SWITCH 



SE LVt ER CHECK SW. 

IX 1 - WJ.tEVflS *X 

IX 2 - NO.tEVEtS ♦' 

SET tOOP ERR RETURN 

SET UP INTERRUPT 
IOCC 



SET REQUEST NUM8ER 
IN error MESSAGES 



RT101 LD t2 INtVT 

STO L INM03+11 

STO L INM04»ll 

STO L INH05*ll 

STO L !NM14«10 
* 

XIO ISINT 

NOP 

BSI t SERVC 
* 

RT109 tD L CN102 

BSC *- 

MOX RT104 

ft******************************************** 

BSI t ERROR PRINT REQUEST FAItEO SRC 
DC INM03 TO INTERRUPT 

»*»*»*****»****»**»**»»**»♦»»»***»»•**••••••• 

* 

* RETURN FRCM TRAP ROUTINES 



ISSUE PROGMO INTRPT 
PROM OPERATION PROT SRC 
REQUEST 010 NOT INRP 
NOT 1ST PASS OK 



PT104 MDX 

MOX 
MDX 
MDX 
MDX 

MOX 



1 -1 

RT105 
ECKSW, -1 
RT106 
PSSW.-l 
RT1C0 



CK IF ALL LVLS DONE 

NO 

LEVEL ERROR CHECKED 

NO 

SKIP IF 500 PASSES 






1ST PASS COMPtETE CHECK IF 
MOOE IS RUN WITHOUT STOPS 



Li) 
BSC 



LO 
BSC 

MOX 



BSI 



RUNSW 
RT110.Z 



GET RUN SWITCH 
RUN WITH OUT STOPS 



RUN NORMAL PROGRAM MOOE 

GET 1ST PASS SWITCH 
1ST PASS 

ROUTINE ONE COMPtETE 
NEST1 SET NEST ADDRESSES 



CN102 

I 

RT107 



BSI L LOG PRINT TURN OISABLE SRC 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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8B304090 
8B30410O 
8930*110 
8830*120 
8630*130 
8630*140 
8B104150 
8B304160 
8B30*170 
8R30*180 
8630*190 
8B3J*200 
8B3042I0 
8B3Q*220 
8B30*230 
8B304240 
6630*250 
8830*260 
88)04270 
8830*280 
8B304290 
88304300 
88304310 
88304320 
8930*330 
8630*3*0 
88304350 
8C30*360 
8830*370 
8B304360 
8830*390 
88304*00 
8830*410 
8b30*420 
8B304430 
883044*0 
8830*450 
88304460 
8830*470 
88304480 
8B304490 
8B304500 
8B304S10 
BB304520 
8B3C4530 
8B30454O 
BR3C4550 
80304560 
88304570 
8B3045B0 
8B304S90 
88304600 
8B304610 
8B3C4620 
88304630 
8B304640 
8630*650 
8B304660 
8B304670 
8B304680 
6B304690 
8B304700 
88304710 
8B304720 
8B304730 
8B304740 
BB304750 
8B304760 
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* 






IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



024E 095E 

024F 3005 

0250 00 C400018F 

0252 902F 

0253 00 04000191 

0255 00 440004BE 
0257 00 4C000177 



0259 
025A 
025B 
025C 
0250 
025E 
025F 

0260 
0261 
0262 
0263 
0264 
0265 
0266 

0267 
0268 
0269 
026B 
026D 
026F 
0271 
0273 
02 75 



C030 
4808 
7004 
1001 
D02C 
72FF 
70C6 

C02A 
901E 
D028 
C01C 
1002 
002 4 
70F7 



72FF 

1000 

00 C600092E 

00 D4000979 

D400098E 
00 D40009A5 
00 D4000A4F 
00 67000277 
00 6F000521 



0277 0100 



0278 70BB 



0279 
027A 



1010 
0006 



027B 00 44000523 
0270 0949 



027E 3004 
027F 708E 



0280 
0281 
0282 

02 e3 

028* 
0285 



0001 
0000 
0002 
0607 
01F4 
0000 



DC INM02 SWITCH OFF 



WAIT 



WT5 

RT110 LD 
S 
STO 

BSI 

BSC 

RT105 tD 
BSC 
MDX 
SLA 
STO 
MDX 
MDX 

* 

RT108 LD 
S 
STO 

to 

SLA 
STO 

NDX 

RT106 MDX 
NOP 
LO 
STO 
STO 
STO 
STO 
LDX 
STX 



DC 



MDX 



RTNNO 
CN103 
SEQCK 

INTST 

RTNRT 

ISINT 
♦ 

RT108 
1 

ISINT 
2 -1 
RT101 

ISINT+1 

CN101 

ISINT+1 

CN101 

2 

ISINT 

RTi05-»5 

2 -1 



L2 INLVT 
L INM03+11 
L INM04+11 
L INM05+11 
L INM14+10 
L3 RT106-H6 
L3 LPERR+l 

/0100 



TURN DISABLE SW OF* 
PREPARE SEQUENCE CK 

SET SPURIOUS INT ADR 

RETURN TO CONTROL 

GET IOCC ADDRS WD 
CK BIT • 1 
BIT » I 



SET FOR NEXT LVL. NO 
CONTINUE 

CLEAR BIT 15 FROM 
IOCC CONTROL WORD 

SET BIT 13 IN IOCC 
ADDRESS WORD 



LEVEL ERROR 
SET IN ERROR 
♦MESSAGES 



LOOP ERROR RETURN 
ILLEGAL OP CODE 



ILLEGAL OP CODE DID 
NOT INTERRUPT 



RT109 



CLEAR 1ST PASS SW. 



RT107 SLA 16 

STO CN102 

*****#******♦*****»***»»»*»*»**♦*■*****»**»*»* 

BSI L LOG PRINT TURN DISABLE SRC 
DC INM01 SNITCH ON 

*»#*****»♦*»»*»***•»******»**»*******•»***»•* 

* 

4 SET DISABLE SW ON 



WAIT 
MDX 



DATE 

EC NO. 



28FEB66 
415120 



WT4 

* 

CN101 DC 
CN102 DC 
CN103 OC 
CN104 DC 
CN105 DC 
PSSW DC 



01MAY66 
415120A 



RT100-4 GO MAKE 2ND PASS 
ROUTINE TWO CONSTANTS 
1ST PASS SWITCH 



1 



2 

SERVC 

/01F4 





08JUN66 
415175 



PASS CONSTANT 
PASS SWITCH 



04N0V66 
415233 
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8830*770 
8630*780 
8630*790 
88304500 
8630*810 
8B3C*820 
8830*830 
8B30*8*0 
8830*650 
8B30*&60 
8B30*870 
8830*680 
8630*890 
8830*900 
8B30*910 
8630*920 
8630*930 
8830*9*0 
8630*950 
8630*960 
8b30*970 
8630*980 
BB30499© 
86305000 
88305010 
8B305020 
8B305Q30 
8B305040 
88305050 
8B305060 
88305070 
8B305080 
8B305O9O 
8B305100 
8B305I10 
8B305120 
68305130 
86305140 
86305150 
88305160 
6B305170 
8B305180 
8B30519S 
86305200 
86305210 
86105220 
86305230 
88305240 
8B305250 
86305260 
86305270 
8B305280 
8B305290 
88305300 
86305310 
CB30532O 
8B305330 
883053*0 
86305350 
86305360 
8B305370 
8B303380 
68305390 
88305*00 
86305410 
8B305420 
88305430 
8B305440 
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INTERRUPT FUNCTION TEST 



PART NO. 
PAGE 



2196467 
5A 



0286 


0000 


ECKSW 

• 


DC 





0288 00 


00000000 


DEC 





028A 


0000 


ISINT 


DC 





0288 


0000 


• 
XIOCC 


DC 





028C 


0010 


DC 


/0010 


0280 


04A0 




DC 


/04A0 


028E 


1000 




DC 


/1000 


028F 


04 A 1 




DC 


/04A1 


0290 


0040 




DC 


/0040 


0291 


04 A 1 




OC 


/04A1 



0292 00 C4000932 
0294 00 D4000A5F 

0296 00 440004B8 

0298 00 6S800I8E 
029A 00 CD00028C 
029C 081S 

0290 00 67600198 
029F 7302 



LEVEL ERR CHECK SH. 

PROGRAMED INTERRUPT 
IOCC 

12 LEVELS OF INTRPT 

18 LEVELS OF INTRP 

24 LEVELS OF INTRPT 



* 

*»**»**»*♦»***»»»*»****»»*»**»*»*»***»»»*»«»* 

* ROUTINE NUMBER THREE 

******************* ************ ************** 

• 

GET HEX 3 

SET IN LOG MESSAGE 

GO SET TRAP ADDRESS SRC 

SET IOCC FOR LOWEST 
INTERRUPT LEVEL 



I NT 02 


LD 


L 


INI VT+4 


* 


STO 


L 


INM15*7 




BSI 


L 


PRIST 


• 










LOX 


11 


LVLIX 




LOD 


LI 


XIOCC 




STD 




CN200 



LDX 13 LVSAV 



MOX 



3 2 



02B4 0003 



0285 00 C4000933 
026 7 00 04000975 
02B9 00 D400098A 

0286 00 440004AA 
0280 C0C6 
02BC 00C6 



NUMBER OF INTERRUPTS 
TO BE GENERATEO 

PRINT TABLE INDEX 

ISSUE INTERRUPT 

RETURN FRCM TRAP ROUTINES 
GO OUTPUT PRIO. SEQ 
SET SPURIOUS INT ADR 
PREPARE SEQUENCE CK 

RETURN TO CONTROL 
ROUTINE THREE CONSTANTS 

INTERRUPT IOCC 
OC 

CN201 OC 3 CONSTANT 3 

* 
********************************************* 

* ROUTINE NUMBER FOUR 

********************************************* 



02A0 
02A1 







6100 
6200 


* 

• 
* 
• 

» 

* 

• 

• 
* 
• 

CN200 


LOX 
LDX 


1 
2 






02A2 
02A3 






080F 
1000 


XIO 
NOP 




CN200 


02A4 


00 


440004E2 


BSI 


L 


PRIPT 


02 A6 


00 


4400048E 


BSI 


L 


INTST 


02A8 
02AA 
02A8 


00 



00 


C400018F 

9009 

0*000191 


LD 

S 

STO 


L 
L 


RTf.NO 
CN201 
SEQCK 


02 A 


00 


4C000177 


BSC 


L 


RTNRT 


02 BO 

0282 
0283 


PO 






00000000 

0000 

0000 


DEC 

DC 

DC 










INT03 LD 
STO 
STO 

* 

BSI 

LD 

STO 



INLVT+5 
INM03+7 
INH04+7 

LVLST 

CN105 
PSSM 



GET HEX 4 

SET RTN NO. IN ERROR 

•MESSAGES 

GO SET UP TR»P ADDRS 
SET PASS SNITCH 



8B305450 

8B305460 

8B305470 

8B305480 

8B30S490 

8B30S500 

88305510 

8B30b520 

8B305530 

8B305540 

8B3055S0 

8B305560 

8B305570 

8B305580 

8B305590 

8B305600 

8B305610 

8B305620 

8B305630 

8B305640 

8B305650 

8B30S660 

8B305670 

8B305680 

8B305690 

6B305700 

6B305710 

8B305720 

8B305730 

8B305740 

BB30S750 

6B30S760 

8B305770 

8B305780 

8B305790 

8B305800 

8B305810 

8B305820 

8B305830 

8B305840 

86305850 

8B305860 

8B305870 

8B305880 

8B305890 

8B305900 

8B30S910 

8S305920 

8B305930 

8B305940 

8B305950 

6B305960 

8B305970 

8B305980 

8B305990 

8B306000 

8B306010 

8B306020 

8B306030 

8B306040 

8B306050 

8B306060 

8B306070 

88306080 

86306090 

8B306100 

8B306110 

8B306120 



U 



02BF 00 C4000280 
02C1 0057 

02C2 00 650002D0 
02C4 00 6D000521 



02C6 
02C7 



0859 
085A 



02C8 00 67800186 
02CA 00 CF00028C 
02CC 085 1 

02CD 00 67800196 
02CF 7301 

02D0 00 C700092E 
02D2 00 D4000979 
0204 00 D400098E 
0206 00 04000A39 



02D8 
02 09 



0845 
1000 



020A C03E 

020B 4808 

02DC 7011 

02DD 73FF 

02DE 701A 

02DF C039 

02 EO 4820 

02E1 7012 

02E2 00 74FF0285 

02E4 70DA 



02E5 00 4400048E 

02E7 00 C400018F 
02E9 9031 
02EA 00 D4000191 

02EC 00 4C000177 



02EE 00 440004F5 
02F0 096E 



02 Fl 00 44000609 
02F3 70E9 



02F4 1010 

02F5 D023 

02F6 0820 

02F7 082E 

02F8 70CF 

02F9 C024 



RT300 LD 
STO 

LDX 
STX 

XIO 
XIO 

RT306 LDX 
LDD 
STO 

LDX 
MOX 

RT301 LD 
STO 
STO 
STO 

* 

RT302 XIO 
NOP 

LD 

BSC 

MDX 

* 

RT3 05 MDX 
MDX 
LO 
BSC 
MDX 
MOX 
MOX 

* 

BSI 

LD 

S 

STO 

BSC 



L CN101 
CN300 

LI RT3C1 
LI LPERR+1 

MASKO 
MA SKI 

13 LVLIX 

L3 XIOCC 

CN301 

13 LVSAV 
3 1 

L3 INLVT 
L INMQ3 + U 
L INM04+11 
L INM13-H1 

CN301 



CN300 
RT303 

3 -1 

RT304 
CN300 
2 

RT311 

. PSSW.-l 

RT300 



SET 1ST PASS SW. 

SET UP LOOP ON 
ERROR RETURN 

MASK UPPEP LEVELS 
MASK LOWER LEVELS 

SET UP INITIAL IOCC 
FOR LOWEST LEVEL 



SET IX FOR NO. OF 
INTERRUPTS 

GET REQUEST NUMBER 
SET IN ERROR 
•MESSAGES 



ISSUE INTERRUPT 

GET 1ST PASS SWITCH 

NOT 1ST PASS INTR ER 

CHECK IF ALL LVLS 

NO 

YES 

1ST PASS COHPL.CNTNU 
SKIP IF SOO PASSES 



INTST 

RTNNO 
CN303 
SEQCK 

RTNRT 



ROUTINE COMPLETE 

SET SPURIOUS INT ADR 
PREPARE SEQUENCE CK 

RETURN TO CONTROL 
REQ DIO NOT INTRP MASK OFF 



********************************************* 
RT303 BSI L ERROR LOG REQUEST FAILEO SRC 

DC INM03 TO INTERRUPT 
***•**••**********•••»•*•••••*•**♦•**»•♦»♦**• 

* 

BSI L SVINT 



MOX 

RT311 SLA 
STO 

• 

XIO 
XIO 

MDX 

RT304 LD 



RT305 



16 

CN300 

UHSKO 
UMSK1 

RT306 

CN301 



SET UP FOR 2ND PASS 

CLEAR 1ST PASS SUITC 

UNMASK UPPER LEVELS 
UNMASK LOWER LEVELS 

GO MAKE SECOND PASS 

MODIFY IOCC FOR 



8B306130 

8B306140 

8B306150 

8B306160 

88306170 

8B306180 

8B306190 

8B306200 

8B306210 

8B306220 

8B306230 

8B306240 

8B306250 

8B306260 

8B306270 

8B306280 

6B306290 

8B306300 

8B306310 

8B306320 

8B306330 

86306340 

8B306350 

8B306360 

8B3 06370 

8B306380 

8B306390 

8B306400 

8B306410 

8B306420 

8B306430 

86306*40 

8B306450 

8B306460 

8B306470 

8B306460 

8B306490 

88306500 

8B306510 

8B306520 

8B306530 

8B306540 

86306550 

8B306560 

86306570 

8B30658C 

RB306590 

8B306600 

8B306610 

86306620 

86306630 

8B306640 

8B306650 

8B306660 

66306670 

86306680 

8B306690 

8B3C6700 

8B306710 

8B306720 

8B306730 

88306740 

86306750 

86306760 

86306770 

8B306780 

8B306790 

8B306S00 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



PROG ID 
PAGE 



OB 63-1 

5 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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02FA 





4808 




BSC 




♦ 


NEXT INTERRUPT 


02FB 





7003 




MDX 




RT307 




02 FC 





1001 




SLA 




1 




02FD 





D020 




STO 




CN301 




02FE 





7001 


• 
RT30T 


MDX 




RT301 


GO ISSUE NEXT INTRPT 


02FF 





COIF 


10 




CN301+1 


CLEAR BIT IK FROM 


0300 


00 


94000280 




S 


L 


CN101 


COMMAND WORD 


0302 





001C 




STO 




CN301*1 




0303 





C016 




LO 




CN302 


SET BIT 13 IN IOCC 


0304 





0019 




STO 




CN301 


AOORESS WORD 


0305 





70CA 


• 
• 
• 
RT308 


MDX 




RT301 


GO ISSUE NKXT INTRPT 












RETURN FROM TRAP ROUTINES 


0306 





C012 


LO 




CN300 


GET PASS SWITCH 


0307 





4820 




BSC 




Z 


SKIP IF 2ND PASS 


0308 





7C06 




MDX 




RT309 




0309 


00 


C40006CA 




LO 


L 


CNMOO 




0308 





4820 




BSC 




Z 




030C 





7008 




MOX 




RT310 


WRONG LEVEL SERVICED 


030D 


00 


4C4002D0 


• 


BOSC 


L 


RT305 


OK GO ON 


030F 


00 


440004F5 


RT309 


BSI 


L 


ERROR 


RfO INTRPO WHILE 


0311 





0A2E 




OC 




INM13 


MASKED 



0312 0800 

0313 080E 

0314 70C8 



XIO HASKO 
XIO MASK1 

MDX RT305 



0315 
0317 


00 



4400 04F 5 
0983 


RT310 

***** 

* 




BSI L ERROR WRONG LEVEL SERVICED 
DC INM04 
»•••••••••••••••••••••*••••••••••*•••••• 


0318 





70C4 


MDX 




RT305 










• 






ROUTINE FOUR CONSTANTS 


0319 
031 A 
0318 







0000 
0004 
0004 


CN300 

CN302 
CN303 

• 

CN301 


OC 
DC 
DC 





ZOOM 

4 


1ST PASS SWITCH 


031C 
031E 
031F 


00 






00000000 

0000 

0000 


DEC 

OC 

OC 









INTERRUPT IOCC 


0320 
0321 
0322 
0323 








FFFF 
0480 
FFFF 
0481 


MASKO 
MASK1 




DC 
DC 
DC 
DC 




/FFFF 
/0480 
/FFFF 
/0481 


MASK UPPER IOCC 
MASK LOWER IOCC 


0324 
0325 
0326 
0327 








0000 
0480 
0000 
0481 


UMSKO 
UMSK1 

• 


OC 
OC 
DC 
DC 




/OOOO 
/0480 
/OOOO 
/0481 


UNMASK UPPER IOCC 
UNMASK LONER IOCC 








* 

*******•*****•*••**••••••••••••**•••••••••••* 

* ROUTINE NUMBER FIVE 

*•*• ******** ft******************************** 

* 


0328 
032A 


00 
00 


C4000199 
4C20040E 


INT 04 


LD 
BSC 


L 
L 


RUNSW 
RT414, 


CK.IF RUN NO STOPS 
Z BRNCH IF RUN NO STOP 


032C 


00 


C4000934 




LO 


L 


INLVT+6 GET HEX 5 


DATE 
EC NO. 


28FEB66 
415120 


01MAY66 
415120A 


08JUN66 
415175 


04N0V66 
415233 



8B306810 
88306820 
8B306830 
8B306840 
88306850 
8B306860 
8B306870 
8B306880 
8B306890 
8B306900 
8B306910 
6B306920 
8B306930 
8B306940 
8B306950 
8B306960 
8B306970 
88306980 
8B306990 
8B30 7000 
88307010 
88307020 
8B307030 
88307040 
SRC 8B307050 
88307060 
88307070 
8B307080 
BB307090 
88307100 
8B307110 
8R307120 
88307130 
88307140 
88307150 
•8307160 
8B307170 
8B307180 
•8307190 
BR307200 
86307210 
88307220 
•8307230 
86307240 
88307250 
8B307260 
88307270 
•8307280 
86307240 
86307300 
88307310 
88307320 
88307330 
88307340 
88307350 
86307360 
8B307370 
88307380 
8B307390 
68307400 
8B307410 
8B307420 
88307430 
88307440 
8B3074S0 
88307460 
88307470 
88307480 
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PAGE 
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6 



O 



n 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
INTERRUPT FUNCTION TEST 



032E 


00 


D4000975 




STO 


L 


INM03*7 


SET IN ERROR MESSAGE 


0330 


00 


0400098A 




STO 


L 


1NN04+7 




0332 


00 


D40009A1 




STO 


L 


INM05«7 




03 3 'i 


00 


D4000A5F 




STO 


L 


INM15«7 




0336 


OJ 


040009BB 


f 


STO 


L 


INM06«7 




0338 


00 


440004AA 


* 


BSI 


L 


LVLST 


GO SET UP INT.ADDRSS 


033A 


00 


66000438 




LOX 


Li 


RT401 


SET TRAP RTNS RETURN 


033C 


00 


6700034A 




LOX 


L3 


RT400 


SET LOOP ON ERROR 


033E 


OC 


6F000521 




STX 


L3 


LPERR+1 


RETURN 


0340 


00 


67000350 




LOX 


L3 


RT402 


SET COMN RTN RETURN 


0342 


00 


C400092E 




LD 


L 


INLVT 


SET REQUEST NO IN 


0344 


00 


D4000979 




sro 


L 


INM03+U 


•ERROR MESSAGES 


0346 


00 


0400098E 


* 


STO 


L 


INM04+U 




0348 





2C41 




DC 




/2C41 


WRITE STORAGE PROTCT 


0349 





0429 


f 


DC 




CN401 




034 A 


00 


04000429 


RT400 




STO 


L 


CN401 


VIOLATE PROT. STORAGE 








***»•»••***•**********•***•**************•*** 


0^4 C 


00 


440004F5 




BSI 


L 


ERROR 


REQUEST FAILED TO 


034 E 





096 E 




OC 




INM03 


INTERRUPT 








• 

* 
RT402 






****** **************** ********** 


034F 





700C 


MOX 




RT413 




0350 


00 


C4000606 


LO 


L 


ILSAV 


CHECK IF PROPER ILSW 


0352 


00 


F400042A 




EOR 


L 


CN402 


♦BIT FOR SPV 


0354 





4818 




BSC 




♦- 


SKIP ON WRONG BIT 


0355 





7006 


• 
*•«*• 


MDX 




RT413 


BRANCH IF ILSW OK 








•»••*************•*•*************•*****• 


0356 


00 


44000523 




BSI 


L 


LOG 


WRONG ILSW BIT 


0358 





0984 




DC 




INM06 










••*••**•••**•*****•************••***••*****•• 


0359 


00 


C40006D6 


* 

• 

WT6 
• 
RT413 


LO 


L 


ILSAV 


ILSW TO A 


035B 





3006 


WAIT 




6 


ILSW ERROR 


035C 


00 


C4000948 


LO 


L 


INLVT+26 


SET CE REO IN ERROR 


035E 


00 


0400098E 




STO 


L 


INM04+11 


MESSAGES 


0360 


00 


04000979 




STO 


L 


INM03+11 




0362 


00 


6700036C 




LOX 


L3 


RT404 


SET LOOP ERROR 


0364 


00 


6F000521 




STX 


L3 


LPERR*! 


RETURN 



SRC 



0366 00 67000374 
0368 00 C400042C 
036A 00 04000002 



036C 00 44000523 
036E 0907 



036F 00 440005F3 



0371 00 440004F5 
0373 096E 



0374 00 C4000947 
0376 00 D400098E 
0378 00 D4000979 



LDX L3 RT403 
LD L CN404 
STO L /0002 



SET COMN RTN RETURN 
CE INTERRUPT BRANCH 
♦TO ADDRESS 



• 

**♦ 

RT4 

•*• 
• *• 



•*•*•♦•**♦♦»•**♦♦♦♦•**•*♦♦•••••*•***•*••** 

04 BSI L LOG PUSH CE INTERRUPT SRC 

OC INM08 BUTTON 
*••••*•*♦••***•********♦•****♦♦*******•*•• 



BSI 



DELAY 



GO WAIT FOR INTRPT 



• •* 
RT4 



****************************************** 

BSI L ERROR LOG CE REQ FAILED SRC 

DC INM03 

**•*•*••**••**•••••***•••*♦*******♦♦•***** 



03 LD L INLVT+25 
STO L INH04+11 
STO L INM03 + U 



SET TRACE REQUEST 
IN ERROR MESSAGES 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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8B307490 
8B307500 
8B307510 
8B307520 
8B30753O 
8B307540 
8B307550 
88307560 
8B307570 
SB307580 
8B307590 
8B307600 
8B307610 
8B307620 
8B307630 
8B307640 
8B307650 
8B307660 
6B307670 
8B307680 
8B307690 
8B307700 
8B307710 
BB307720 
8B307730 
8B307740 
8B307750 
8B307760 
8B307770 
6B307780 
8B307790 
88307800 
8B307810 
8B307820 
8B307830 
8B307840 
8B307850 
8B307860 
8B307870 
SB307880 
88307890 
8B3C7900 
88307910 
88307920 
8B307930 
8B307940 
88307950 
8B307960 
8B30r970 
8B307980 
8B307990 
8B308000 
8B308010 
8B308020 
BB30B030 
8B308040 
8B308050 
8B308060 
8B308070 
8B308080 
8B308090 
8B308100 
8B308110 
8B308120 
8B308130 
8B308140 
8B308150 
8B306160 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 
INTERRUPT FUNCTION TEST 



PART NO. 2196467 
PACE 7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 
INTERRUPT FUNCTION TEST 



PART NO. 2196467 
PAGE 7A 



03 7 A 00 67000382 
037t 00 6F000521 

037E 00 6700038A 
0380 00 74010428 



0382 00 44000523 
0384 09F8 



0385 3007 

0386 1000 



0387 00 440004F5 
0389 096E 



038A 00 44000523 
03BC OAOB 



0399 00 44000523 
039B 09E7 



039C 00 440005F3 
039E 00 0C000436 



D3A0 00 440004F5 
03A2 OB22 



03 A 3 7020 



03A4 00 
03A6 00 
03 A 8 00 
03AA 00 
03 AC 
03A0 
03 AE 00 
03B0 00 
03B2 
03B3 
03B4 
03B5 
03B6 
03B7 
03B8 
03B9 00 
0366 00 
03B0 00 



DATE 
EC NO. 












44000609 

C480068B 

04000B44 

C 4000606 

4820 

7005 

67000025 

6F0OOB4A 

700E 

630F 

1340 

6B7C 

C07B 

F07B 

0079 

67800432 

C700092F 

E4000431 



28FEB66 
415120 



LDX 13 RT412 

STX L3 LPERR+1 

LDX L3 RT405 

MOX I CN400tl 



SET LOOP ERROR RETRN 



SET COMN RTN RETURN 
SET TRACE INOICATOR 



****************,,* ♦•••••••♦***••»•**»»»»»«„ 

RT412 BSI L LOG LOG SET TRACE 

DC INM10 

*********** ***♦***»**•♦•»•*»»», »»»»,*»,****^ 

WT7 WAIT 7 SET TRACE MOOE 

„ N0P 'NT AFTER THIS INSTR 

*♦***»*************»***♦*»»*,„***, *,*** , 0# ^ 

BSI L ERROR TRACE FAILED TO SRC 

DC INM03 *INTERRUPT 

**************»»**»•**•**»*»♦»»•»»•*»»#»»»*», 
# 

***»»**♦»♦******••*♦****♦»»»„,*»** ****** #### 

RT405 BSI L LOG LOG SET RUN SRC 

OC INM11 
A****************** «•♦*•*»*••**»»»»„******** 



0380 


3008 


U 

* 


038E 00 


44000609 




0390 


1010 




0391 00 


04000428 




0393 00 


660003 8E 




0395 00 


6E000521 




039 7 00 


660003A4 





WAIT 8 

BSI L SVINT 
SLA 16 

STO L CN400 

LDX L2 WT8+1 

STX L2 LPERR-H 

LDX L2 RT406 



SET RUN MODE 

RESET TRACE 1NTRPT 
CLEAR TRACE INDICATR 

SETUP LOOP ON ERROR 

•RETURN 

SET TRAP RTNS RETURN 



•****»*»*****************************,**„ #M 

BSI L LOG LOG PUSH CONSOLE SRC 
„,_,_ 0C INM09 INTERRUPT BUTTON 
••****•**••*•****,* ♦♦*♦*•♦•••-,»♦*«♦..♦»„„., 

^ BSI L OELAV GO WAIT FOR INTRPT. 
^ XIO L CNSNS RESET CONSOLE CNTRLS 
•»* ******** »*♦******♦*♦♦***•*,»,*,»*,.***,*** 

or' L f*,*?*. L0C CO "SO«-E BUTTON SRC 
OC INM20 FAILEO 
**»*»**♦*••***********♦*»*»»,**,**,**** 



MDX 



RT415 



RT406 BSI 
LD 
STO 
LO 
BSC 
MDX 



L SVINT 
I CMTRP 
L INM21+17 
L ILSAV 
Z 
•♦5 

LDX L3 /0025 

STX L3 INM21+23 

MOX •♦!* 

LDX 3 15 

SLCA 3 

STX 3 HOLD 

LO HOLD 

EOR COMP 

STO HOLD 

LDX 13 HOLD 

LO L3 INLVT+1 

AND L CN409 



BYPASS CONSOLE MESAG 

RESET CONSOLE CNTRL 
CET INTERRUPTING LVL 
SET IN MESSAGE 
SET ILSW BIT IN MSSG 
SKIP IF NO BIT ON 

NO ILSW SET MESSAGE 
♦FOR BIT N 

DETERMINE WHICH ILSW 
•BIT IS ON 

COMPLEMENT BITS 12 
•THROUGH 15 

GET CODED EQUIVELANT 
•OF ILSW BIT ANO SET 
•IN MESSAGE 



O1MAV66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B308170 

8B308180 

8B308190 

8B308200 

8B308210 

8B308220 

8B308230 

8B308240 

8B308250 

8B308260 

8B30e270 

8B308260 

8B308290 

8S308300 

6B308310 

8B308320 

8B308330 

88308340 

88308350 

88308360 

88308370 

8B308380 

68308390 

8B308400 

8B308410 

88308420 

88308430 

88308440 

88308450 

88308460 

6B30847O 

88308480 

88308490 

88308500 

88308510 

68308520 

8e30853O 

88308540 

8B308550 

88308560 

8B308570 

8B308580 

8BJ06S90 

8B308609 

8B30B610 

88308620 

86308630 

8B30B640 

86308650 

8B308660 

8B30B670 

8B308680 

8B308690 

68308700 

8B308710 

88308720 

8B308730 

88308740 

88308750 

6B308760 

8B308770 

6B3087S0 

8B308790 

8B308600 

88308810 

8B308820 

88308830 

88308840 
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03BF 00 D4000B4A 

03C1 00 44000523 
03C3 0B33 



03C4 00 440004B8 

03C6 00 67800198 
03C6 7303 

03C9 6100 
03CA 62C0 



03CB 00 44000523 
03C0 9 09F8 



03CE 3009 
03CF 1000 



0300 00 440004E2 



03D2 00 44000523 
0304 OAOB 



0305 300A 

03D6 00 44000609 

0308 00 440004B8 
030A C052 
0308 00 D4000002 

03D0 00 67800198 
03DF 7303 
03E0 6100 
03E1 6200 

03E2 00 44000523 
03E4 0907 



03E5 300B 



03E6 00 440004E2 



03E8 00 440004AA 

03EA C041 
03EB 00 04000002 
03E0 00 66000417 

03EF 00 67000420 
03F1 00 6F000521 



STO L INM21+23 
»*»»♦*********»****«»*»,, *»***♦**»»♦*♦*♦****** 

SSI L LOG LOG CONSOLE BUTTON SRC 
DC INM21 INTRPT LEVFL 
****************♦*•***«:**», »,,,,», # **„, >#ti ^ 

* TRACE AND CE PRIORITY CK 



RT415 BSI L PRIST 

LDX 13 LVSAV 
MDX 3 3 



LDX 

LDX 



1 

2 



GO SET *FER VECTORS SRC 
IX 3 « NO.LVLS.+ 3 

PRINT INOEX 



•*♦**************,* ************************** 

oc 1 L iSmio L ° G SET TR * CE mode src 

*********************************** ***,**,m 

WT9 WAIT 9 SET TRACE MODE 

* N0P INT AFTER THIS INSTR 

* RETURN FROM TRAP ROUTINES 
RT407 BSI L PRIPT GO LOG PRIORITY 3E0 SRC 
*•* *•***,**** ****** ********* »*» **** **** ****** 

oc' L iSmii L0G SET run mooe src 

*********** *****************»»,************ ^ 



WTA 

* 



WAIT 10 

BSI L SVINT 

BSI L PRIST 

LD CN405 

STO L /0002 



SET RUN MODE 

RESET TRACE INTRPT 

GO SET TRAP ADDRS 
CE INTERRUPT BRANCH 
•TO ADDRESS 



IX 3 - NO. LEVELS *3 
PRINT INDEX 



LDX 13 LVSAV 
MDX 3 3 
LDX 1 
LOX 2 
*********** ******** ************************** 

RU09 oc' L L0 ° L0C PUSH CE BUTT0N SRC 

************* ********************** ****** w „ 

*1 PUSH CE INTRP BUTTON 



WAIT 



WTB 

RT408 BSI 

* 

* 
* 
* 



RETURN FROM TRAP ROUTINES 

PRIPT GO LUG PRIORITY SEO SRC 

CHECK CE AND CONSOLE BUTNS 
AND TRACE MODE WITH DISABL 
SWITCH ON 



BSI L LVLST 



LD 
STO 



CN404 

/0002 



LDX L2 RT410 

LDX 13 RT411 
STX L3 LPERR+1 



GO SET UP TRAP ADRSS 

SET CE INTERRUPT 
•BRANCH ADDRESS 
SET TRAP RTNS RETUR 

SET LOOP ERR RETURN 



DATE 
EC NO. 



28FEB66 
415120 



8B308850 

8B308860 

8B308870 

8B308880 

8B308890 

88308900 

8B308910 

8B308920 

8B308930 

8B308940 

8B308950 

8B308960 

8B308970 

8B308960 

8B308990 

8B309000 

8B309010 

88309020 

8B309030 

8B309040 

8B309050 

8B309060 

8B309070 

8B309080 

6B309090 

8B309100 

88309110 

8B309120 

8B309130 

8B309140 

8B309150 

8B309160 

8B309170 

6B309180 

8B309190 

8B309200 

8B309210 

8B309220 

8B309230 

8B309240 

BB309250 

8 B3 09260 

8B309270 

8B309280 

8B309290 

8B309300 

8B309310 

88309320 

BB309330 

8B309340 

8B309350 

8B309360 

8B309370 

8B309380 

6B309390 

8B309400 

8B309410 

8B309420 

8B309430 

8B309440 

BB309450 

8B309460 

8B309470 

8B309480 

8B309490 

8B309500 

8B309510 

8B309520 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION 1EST 



03F3 00 44000523 
03F5 0B4C 



03F6 300C 

03F7 00 4C4003F9 
03F9 00 440004AO 



03FB 





C032 


03FC 


00 


04000002 


03FE 





C030 


03FF 


00 


04000003 


0401 





COZE 


0402 


oc 


04000004 


0404 





2C40 


0405 





0429 


0406 


00 


44000523 


040B 





0A3B 



0409 3000 



040A 00 44000523 
040C 095E 



0400 3C0E 

040E 00 L400018F 

0410 F01A 

0411 00 04000191 

0413 00 440O048E 
0415 00 4C0001TT 



0417 00 OC000436 
0419 00 L480068B 
041B 00 D40009A5 



041D 00 440004F9 
04 IF 099 A 



0420 00 C40009A5 
0422 00 F40006FE 
0424 00 4C1803F6 
0426 00 4C4003F6 



0428 

0429 
042 A 
042 B 
042C 
0420 C 
042E 
042F 



0000 
0000 
2000 
0005 
0640 
0702 
0607 
4C80 



»»»»•»»»»»»»»•»»•»•»»»**»******•**»*»*** 
BSI I LOG LOG SET DISABLE SRC 

OC INM22 CHECK BUTTONS 

»»»•»••••«•»«♦*•»»•*»»*»**»**»»*****•'*** 



• 








WTC 


WAIT 




12 


• 










BOSC 


L 


• 




BSI 


L 


NEST1 


• 










10 




CN406 




STO 


L 


/0002 




LD 




CN407 




STO 


L 


/0003 




LD 




CN408 




STO 


L 


/0004 




OC 




/2C40 




DC 




CN401 



SET DISABLE CK BTTNS 

RESET IF TRACE ERROR 
SET NST ADDRESSES 

SET CE INTERRUPT 
•BRANCH AODRESS 
SET CE INTERRUPT 
•RETURN ADDRESS 



CLEAR STORAGE PROTCT 





BSI L 

OC 


LOG 
INMll 




• 
MTO 

• 


MAIT 


13 


SET RUN MODE 




BSI L 

DC 


LOG 
INM02 


TURN DISABLE SH OFF 



SRC 



• 
HIE 



WAIT 



RT414 LO L 
EOR 

STO L 

BSI L 

8SC L 

* 

RT410 XIO L 

LO I 

STO L 



14 

RTNNO 
CN403 
SEOCK 

INTST 

RTNRT 



TURN OISABLE SH OFF 
PREPARE SEQUENCE CK 

SET SPURIOUS INT ADR 



RETURN IF INTERRUPT 



CNSNS 
CMTRP 
INM05«11 



CONSOLE CNTRL RESET 



INM05»11 PICK UP FAILING LVL 

REOTR CHECK IF LEVEL TRACE 

MTCt*- NONRESET BR. IF TRACE 

WTC RESET BRANCH 



BSI L 
DC 

•••*»••»••»•« 

RT4H LD L 

tOR L 
BSC L 
BOSC L 

• 

CM4O0 DC 
CM401 DC 
CN402 OC 
CN4D3 DC 
CM404 DC 
CM405 DC 
CN406 DC 
CM40T DC 



ERALT 

INM05 



LOG DISABLED INTRPT SRC 







• 2000 

5 

LVL27 

PRI2T 

SERVC 

/4C80 



ROUTINE FIVE CONSTANTS 
TRACE INDICATOR 
SPV ILSH CK M040 



•CE INTERRUPT 
•SERVICE CONSTANTS 



PART NO. 2196467 
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8B309530 

8B309540 

8B309550 

8B309560 

8B309570 

8B309580 

8B309590 

8B309600 

8B309610 

8B309620 

8B309630 

8B309640 

8B309650 

8B309660 

6B309670 

BB309680 

88309690 

8B309700 

BB309710 

8B309720 

8B309730 

88309740 

8B309750 

98309760 

6B3097TO 

8B309780 

8B309790 

8B309800 

8B3098IO 

8B309P20 

8B3098J0 

66309640 

8B3098SO 

8B30986O 

8B30987O 

88309880 

8B309890 

BB30990C 

8B3099I0 

8B309920 

8B309930 

88309940 

68309950 

BB309960 

8B309970 

BB309980 

88*09990 

8B31OO00 

88310010 

8B310020 

SB31O03O 

8B310O40 

8B310050 

8B310060 

8B310070 

8B310080 

8B310090 

8B310100 

8B310110 

8B310120 

8B310130 

8B310140 

8B310150 

8B310160 

8B310170 

6B310180 

8B310190 

8B310200 



n 



0*7E 
EC NO. 



28FEB66 
415120 



01* AY 66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0430 OOOA 

0431 01FF 

0432 0000 

0433 OOOF 

0434 00 00000000 

0436 0000 

0437 07C1 



0438 COEF 
C439 4820 
C43A 7002 
043B 00 44000609 
0430 00 C40006CA 
043F CO 4FI60000 



0441 00 440004F5 
0443 0983 



0444 

0445 



1010 
70F9 



0446 00 C4000199 
0448 00 4C200481 
044A 00 670008F6 
044C 00 6F000009 

044 E 00 67000930 

0450 6B27 

0451 00 6700047F 
0453 00 6F000521 

0455 630A 

0456 1010 

0457 0035 

0458 6200 



0459 00 44000523 
045B 09F8 



045C 300F 



0450 
045E 
045F 
0460 
0461 
0462 
0463 
0464 



C02C 
18DF 
D02B 
9029 
F029 
A028 
8026 
4820 



CN4 08 DC /OOOA 
CN409 OC /01FF 
HOLO OC 
COMP DC /OOOF 
• 

DEC 
CNSNS OC /OOOO 

OC /07C1 
• 

• 

RT401 LD CN400 

BSC Z 

MDX *+2 

BSI L SVINT 

LD L CNMOO 

BSC L3 Ot+- 



TEMP STORAGE 
COMPLEMENT CONSTANT 



SENSE AREA 
IOCC 

RTN 4 COMMON INTRPT RTN 

GET TRAO- INDICATOR 
SKIP IF OFF 

RESET INTRPT CONTROL 
GET SERVICED COMPARE 
RETURN TO USER IF OK 



»»»♦»*»»»*»♦*♦♦**♦**»*»*»*»»******»»»****♦*•* 

BSI L ERROR WRONG LEVEL SERVICED SRC 

DC INM04 

•»*•*•••*••*•*•♦•♦****»*»***•*•***•***•**•**» 
• 

SLA 16 

MOX RT*01+7 

• 

•»»*»»»»*****»»»**»♦**»*»*****♦***•***•****** 
• ROUTINE NUMBER SIX 

♦»»**»*»»***»*******»****»♦••*»*****♦****•*** 
• 



INT05 LO 
BSC 



L RUNSW 
L RT504.Z 
LDX L3 TRACE 
STX L3 /0009 



LDX L3 INLVT+2 
STX 3 TRAER+1 

LDX L3 RT502 

STX L3 LPERR+1 



• 








LOX 


3 10 


• 








SLA 

STO 


16 

TRIND 



LOX 



2 



CK IF RUN NO STOPS 
RUN BYPASS ROUTINE 5 

SET TRACE TRAP AODRS 

HEX PASS NO. 

SET LOOP ON ERROR 
PASS CONTROL 

CLEAR TRACED INDICTR 
EXPECTED INSTRN.INDX 



BSI L LCG LOG SET TRACE SRC 

OC INM10 

*»»#*»**••♦♦♦»**»*****»♦**••»********»*•**»** 
* 

SE1 TRACE MODE 



WTF WAIT 

• 

RT500 LO 
RfE 
STO 

S 

EOR 

M 

A 

BSC 



15 



THE 1ST 10 INSTRUCTION 
ARE CHECKED FOR PROPER 
SEQUENCE OF INTERRUPTS 



CN500 

31 

CN501 

CN500 

CN501 

CN501 

CN500 

Z 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



PART NO. 
PAGE 



8B310210 

8B310220 

8B31023.0 

8B310240 

8B310250 

88310260 

8B310270 

8B310280 

8B310290 

8B310300 

8B310310 

3B310320 

8B310330 

8B310340 

8B310350 

8B310360 

8B3 10370 

83310380 

8B310390 

8 B3 10400 

8B310410 

8B310420 

8B310430 

8B310440 

8B310450 

8B310460 

8B310470 

8B310480 

8B31O490 

8B310500 

8B310510 

8B3I0520 

88310530 

8B310540 

8B310550 

8B310560 

8B310570 

8B310580 

8B310590 

8B310600 

88310610 

8B310620 

8B310630 

8B3 10640 

8B310650 

8B310660 

8B310670 

8B310680 

8B310690 

8B310700 

eB310710 

88310720 

8B310730 

8B310740 

8B3107S0 

8B310760 

8B310770 

8B310780 

8B310790 

8B310800 

8B310810 

SB310820 

8B310830 

8B310640 

8B310850 

8B310860 

8B310870 

8B310880 



PROG 10 
PAGE 



2196467 
8A 



08B3-1 
6* 



N 
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PART NO- 
PAGE 



2196*67 
9A 



0465 





1000 




NOP 








0466 


3 


7000 


• 
RT501 


MOX 




RT501 




0467 





C025 


LO 




TRINO 


GET TRACED INDICATOR 


0468 


00 


4C180477 




BSC 


L 


TRAER.+- 


BRANCH NO INSTR TRCD 


046A 


00 


74010478 




MOX 


L 


TRAER+1,1 




046C 





6200 




LDX 


2 







0460 





1010 




SLA 




16 




046 E 





D01E 


* 


STO 




TRIND 


CLEAR TRACED INDICTR 


046F 





73FF 


MOX 


3 


-I 


CHECK IF 10 PASSES 


0470 





700E 


• 
***** 


MOX 




RT502 


NO 








**************************************** 


0471 


00 


44000523 




BSI 


L 


LOG 


LOG SET RUN MODE 


0473 





OAOB 




OC 




INM11 










********************************************* 


0474 





3010 


HTIO 

*• 


WAIT 




16 


SET RUN MODE 



SRC 



0475 00 4C400481 

04 77 00 C4000000 
0479 00 D4000B03 



047B 00 440004F5 
0470 OAEC 



047E 70EB 

047F 00 4C400450 

0481 00 C400013F 

0483 F008 

04 84 00 D4000191 

0486 00 4400048E 

0488 00 4C000177 



048A 0001 

048B 0000 

048C C006 

0480 0000 



BOSC L RT504 



RESET BRANCH 



048E 
048F 00 
0491 00 

0493 

0494 C 

0495 00 

0497 

0498 

0499 00 
049B 00 
0490 00 



0000 

0C000320 

0C000322 

631B 

COOA 

07000007 

73FF 

70FC 

0C000324 

0C000326 

4C80048E 



SET PASS NUMBER 
♦eRROR MESSAGE 



IN 



RT501+3 

L RT500 

L RTNNO 

CN502 

L SEQCK 

L INTST 

L RTNRT 



MAKE ANOTHER PASS 
PREPARE SEQUENCE CK 



SET SPURIOUS INT ADR 



TRAER LD L 

STO L INM18423 

* 

•** ******** ****••*• ************************** 

BSI L ERROR LOG TRACE DID NOT 
DC INM18 INTERRUPT 

**•******•• ***«********»*********** ********** 
* 

MDX 
* 

RT502 BOSC 
* 
RT504 LO 

EOR 

STO 

BSI 

BSC 

* 

* 

CN500 DC 
CN501 DC 
CN502 OC 
TRIM) OC 
• 

* 
* 
INTST DC 

XIO 

XIO 

LDX 

LD 

STO 

MOX 

MOX 

XIO 

XIO 

BSC 



SRC 



ROUTINE SIX CONSTANTS 



1 

6 




ROUTINE TO LOAD SPURIOUS 
INTERRUPT TRAP ADDRESSES 



049F 0609 



INCN 

* 



DC 




L MASKO 
L MASK1 
3 27 
INCN 
L3 /0007 
3 -1 
*-4 
L UMSKO 
L UMSK1 
I INTST 

SVINT 



MASK INTERRUPTS 



SE 



ADDRESS SVINT 
SET AODRESS SVINT 
♦INTO ALL INTERRUPT 
•LOCATIONS 
UNMASK INTERRUPTS 

RETURN TO USER 

TRAP ROUTINE ADORES 

SET TRAP ADDRESSES TO 



SX 



8B310890 
8B310900 
8B310910 
8B310920 
8B310930 
8B310940 
8B310950 
8B310960 
863 10970 
8B310980 
8B310990 
8B311000 
8B311010 
8B311020 
8B311030 
8B311040 
8B311050 
8B311060 
883 11070 
8B311080 
8B311090 
8B311100 
8B311110 
8B311120 
8B311130 
8B311140 
8B311150 
8B311160 
8B311170 
8B311180 
8B311190 
8B311200 
8B311210 
88311220 
8B311230 
8B311240 
8B311250 
8B311260 
8B311270 
8B311280 
8B311290 
8B3 11300 
8B311310 
8B3 11320 
8B311330 
8B311340 
8B311350 
88311360 
88311370 
8B311380 
8B311390 
8B311400 
8B311410 
8B311420 
86311430 
88311440 
8B3 11450 
8B3U460 
88311470 
8B311480 
8B311490 
8B311500 
88311510 
8B311520 
8B311530 
88311540 
8B311550 
88311560 



n 









* 














• 









O&AO 





0000 


NESTl 


DC 







04 A 1 





621B 




LDX 


2 


27 


04 A2 





C006 




LO 




NSTCN 


04 A 3 


00 


06000007 




STO 


L2 


7 


04 A 5 





72FF 




MOX 


2 


-I 


04A6 





70FC 




MDX 




*-4 


04A7 


00 


4C8004A0 


* 
NSTCN 

* 
• 


BSC 


I 


NESTl 


04A9 





0607 


OC 




SERVC 


04AA 





0000 


* 
• 
LVLST 


DC 







04AB 





6300 




LOX 


3 





04AC 





621B 




LDX 


2 


27 


04A0 





COOS 




LD 




LVLS1 


04AE 


00 


D7000008 


LVST1 


STO 


L3 


/0008 


04B0 





8006 




A 




LVLS2 


04B1 





7301 




MOX 


3 


1 


04B2 





72FF 




MDX 


2 


-1 


0*63 





70FA 




MOX 




LVST1 


04B4 


00 


4C8004AA 


* 
LVLS1 


BSC 


1 


LVLST 


04B6 





063A 


OC 




LVL01 


04B7 





0003 


LVLS2 

* 
• 


DC 




3 


04B8 





0000 


* 
* 
PRIST 


DC 







04B9 





6300 




LOX 


3 





04BA 





621A 




LOX 


2 


26 


04BB 





C020 




LO 




CNSTO 


04BC 


00 


D7000009 


SET 01 


STO 


L3 


9 


04BE 





7301 




MOX 


3 


1 


04BF 





801D 




A 




CNST1 


04CO 





72FF 




MDX 


2 


-1 


04C1 





70FA 




MOX 




SET01 


04C2 


00 


670006E0 




LOX 


L3 


PRIOl 


04C4 


00 


6F000008 




STX 


L3 


8 



SERVICE NESTED INTERRUPTS 
WHILE DISABLED 



SET INDEX 

AODRESS SERVC 

SET ADDRS IN XFER LC 

SKIP IF OONE 

BR TO DO NEXT VECTOR 

EXIT SUBROUTINE SX 



TRAP ADORESS SETUP 



SE 

« LVLOl 

ADD 3 FOR NEXT ADDRS 

RETURN SX 

1ST TRAP RTN. ADDRESS 



PRIORITY TRAP ADDRESS AND 
PRINT TABLE SETUP 



SE 



SET INDEX 

SET INDEX 

PICKUP STARTING AORS 

SET IN XFER VECTOR 

ADD 1 TO STORE IX 

ADD 20 FOR NEXT ADRS 

SKIP WHEN DONE 

GO LOAD NEXT VECTOR 

LOAD INTERNAL INTRPT 

• XFER VECTOR 



SiT UP PRIORITY SEQUENCE 
PRUT TABLE 



04C6 
04C7 
04C8 00 
04CA 00 
04CC 
04C0 
04CE 





00 



0400 00 



6334 

C818 

DF000A76 

DF000AB6 

73FE 

70FA 

D4000AAB 

04000AEB 



04D2 00 6580018E 
0404 00 C00002BC 
0406 00 OC0007C0 
0408 00 0C000714 
040A 00 4C8004B6 



LDX 
LOO 

SET02 STD 
STO 
MDX 
MDX 
STO 
STO 

• 

• 

LDX 
LDD 
STO 
STD 
BSC 

* 



3 52 

CNST2 

L3 IN16V-2 

L3 IN17V-2 

3 -2 

SET02 

L IN16V+51 

L IN17V*51 



REQUEST SEQUENCE MSG 
SERVICO SEQUENCE MSG 



SET TERMINATOR AT 
END OF MESSAGE TABLE 



SET IOCC FOR LOWEST LEVEL 



II LVLIX 

LI XIOCC 

L PR262 

L PR272 

I PRIST 



GET COMMAND FROM TBL 
SE1 IN TR AND CE 
TRAP ROUTINES 

EXIT SX 

SETUP CONSTANTS 



8B311570 
8B311580 
88311590 
8B311600 
8B311610 
8B3U620 
8B311630 
88311640 
8B311650 
88311660 
8B311670 
8B311680 
8B311690 
88311700 
8B311710 
8B311720 
8B311730 
88311740 
8B3U750 
8B311760 
8B311*70 
8B3U780 
8B311790 
8B311800 
8B311810 
8B311820 
88311830 
8B311840 
83311850 
8B311860 
86311870 
8B311880 
8B311890 
8B311900 
88311910 
8B3U920 
8B311930 
86311940 
8B311950 
88311960 
8B3 11970 
8B311980 
8B311990 
8B312000 
8B312010 
8B312020 
8B312030 
8B312040 
8B312050 
8B312060 
8B312070 
88312080 
8B312090 
8R312100 
88312110 
86312120 
88312130 
8B312140 
8B312150 
8B312160 
8B312170 
88312180 
8B312190 
88312200 
8B312210 
88312220 
8B312230 
86312240 



DATE 
EC NO. 



28FE666 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



PROG ID 
PAGE 



08B3-1 

9 



n 
o 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



C4N0V66 
415233 



PROG 10 
PAGE 



0883-1 
9A 
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(HOC 
0400 






06EE 
0014 


CNSTO 
CNSTl 

• 

CNST2 

• 
• 


DC 
DC 


PR 1 26 
20 


04DE 
04E0 
04E1 


00 






00000000 
FFFF 

0000 


DEC 

DC 
DC 



/FFFF 

/oooo 


04E2 





0000 


• 
* 
PRIPT 


DC 





0*>E3 
04E5 
04E7 
04E8 
04E9 


00 

00 








0C00018A 

C4000192 

1007 

4828 

7009 




XIO L BSUO 
LD L BSWOO 
SLA 7 
BSC *l 
MOX PRIXT 



LOWEST LEVEL ADORESS 



TERMINATOR 
BLANK 



PRIORITY SEQUENCE LOG 



SE 



04EA 00 '4000523 
04EC 0A58 



04E0 00 44000523 
04EF 0A6C 



04F0 00 44000523 
04F2 OAAC 



04F3 00 4C3004E2 



04F5 
04F6 00 
04F8 
04F9 
04FA 
04FB 
04FC 00 
04FE 



0000 

44000609 

7003 

0000 

COFE 

D0F9 

C48004F5 

DOOA 



04FF 00 74010522 

0501 00 0C00018A 
0503 00 C4000192 



0505 
0506 
0507 



0508 

0509 



050A 
0506 



1802 
4804 
7002 



401A 

0000 



1010 

D016 



050C 00 OC00018A 
050E 00 C4000192 



CHECK IF BYPASS 
•PRIORITY PRINTOUT 



LOG PRIORITY HEADING 
•I****************************************** 

BSI L LOG SRC 

DC INM15 

OUTPUT REQUEST SEQUENCE 

******************************************** 



BSI 
DC 



L LOG 
INM16 



SRC 



OUTPUT SERVICED SEQUENCE 

#**♦*»**♦* *♦**♦****!, ************************ 



BSI 
DC 



L LOG 
INM17 



SRC 



PRIXT BSC I PRIPT EXIT 

******************************************** 

ERROR ROUTINE 
*»*»**»♦♦*#****»**»**»«»»»**»»»*******»»»»*♦ 



ERROR DC 

BSI L SVINT RESET POSSIBLE OSW 

MDX ERALT+3 SKIP ALTERNATE ENTRY 

ERALT DC ALTERNATE TRACE ENTR 

LD ERALT STORE ALTERNATE ENTR 

STO ERROR *I CTR IN KORMAL ENT 

LD I ERROR SET MESSAGE ADDRESS 

STO ERROl+l IN LOG CALL 

• 

MOX L ERRIDtl SET ERR CALL INDCTOR 



SE 

SRC 



XIO 
LD 

SRA 
BSC 
MDX 

*♦*»*»***»» 
ERR01 BSI 
DC 

ERR02 SLA 
STO 

XIO 
LD 



CHECK IF BYPASS 

♦ ERROR PRINT REQSTO 



L BSWO 
L BSWOO 

2 

E 

ERR02 



LOG GO PRINT ERROR SRC 

a********************************* 



16 

ERRID 

L BSUO 
L BSWOO 



CLEAR ERROR CALL 
INDICATOR 

CHECK IF HALT ON 
•ERROR REQUESTED 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



8JUN66 
415175 



04NOV66 
415233 



8B312250 
88312260 
8B312270 
8B312280 
BB312290 
8B312300 
8B312310 
8B312320 
8B312330 
8B312340 
88312350 
8B312360 
8B312370 
8B312380 
8B31239C 
8B312400 
8B312410 
8B312420 
8B312430 
8B312440 
8B312450 
86312460 
8B312470 
8B312480 
8B312490 
8B312500 
8B312510 
8B312520 
8B312S30 
8B312540 
8B312550 
8B312560 
8B312570 
8B312580 
8B312590 
8B312600 
8B312610 
8B312620 
8B312630 
8B312640 
8B312650 
8B312660 
8B312670 
8B312680 
8B312690 
8B312700 
8B312710 
8B312720 
8B312730 
8B312740 
8B312750 
88312760 
8B312770 
88312780 
88312790 
8B312800 
83312810 
8B312820 
8B312830 
68312843 
8B31?«50 
8B312B60 
8 8?- 12870 
86312880 
33312890 
8B312900 
8B312910 
8B312920 



PROG ID 
PAGE 



08B3-1 
10 



0510 1801 

0511 4804 

0512 700B 

0513 00 0C00018A 
0515 00 C4000192 



0517 

0518 

0519 



1803 
4804 
7006 



051A 00 740104F5 
051C 00 4C8004F5 



051E 
051F 



3011 
70F3 



0520 00 4C000000 

0522 0000 

0523 0000 

0524 6B1D 

0525 00 0C000320 
0527 00 0C000322 

0529 00 C400019A 
052B 00 4C18054B 

CS20 00 C4800523 
052F D058 

0530 0853 
0b31 00 4C040537 

0533 1601 

0534 00 4C040539 
0536 7004 



0537 

0538 

0539 
053A 



3012 
70F7 

3013 
70F5 



053 B Ofl4C 



053C 
0530 
053E 
053F 
0540 



C849 
1002 
4810 
70FC 
0843 



0541 00 67000300 
0543 00 0C000324 
0545 00 0C000326 
0547 00 74010523 

0549 00 4C800523 



I 
E 
HT11 

BSWO 

BSWOO 

3 

E 
LPERR 

ERROR, 1 
ERROR 



HALT ON ERROR BRANCH 

HECK IF LOOP ON 
"ERROR REQUESTED 



LOOP ERROR 

ADD 1 TO RETURN 
RETURN TO USER 



SRA 
BSC 
MDX 

• 

ERR03 XIO 

LD 

SRA 

BSC 

MDX 
• 

MOX 

BSC 

WT11 

LPERR BSC L 

ERRID DC ERROR CALL INDICATOR 

• LOS ROUTINE * 



SX 



WAIT 

MDX 



17 

ERR03 



ERROR HALT REQUESTED 

HALT ON ERROR REQ. 

LOOP LRROR REQUESTED 



LOG DC 

* 

LOG01 STX 
XIO 
XIO 

• 

LD 
BSC 

* 

LD 
STO 

• 

L0G02 XIO 
BSC 
SRA 
BSC 
MDX 

WT12 WAIT 

MDX 
• 
WT13 WAIT 

MDX 

L0GC5 XIO 

XIO 
SLA 
3SC 
MOX 
XIO 
• 

• 

L0G06 LOX 
XIO 
XIO 
rtDX 

• 

BSC 



SE 



3 L0G06+1 
L MASKO 
L MASK1 



SAVE IX 3 

MASK INTERRUPTS 



OPIND CK OUTPUT DEVICE 

TWRTR.+- BRANCH IF TYPEWRITER 



LOG 

PRWRT 

PPSNS 

WT12,E 

1 

WT13,E 

L0G05 

IB 

L0G02 

19 

L0G02 

PRWRT 

PRSN 
2 

•-4 
PRSNS 



GET MESSAGE ADDRESS 
SET IN IOCC 

CHECK PRINTER READY 
BRANCH IF NOT READY 

BRANCH IF BUSY 
READY AND NOT BUSY 

1443 NOT READY 
CHECK AGAIN 

1443 BUSY 
CHECK AGAIN 

OUTPUT MESSAGE 

CHECK FOR OP CCMPLT 



L3 

L UMSKO 
L UMSK1 
L L0G,1 

I LOG 



RESET DSrf 

PRINTING COMPLETE 

RESTORE IX 3 
UNMASK INTERRUPTS 

BUMP RETURN 

RETURN TO USER 



SX 



DATE 
EC NO. 



28FFB66 
415120 



01MAY66 
415120A 



8JUN6& 
415175 



04N0V66 
415233 



8B312930 
BB312940 
8B312950 
8B312960 
8B312970 
8B312980 
8B312990 
8B313000 
8B313010 
8B313020 
8B313030 
8B313040 
8B313050 
8B313060 
8B313070 
6B313080 
8B313090 
8B313100 
8B313110 
8B313120 
8B313130 
8B313140 
6B313150 
BB313160 
8B313170 
8B313180 
8B313190 
8B313200 
8B313210 
8B313220 
8B313230 
8B313240 
8B313250 
8B313260 
eB3l3270 
8B313280 
8B313290 
8B313300 
88313310 
8B313320 
8B313330 
8B313340 
8B313350 
88313360 
88313370 
8B313380 
8B313390 
88313400 
8B313410 
8B313420 
8B313430 
8B3 13440 
8B313450 
8B313460 
8B313470 
8B3134B0 
8B313490 
8B313500 
8B313510 
88313520 
8B313530 
8B313540 
8B313550 
8B313560 
88313570 
85313580 
8B313590 
8B313600 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



054 B 
054C 
0540 
054 E 
054 F 
0550 







00 


1010 

0032 
083C 
1005 
180F 
*C180554 


THRTR 




SLA 
STO 
XIO 
SLA 
SRA 
BSC 


L 


16 

HRDSH 

THSNS 

5 

15 

THR01 »♦- 


0552 
05 53 






3014 
70F9 


HT14 


WAIT 

MDX 




20 
THRTR +2 


0554 
0555 






C028 
002 A 


TWROl 


LO 
STO 




THRTO 
IOARA 


0556 





0835 


* 




XIO 




TWWRT 


0557 
0558 
0559 
055A 








0332 
180B 
4804 
70FC 


XIO 

SRA 
BSC 
HOX 




THSNS 
11 

E 
*-4 


055 B 
055C 
055E 




00 




6301 

C4800S23 

0001 


£ 


LDX 

LO 

STO 


3 
I 


1 

LOG 

TWR02+1 


055F 
0561 
0563 
0564 


00 
00 

00 


C7000000 
04000SBE 
F01A 
4C180541 


TKR02 


LO 
STO 
EOR 
BSC 


L3 

L 

L 




CODWD 
TViRTl 
LOC-06,*- 



0566 00 4400058E 



0568 00 C40005BE 
056A D01S 



056B 0820 



CHECK IF TYPEWRITER 
REAOY 



1816/1053 NOT REAOY 

CARRAIGE RETURN AND 
LINE SPACE TO 10 ARA 

CARG RETURN/LINE SP 

HANG TILL NOT BUSY 



BYPASS 1443 WORD COUNT 
GET MESSAGE ADDRESS 



GET WORD TO PRINT 
SFT IN CONVERSION RT 
CHECK IF TERMINATOR 
BRANCH IF TERMINATOR 

* 

♦**»****»*♦•*♦*»**#♦*♦*»•**♦*******<********* 

BSI L CODCV GO CONVERT 43 TO TW SRC 

*#*♦***#»♦*##*♦***♦»*»'»******************»»♦ 



056 C 
0560 
056E 
056F 



081D 
180B 
4804 
70FC 



LO 
STO 

* 

XIOWR XIO 

* 

XIOSN XIO 
SRA 
BSC 
MOX 



CODWD 
IOARA 



0570 COOE 

0571 4804 

0572 7006 



0573 COOC 

0574 1008 

0575 DOOA 

0576 00 7401057F 
0578 70F2 



0579 7301 
057A 00 7401057F 
057C 70E2 



0570 8103 



LD 
BSC 

MDX 



TWWRT 

TWSNS 
11 

E 
XIOSN 



WRDSH 

E 

TWR03 



OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUSY 

BUSY 

CHECK IF 1ST 1/2 WORO 

GET 1/2 WORD SWITCH 
GO SET UP NEXT WORO 

SET UP FOR 2ND 1/2 WORD 



LD 

SLA 

STO 

MDX 
MDX 

TWR03 HOX 
MOX 
MDX 

* 

TWRTO DC 



IOARA 

8 

IOARA 

WRDSW.l 

XIOWR 



POSITION 2ND 1/2 WD 

BUMP WORD SWITCH 
GO WRITC 2ND 1/2 WO 



SET UP FOR NEXT WORD 



3 1 

L WRDSWtl 
TWR02 



/8103 



NEXT WORD INDEX 
8UHP WOXD SWITCH 
GO GET KEXT WORD 

LOG CONSTANTS 

LINE SP/CARRA1GE RTN 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
.15175 



04N0V66 
415233 



PART NO. 2196467 
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8B313610 

8B313620 

8B313630 

8B313640 

8B313650 

8B313660 

8B313670 

88313680 

88313690 

8B313700 

8B313710 

8B313720 

8B313730 

8B3 13740 

8B313750 

8B313760 

8B313770 

8B313780 

8B313790 

8B3 13800 

88313810 

8B313820 

8B313830 

8B313840 

8B313850 

8B313860 

8B313870 

8B313880 

8B313S90 

8B313900 

8B313910 

8B313920 

8B313930 

8B313940 

8B313950 

OB313960 

8B313970 

8B313980 

8B313990 

8B314000 

8B314010 

88314020 

8B314030 

8B314040 

88314050 

8B314060 

8B3 14070 

8B314080 

8B314090 

88314100 

8B314110 

8B314120 

8B314130 

8B314140 

8B314150 

8B314160 

8B314170 

BB314180 

8B314190 

8B314200 

8B314210 

8B314220 

8B314230 

BB314240 

8B314250 

8B314260 

88314270 

8B314280 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



057E FFFF 
057F 0000 
0580 0000 

0582 00 00000000 






0584 


0000 




0585 


3701 




0586 


0000 





0587 


3700 




0588 


0000 




0589 


3500 


*"°l 


058A 


0000 




058B 


0F03 




05 8C 


0580 


J 


0580 


0902 



058E 





0000 


058F 





6927 


0590 





6A28 


0591 





6B29 


0592 





1010 


0593 





D02B 


0594 





6300 


0595 





C028 


0596 





1890 


0597 





C027 


0598 





4820 


0599 





1088 


059A 





1010 


059 B 





1084 


059C 





002 3 


059D 


00 


658005C0 



059F 1010 
05A0 1084 
05A1 001E 
05A2 00 668005C0 

05A4 00 C50005C3 
05 A6 D001 

05A7 00 C6000000 
05A9 00 D70005C1 

05AB C013 
05AC 00 4C2005B2 
05AE 00 740105BF 
05B0 7301 
05B1 70E3 

05B2 COOE 

05B3 1008 

05B4 E80D 

05 B 5 D008 

05B6 00 65000000 
05B8 00 66000000 
05BA 00 67000000 



TERMINATOR 

1/2 WORD SHITCH 

OUTPUT AREA 



PRINTER SENSE IOCC 
NON RESET SENSE 
PRINTER HRITE IOCC 
TYPEWTR SENSE IOCC 
TYPEWTR HRITE IOCC 



THRT1 DC /FFFF 
HRDSH DC 
IOARA DC 

DEC 

* 

PRSNS DC /OOOO 

DC /3701 

PRSN DC 

DC /37C0 

PRHRT OC /OOOO 

OC /3500 

THSNS DC /OOOO 

DC /0F03 

TWHRT DC IOARA 

OC /0902 

* 1443 COPE TO 1816/1053 • 

* CODE CONVERSION ROUTINE * 

♦♦♦♦♦a*************************************** 

CODCV DC 

STX 

STX 

STX 
* 

SLA 

STO 

LDX 

C0DC1 LO 
SRT 



LO 

BSC 

SLT 

SLA 
SLT 
STO 
LDX 
* 

SLA 
SLT 
STO 
LDX 

LD 
STO 

C0DC2 LD 
STO 

LD 
BSC 

MOX 
MDX 
MOX 

C0DC3 LD 
SLA 
OR 
STO 

C0DC4 LDX 
LDX 
LDX 

* 



1 C00C4+1 

2 C0DC4*3 

3 C0DC4»5 

16 

LHIND 
3 

CODWD 
16 

LHIND 

Z 
8 

16 

4 
CODOO 

11 CODOO 

16 

4 
CODOO 

12 CODOO 

LI ZONE 
C0DC2+1 

L2 

L3 C0D01 

LHIND 
L C0DC3.Z 
L LHIND. 1 
3 1 

C0DC1 

C0D01 
8 

COD 02 
CODWD 

LI 
L2 
L3 



SAVE INDEX REGS 



CLEAR LEFT HALF WORO 
♦INDICATOR 



G«=T WORD TO CONVERT 
SET IN Q 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO AC CUM 
IX 1 - ZONE 

DIGIT TO ACCUM 

IX 2 - DIGIT 

GET ZONE TABLE AODRS 
SET IN CONVERSION WD 

GET CONVERTED CODE 

BR.1CH IF RIGHT HALF 

GO CONVERT RIGHT HLF 
PACK CONVERTED CODES 



RESTORE INDEX REGS 



DATE 
EC NO. 



28FFB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



PART NO. 2196467 
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8B314290 
8B314300 
8B314310 
8B314320 
8B314330 
8B314340 
8B314350 
8B314360 
8B314370 
88314380 
BB314390 
8B314400 
8B314410 
8B314420 
8B314430 
8B314440 
8B314450 
8B314460 
8B314470 
8B314480 
8B314490 
8B314500 
SE 8B314510 
8B314520 
8B314530 
8B314540 
8B314550 
8B314560 
8B314570 
8B314560 
88314590 
8B314600 
8B314610 
88314620 
8B314630 
8B314640 
88314650 
8B314660 
8B314670 
8831*680 
8B314690 
8B3 14700 
8B314710 
8B3 14720 
8B314730 
8B314740 
8B314750 
88314760 
8B314770 
8B314780 
8B314790 
8B314800 
8B314810 
88314820 
8B314830 
8B3 14840 
88314850 
88314860 
8B314870 
8B3148B0 
63314890 
8B314900 
8B314910 
BB314920 
8B314930 
8B314940 
8B314950 
8B314O60 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



PART NO. 2196*67 
PAGE I 2 * 



05BC 00 4C8005BE 



BSC I CODCV 



05BE 
OSBF 
05C0 
05CI 
05C2 



0000 
0000 
0000 
0000 
0000 



CODWO OC 
LHINO OC 
COOOO OC 
C0001 OC 
COO 02 OC 
• 











RETURN TO US=R SX 



CONSTANTS 

WORD LOCATION 

I EFT HALF INDICATOR 

WORK AREA 

CONVERTED LH CHARACT 

CONVERTED RH CHARACT 



1443 TO 1816/1053 
CONVERSION TABLES 



COOE 



ObC3 


05C7 


ZONE 


DC 


ZONEN 


NO ZONE 


0SC4 


0502 




DC 


Z0NE1 


ZONE 


05C5 


0500 




OC 


20NE2 


11 ZONE 


05C6 


05E7 


• 

I ON EN 


OC 


Z0NE3 


12 ZONE 


05C7 


0021 


DC 


/0021 


SPACE 


05C8 


OOFC 




OC 


/OOFf. 


1 


05C9 


0008 




OC 


/00D8 


2 


05CA 


OOOC 




OC 


/OOOC 


3 


OSCB 


OOFO 




DC 


/OOFO 


4 


OSCC 


00F4 




OC 


/O0F4 


5 


05C0 


OODO 




OC 


/OOOO 


6 


05CE 


0004 




OC 


/0004 


7 


OSCF 


00E4 




DC 


/00E4 


8 


0500 


OOEO 




OC 


/OOEO 


9 


0501 


00C4 




OC 


/00C4 





05D2 


0000 


Z0NE1 


DC 







0503 


0000 




OC 







0504 


009A 




OC 


/009A 


s 


0505 


009E 




DC 


/009E 


T 


0506 


0082 




OC 


/00B2 


U 


0507 


00B6 




OC 


/00B6 


V 


0508 


0092 




OC 


/0092 


M 


0509 


0096 




oc 


/0096 


X 


05 DA 


0DA6 




DC 


/O0A6 


Y 


050B 


00A2 




DC 


/00A2 


Z 


050C 


0021 




OC 


/0021 


SPACE 


05D0 


oooo 


Z0NE2 DC 







050E 


007E 




OC 


/007E 


J 


050F 


005A 




OC 


/005A 


K 


-05 EO 


005E 




OC 


/005E 


L 


05E1 


0072 




OC 


/0072 


M 


05E2 


0076 




OC 


/0076 


N 


05E3 


0052 




DC 


/0052 





05E4 


0056 




OC 


/0056 


P 


05E5 


0066 




OC 


/0066 





05E6 


0062 




OC 


/0062 


R 


05E7 


0000 


2 ONE 3 DC 







05E8 


003E 




OC 


/003E 


A 


05E9 


001A 




DC 


/001A 


8 


05EA 


001E 




DC 


/001E 


C 


05 EB 


0032 




OC 


/0032 





05EC 


0036 




OC 


/0036 


E 


05E0 


0012 




DC 


/0012 


F 


05EE 


0016 




OC 


/0016 


G 


05EF 


0026 




OC 


/0026 


H 


05F0 


0022 




DC 


/0022 


I 


05F1 


0086 




OC 


/0086 


ERROR 


05F2 


0000 


• 


OC 


/OOOO 


PERIOD 






• 
• 
• 




1 


MINUTE DELA 


DATE 


28FEB66 


01MAY66 


08JUN66 


04N0V66 


EC NO. 


415120 


415120A 


415175 


415233 



8B314970 

88314980 

8B314990 

8B315000 

8B315010 

8B315020 

8B315030 

8B315040 

8B315050 

88315060 

8B315070 

8B315080 

8B315090 

8B315100 

8B315110 

8B315120 

8B315130 

8B315140 

6B315150 

BB315160 

8B31S170 

8B315180 

8B315190 

8B315200 

8B315210 

88315220 

88315230 

8B315240 

8B315250 

88315260 

8B315270 

8B3152BO 

88315290 

88315300 

88315310 

8B315320 

8B315330 

BB315349 

8B315350 

BB315360 

6B31S370 

8B315380 

88315390 

8B315400 

88315410 

8B315420 

88315430 

BBS 15440 

8B3154S0 

88315460 

88315470 

88315480 

88315490 

8B315500 

8B315510 

88315520 

88315530 

8B315540 

eB315550 

88315560 

88315570 

88315580 

88315590 

8B315600 

88315610 

68315620 

8B315630 

88315640 
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05F3 
05.F4 
05F6 
05F7 
05F8 00 
05FA 
05FB 
05FC 





00 












05F0 00 

05FF 
0600 



OOOO 

65000300 

COOS 

0008 

74FF0600 

70F0 

71FF 

70F9 

4C8005F3 

8D3F 
OOOO 



DELAY 



0601 OOOO 

0602 00 0C000604 

0604 COFC 

0605 00 040001F6 
0607 00 4C400000 



0609 
060A 
0608 00 
0600 00 
060F 

0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
061 A 
061B 00 
0610 
061E 00 
0620 
0621 
0622 
0623 
0624 00 
0626 
0627 
0628 
0629 
062 A 
062B 
062C 
0620 
























062 E 00 



0630 
0631 
0632 
0633 
0634 
0635 
0636 



OOOO 

0020 

0C0006D4 

74020637 

1010 

0023 

C020 

D023 

C01D 

D020 

C01E 

1008 

E810 

E810 

001F 

0810 

74FF0635 

70F7 

74010634 

C013 

900E 

4808 

70EF 

74FF0637 

7001 

7005 

COOA 

OOOC 

1010 

0008 

70E6 

COOA 

4CC00609 



001F 
OOFF 
0701 
0700 
OOOO 
OOOO 
OOOO 



• 

DELY1 

DELY2 

* 
POLL 



PLEXT 

* 

SVINT 



DC 
LDX 
LO 
STO 

MDX 
MOX 
MDX 
MOX 
BSC 

DC 
DC 



LI 



SVINO 
SVIN1 





/0300 

DELY! 

DELY2 

DELY2 t -l 

DELAY+5 

-I 

DELAY+3 

DELAY 



SE 



DC 

XIO L 
LO 

STO L 
BOSC L 



L 
L 



SVEXT 

* 

SVO 

SV1 

SV2 

SV3 

SV4 

SV5 

SV6 



SET DELAY INDEX 
PICKUP DELAY CONSTAT 
SET IN DELAY SWITCH 
SKIP WHEN SW « 
BRN TO DfcCRFMENT SW 
SKIP WHEN DLY IX « C 
BR TO RELOAD DLY SW 
EXIT SUBROUTINE 



SX 



/8D3F 






ILSW 

POLL 

ICTR 





ROUTINE 1 TRAP ROUTINE 

ENTRY 

INSURE NO ILSW ON 



IE 



SAVE I COUNT AT INTP 
RETURN TO MAIN LINE IX 



ROUTINE TO SERVICE NON 
PROGRAM GENERATED INTERPT 



DC 

STO 

XIO 

MDX 

SLA 

STO 

LO 

STO 

LD 

STO 

LD 

SLA 

OR 

OR 

STO 

XIO 

MDX L 

MOX 

MDX L 

LD 

S 

BSC 

MOX 

MDX L 

MDX 

MDX 

LO 

STO 

SLA 

STO 

MDX 

LO 

BOSC I 



DC 
DC 
DC 
OC 
DC 
OC 
DC 





SVIO 

ILSW 

SV7.2 

16 

SV4 

SV2 

SV6 

SV1 

SV5 

SV4 

11 

SV5 

SV6 

SVIO* I 

SVIO 

SV5.-1 

SVIN1 

SV4ti 

SV4 

SVO 

♦ 

SVINO 

SV7,-1 

• ♦1 

SVEXT-l 

SV3 

SV6 

16 

SV4 

SVINO 

SVIO 

SVINT 



IE 



SAVE ACCUMULATOR 

RESET ILSW 

SET PASS SWITCH 

CLEAR AREA CODE CNTR 

SET IOCC IN USE SW 

SET MODIFIER COUNTER 

• BUILD IOCC 

* 

SENSE OSW AND RESET 

BRANCH IF NOT ALL MD 
INCREMENT AREA CODE 

CHECK IF ALL AC USED 
SKIP IF ALL AC USEO 
GO SENSE WITH NXT AC 
SKIP IF SECOND PASS 



SET IOCC FOR PI 

SET AC FOR NEXT 

♦PASS 

RESTORE ACCUMULATOR 

EXIT IX 



♦* CONSTANTS ** 

/001F NUMBER OF AREA CODES 

/OOFF NUMBER OF MODIFIERS 

/0701 SENSE/RESET DSW 

/0700 SENSE/RESET PISW 

AREA CODE INDICATOR 

MODIFIER INDICATOR 

IOCC IN USE 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



8B315650 

8B315660 

8B315670 

8B315680 

8B315690 

8B315700 

86314710 

8B315720 

8B315730 

8B315740 

6B315750 

8B315760 

8B315770 

8B315780 

8B3 15790 

6B315800 

8B31S810 

88315820 

8B315830 

8B315840 

8B315850 

8B315860 

8B315870 

8B315880 

8B315890 

8B315900 

88315910 

8B315920 

8B315930 

8B315940 

8B315950 

8B315960 

8B3 15970 

8B315980 

8B315990 

8B316000 

8B316010 

8B316020 

8B316030 

CB316040 

8B316050 

88316060 

8B316070 

8B316080 

8B316090 

8B316100 

8B316U0 

8B316120 

8B316130 

8B316140 

6B316150 

8B316160 

88316170 

88316180 

8B316190 

8B316200 

8B316210 

8B316220 

88316230 

8B316240 

88316250 

8B316260 

8B316270 

88316280 

8B3162<50 

RB316300 

6B3I6310 

88316320 



PROG 10 
PAfct 



0RB3-1 
12* 



F C, 



t ( ( ( ( < ( ( < ( i ( ( ( t ( < . i i c ( ( ( i i < ( i, ( (< c> ( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0637 0000 

0638 0000 

0638 0000 

0639 0000 



063 A 0000 
06 3 B 4 OAF 
063C 3529 



063D 0000 
063E 404C 
063F 1329 



0640 0000 

0641 4049 

0642 3335 



0643 0000 

0644 4046 

0645 OAOA 



0646 0000 

0647 h043 

0648 OAOl 



0649 0000 
064A 4040 
064 B 0A02 



064C 0000 
0640 4030 
064E OA03 



064F 0000 



SV7 OC 

BSS I 
SVIO OC 

OC 

LVL01 DC 
BSI 

OC 

* 

* 

LVL26 OC 
BSI 
OC 

LVL27 DC 
BSI 

OC 

* 
* 

LVL02 DC 
BSI 
DC 

* 

LVL03 DC 
BSI 

OC 

• 

* 

LVL04 DC 
BSI 

DC 

* 

* 

LVL05 DC 
BSI 
DC 

LVL06 OC 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 










PASS SWITCH 
SENSE DSW IOCC 

INTERRUPT TRAP ROUTINES 



INTERRUPT LEVEL ERROR 
PRIORITY 1 





CMTRP 

/3529 



GO TO COMN TRAP RTN. SRC 
ER 



INTERRUPT LEVEL TRACE 
PRIORITY 26 



CMTRP GO TO COMN TRAP RTN. SRC 

/1329 TR 

INTERRUPT LEVEL CE 
PRIORITY 27 





CMTRP 
Z3335 



GO TO COMN TRA» RTN. SRC 
CE 



INTERRUPT LEVEL 
PRIORITY 2 



CMTRP GO TO COMN TRAP RTN. SRC 

/OAOA 00 



INTERRUPT LEVEL I 
PRIORITY 3 

GO TO COMN TRAP RTN. SRC 
01 





CMTRP 
/OAOl 



INTERRUPT LEVEL 2 
PRIORITY 4 



CMTRP GO TO COMN TRAP RTV. SRC 

/0A02 02 

INTERRUPT LEVEL 3 
PRIORITf 5 



CMTRP GO TO COMN TRAP RTN. SRC 

/OA03 03 

INTERRUPT LEVEL 4 
PRIORITY 6 



08JUN66 
415175 



04N0V66 
415233 
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8B316330 

8B316340 

8B316350 

8B316360 

8B316370 

8B316380 

8B316390 

8B316400 

8B316410 

8B316420 

8B316430 

8B316440 

6B316450 

8B316460 

8B316470 

8B316480 

8B316490 

88316500 

BB316510 

8B? 16520 

8B316530 

8B316540 

8B316550 

8B316560 

8B316570 

8B316580 

8B316590 

8B316600 

8B316610 

8B316620 

8B316630 

8B3 16640 

8B316650 

8B316660 

8B316670 

8B316680 

8B316690 

8B316700 

8B316710 

8B316720 

8B316730 

8B316740 

8B316750 

8B316760 

8B316770 

8B316780 

8B3i67«0 

8B316800 

8B316B10 

88316820 

8B316830 

8 B3 16840 

8B316850 

8B316860 

8B316870 

8B3168B0 

8B316490 

8B316900 

8B316910 

8B316920 

8B316930 

8B3 16940 

8B316950 

8B316960 

86316970 

8B316980 

8B316990 

8B3 17000 



PROG ID 
PAGE 



V 



t ) 






o 



08B3-1 
13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0650 

0651 



403A 
0A04 



0652 0000 

0653 4037 

0654 0A05 



0655 0000 

0656 4034 

0657 0A06 



0658 0000 

0659 4031 
065A 0A07 



065B 0000 
065C 402E 
0650 0A08 



065 E 0000 
065F 402B 
0660 0A09 



0661 0000 

0662 402B 

0663 010A 



0664 0000 

0665 4025 

0666 0101 



0667 0000 

0668 4022 

0669 0102 



BSI 
DC 

* 

LVL07 OC 
BSI 
DC 

LVL08 DC 
BSI 
DC 

LVL09 DC 
BSI 
OC 

* 

* 

LVL10 DC 
BSI 
OC 

* 

LVL11 



DC 

BSI 

DC 

* 

* 

LVL12 DC 
BSI 
DC 

LVL13 DC 
BSI 

OC 

* 

LVL14 OC 

BSI 
DC 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



CMTRP GO TO COMN TRAP RTN. SRC 

/0A04 04 



INTERRUPT LEVEL 5 
PRIORITY 7 





CMTRP 

/0A05 



GO TO COMN TRAP RTN. SRC 
05 



INTERRUPT LEVEL 6 
PRIORITY 8 





CMTRP 

/0A06 



GO TO COMN TRAP RTN. SRC 
06 



INTERRUPT LEVEL 7 
PRIORITY 9 



CMTRP GO TO COMN TRAP RTN. SRC 

/0A07 07 



INTERRUPT LEVEL 8 
PRIORITY 10 





CMTRP 
/0A08 



GO TO COMN TRAP RTN. SRC 
08 



INTERRUPT LEVEL 9 
PRIORITY 11 





CMTRP 

/0A09 



GO TO COMN TRAP RTN. SRC 
09 



INTERRUPT LEVEL 10 
PRIORITY 12 





CMTRP 
/010A 



GO TO COMN TRAP RTN. SRC 
10 





CMTRP 

/0101 



INTERRUPT LEVEL 11 
PRIORITY 13 

GO TO COMN TRAP RTN. SRC 
11 



INTERRUPT LEVEL 12 
PRIOKITY IN 



CMTRP GO TO COMN TRAP RTN. SRC 
/0102 12 



08JUN66 
415175 



04N0V66 
415233 
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88317010 

8B317020 

8B317030 

8B317040 

8B317050 

8B31 (060 

8B317070 

8B317080 

8B317090 

88217100 

8B317110 

8B317120 

8B317130 

8B317140 

8B317150 

8B317160 

8B317170 

8B317180 

8B317190 

8B317200 

8B317210 

8B317220 

8B317230 

8B317240 

8B317250 

8B317260 

8B317270 

8B317280 

8B317290 

8B3I7300 

8B317310 

8B317320 

88317330 

8B317340 

8B317350 

8B317360 

8B317370 

8B317380 

8B317390 

8B317400 

8B317410 

8B3 17420 

8B317430 

8B317440 

8B3 17450 

8B317460 

88317470 

8B317480 

8B317490 

8B317500 

8B317510 

8 B3 17520 

8B317530 

8B317540 

8B317550 

8B317560 

8B317570 

8B317580 

8B317590 

8B317600 

88317610 

8B317620 

BB317630 

8B317640 

BB317650 

8B317660 

8B3 17670 

8B317680 
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PAGE 



08B3-1 
13A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



INTERRUPT LEVEL 13 
PRIORITY 15 



066A 


0000 


LVL15 DC 


066 B 


401F 


BSI 


066C 


0103 


DC 



0660 0000 
066E 401C 
066F 0104 



0670 0030 

0671 4019 
06--2 0105 



0673 0000 

0674 4016 

0675 0106 



0676 0000 

0677 4013 

0678 0107 



0679 0000 
067A 4010 
067B 0108 



067C 0000 
0670 4000 
067E 0109 



067F 0000 

0680 400A 

0681 020A 



0682 0000 



VL16 DC 
BSI 
DC 



VL17 DC 
BSI 

DC 



VL18 DC 
BSI 
DC 



VL19 DC 
BSI 

DC 



VL20 DC 
BSI 
DC 



VL21 DC 
BSI 
OC 



VL22 DC 
BSI 
DC 



VI 23 DC 



CMTRP GO TO COMN TRAP RTN. SRC 
/0103 13 



INTERRUPT LEVEL 14 
PRIORITY 16 



CMTRP GO TO COMN TRAP RTN. SRC 
/0104 14 



INTERRUPT LEVEL 15 
PRIORITY 17 



CHTRP GO TO COMN TRAP RTN. SRC 
/0105 15 



INTERRUPT LEVEL 16 
PRIORITY 18 



CMTRP GO TO COMN TRAP RTU. SRC 
/0106 16 



INTERRUPT LEVEL 17 
PRIORITY 19 



CMTRP GO TO COMN TRAP RTN. SRC 
/0107 17 



INTERRUPT LEVEL 18 
PRIORITY 20 



CMTRP GO TO COMN TRAP RTN. SRC 
/0108 18 



INTERRUPT LEVEL 19 
PRIORITY 21 



CMTRP GO TO CONN TRAP RTN. SRC 
/0109 19 



INTERRUPT LEVEL 20 
PRIORITY 22 



CMTRP GO TO COMN TRAP RTN. SRC 
/020A 20 



INTERRUPT LEVEL 21 
PRIORITY 23 
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8B317690 

BB317700 

88317710 

8B317720 

8B317730 

8B317740 

8B317750 

8B317760 

8B317770 

8B317780 

8B317790 

8B317800 

6B317810 

8B317820 

8B317830 

8B317840 

8B317850 

8B317B60 

8B317870 

8B317880 

8B317890 

8B317900 

8B317910 

8B317920 

8B317930 

8 B3 17940 

8B317950 

8B3 17960 

8B317970 

8B317980 

8B317990 

8B318000 

8B318010 

8B318020 

8B318030 

8B318040 

8B318050 

8B318060 

8B318070 

8B318080 

8B318090 

8B318100 

8B318110 

8B318120 

68318)30 

8B318140 

8B318150 

88318160 

8B318170 

8B318180 

8B318190 

8B318200 

8B318210 

8B318220 

8B318230 

8B318240 

8B318250 

8B318260 

8B318270 

8B3182dO 

8B318290 

8B31630O 

6B318310 

8B318320 

88318330 

88318340 

8B3183S0 

8B318360 



r> 

r, 



n 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0683 

0684 



4007 
0201 



0685 0000 

0686 4004 

0687 0202 



0688 0000 

0689 4001 
068A 0203 



068B 
068C 00 
068E 00 
0690 00 

0692 

0693 

0694 



0695 00 
0697 00 
0699 00 
069B 00 
0690 OC 
069 F 00 



0000 

C4B0068B 

04000995 

9400098E 

D037 

0840 

D041 



C400018F 
F400042B 
4E180000 
C40001BF 
F400031B 
4C180306 



06A1 00 C4000281 

06A3 00 4C2006A8 

06A5 00 440006D7 

06A7 7004 



06A8 C021 
06A9 00 4C1806B4 

06AB 7005 



06AC 00 440004F5 
06AE 099A 

06AF 00 4C00023B 

06B1 00 440004F5 
06B3 0983 



06B4 00 C4000979 
06B6 00 9400092b 
06B8 00 4C5806CB 



BSI 
OC 

LVL24 OC 
BSI 

DC 



CMTRP 
/0201 



GO TO COMN TPAP RTN 
21 



SRC 



INTERRUPT LEVEL 22 
PRIORITY 24 





CMTRP 

/0202 



GO TO COMN TRAP RTN 
22 



SRC 



LVL25 



INTERRUPT LEVEL 23 
PRIOTITV 25 



OC 

BSI 

DC 





CMTRP 

/0203 



GO TO COMN TRAP RTN 
23 



SRC 



* 

CMTRP DC 
LD 
STO 
S 

STO 
XIO 
STO 

LD 

EOR 

BSC 

LD 

EOR 

BSC 



COMMON 


CMTRP 
INMJ4*18 
INM04UI 
CNMOO 
ILSW 
ILSAV 



TRAP ROUTINE 

NO. OF LVL. SERVICEO 

SET IN MESSAGE 

SUB REQUEST NUMBER 

SAVE 

SENSE AND SAVE ILSM 



EXIT IF ROUTINES 4 OR 5 



LD 
BSC 
BSI 
MOX 



L 

L 

L2 

L 

L 

L 



RTNNO 

CN403 

Ot*- 

RTNNO 

CN303 

RT308,* 



ROUTINE 5 EXIT 



ROUTINE 4 EXIT 



CHECK WHICH PASS OF RTN.l 



CN102 
CMT02.Z 
SERVC 
CMTOO 



SERVICE OISABLED 
•INTERRUPT 



SRC 



CHECK IF PROPER LEVEL SRVC 



BRANCH ON PROPR IVL 
WRONG LEVEL SERVICEO 



* 

CPT02 LO CHMOO 

BSC L CMT03,* 

MOX CMT01 

* 

•ft******************************************* 
CMTOO BSI L ERROR PRINT REO INTERRUPTO SRC 
DC INM05 WITH DISABLE SW ON 

***»*****»**♦**»**»♦**»#»*»»»#»•»»»»**•»*»••• 

BSC L RT104 

CMT01 BSI L ERROR PRINT WRONG LEVEL SRC 

DC INH04 SERVICED 
»»****»»*»*»»♦*»**»»•**•»»*»»***»*••»••••»••• 
* 

CMT03 LD L INH03UI CK IF LVL INTERNAL 

S L INLVT 

BOSC L CMT06t+- BRANCH IF INTERNAL 
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8B318370 

8B31838C 

8B318390 

8B318400 

BB318410 

8B318420 

8B318430 

8B318440 

8B318450 

8B318460 

8B318470 

8B318480 

8B318490 

8B318500 

8B318510 

8B318520 

88318530 

8B318540 

8B318550 

8B318560 

8B318570 

88318580 

8B318590 

8B318600 

8B318610 

8B318620 

8B318630 

8B318640 

88318650 

8B318660 

8B318670 

8B318680 

8B3 18690 

8B318700 

8B318710 

88318720 

8B318730 

8B318740 

8B318750 

8B318760 

8B318770 

8B318780 

8B318790 

8831B80S 

8B3186I0 

86318820 

8B318B30 

8B318840 

8B318850 

86316860 

88318870 

88318880 

88318890 

8631A900 

8B318910 

8B3I8920 

8B31B930 

8R318940 

86318950 

8B318960 

8B318970 

6B3189B0 

68316990 

8B319000 

86319010 

8B319020 

8B319030 

8B31904C 



DATE 
EC r.o. 



28FEB66 01MAY66 08JUH66 04NOV66 
415120 415120A 415175 415233 



PROG ID 
PAGE 



0883-1 
14 



DATE 
EC NO. 



28FEB66 
415120 



01MAV66 
41512QA 



08JUN66 
415175 



04N0V66 
415233 
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PAGE 
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N 
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06BA C01B 
06BB 00 4C60066F 

06BD 00 4C400236 



06BF 00 440004F5 
06 CI 0A45 



06C2 00 C4000199 
06C4 00 4C2006C8 
06C6 COOF 

06C7 3015 

06C8 00 4C00023B 
06CA 0000 

06C8 COOA 
06CC 00 4C2606C8 

06CE 00 440004F5 

0600 098* 

0601 70F0 

0602 00 00000000 



0604 O 

0605 



0000 
0300 



0606 0000 



0607 0000 

0608 00 OC000436 
060A 08F9 
060B 00 4CC006D7 



060C 00 
06E0 O 
06E1 
06E2 00 
06E4 00 
06E6 
06E7 00 
06E9 00 
06EB 00 
06E0 



00000000 

0000 

COOB 

D5000A78 

06000A8S 

7202 

OC000436 

0C0006D4 

4CC006E0 

3529 



06EE 0000 
06EF COOE 
06F0 00 D5000A78 
06F2 7102 
06F3 73FF 
06F4 7006 



06F5 O COOS 
06F6 00 06000ABB 
06F8 7202 



ID ILSAV 

BOSC L CMT05.Z 

BOSC L RT104 



CHECK USW 

BRANCH IF ILSW NOT 

RETURN TO ROUTINE 1 



#•»«•»»****♦*»*****#»*»*******************•** 
CMT05 BSI L ERROR PRINT ILSW NOT ZERO 

OC INH14 

•••**♦••*•#•*******•********************•***• 
• 

RUNSW 

CNMOO-2,2 

ItSAV 



SRC 



CMT04 LO 
BSC 
LD 

• 

WT15 WAIT 

BSC 
CNMOO OC 

CMT06 LD 
BSC 



DATE 
EC NO. 



BYPASS WAIT IF RUN 
MOOE KITH OUT STOPS 
ILSW TO A 



21 

RT104 




ILSU NOT 
ERROR ILSU 
CONTINUE 



PROG INT 



ILSAV 

„.,«. ». CNM00-2.*2 

»•••••»•••»••»*•**»*•****•******♦♦*********•* 

BSI L ERROR WRONG ILSW ON OP SRC 
DC INM06 COOE VIOLATE 

• •••*•»••**••••»***»♦*•*••>*************•**•*• 



MOX 
DEC 
ILSH OC 
DC 

ILSAV DC 
SERVC 



CNT04 


/oooo 

/0300 



CONTINUE 

SENSE ILSW IOCC 



SAVE F« ILSW 



DC 

XIO L CNSNS 

XIO USW 

BOSC I SERVC 



SENSE ILSW 
EXIT 



ESET 



SX 



PRIORITY TRAP ROUTINES 
INTERRUPT ROUTINE LEVEL ER 



DEC 
PRI01 DC 
LD 
STO 
STO 
MOX 
XIO 
XIO 
BOSC 
REQER OC 



PR 1 26 OC 
LD 
STO 

MOX 
MDX 
MOX 

PR261 LO 
STO 
MDX 







RECER 

IN16V 
L2 IN17V 

2 2 
L CNSNS 
L USW 
I PRI01 

Z3529 



LI 



ScT LEVEL ER REQUEST 
NUMBER IN REQ SEC MC 
SET ER IN SIR SEQ MC 

WRONG BTTN PROTECT 
SENSE RESET 



ER 

INTERRUPT ROUTINE LEVEL TR 





REOTR 
LI IN16V 
1 2 
3 -1 

PR260 



LEVEL TR REOUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 



REOTR 
L2 IN17V 
2 2 



SERVICE THIS LEVEL 

ICVEL TR TO LEVEL 

SRVCD SEQUENCE MSG 



28FEB66 
415120 



01MAY66 
41 5 120 A 



08JUN66 
415175 



04N0V66 
415233 



8B319050 

88319060 

8B319070 

8B3190B0 

8B319090 

BB319100 

8B319110 

88319120 

8B319130 

8B319140 

8B319150 

8B319160 

88319170 

BB319180 

8B319190 

88319200 

8B319210 

8B319220 

8B319230 

8B319240 

8B319250 

88319260 

BB319270 

8B319280 

8B319290 

BB319300 

8B319310 

88319320 

88319330 

88319340 

88319350 

88319360 

88319370 

883193B0 

8B319390 

8B319400 

88319410 

8B319420 

8B319430 

8B319440 

88319450 

88319460 

88319470 

88319480 

8B319490 

88319500 

88319510 

6B319520 

88319530 

68319540 

88319550 

88319560 

88319570 

68319580 

8B319590 

88319600 

88319610 

8B319620 

68319630 

8B319640 

68319650 

88319660 

68319670 

8B319680 

6B319690 

6B319700 

88319710 

883 19720 



PROG ID 
PAGE 



r> 
Q 
n 



n 



0BB3-1 
15 



O 



o 



n o 



06F9 00 4C8006EE 

06FB 0804 

06FC 1000 

06F0 70F7 

06FE C 1329 

06FF 0000 

0700 0000 

0701 0000 



0702 0000 

0703 COOE 

0704 00 D5000A78 

0706 7102 

0707 73FF 

0708 7006 



0709 COOB 
070A 00 06000AB8 
070C 7202 
0700 00 4CC0C00A 

070F 0804 

0710 1000 

0711 70F7 



0712 

0713 

0714 

0715 



3335 
0000 

0000 
0000 



0716 0000 

0717 COOE 

0718 00 D5000A78 
071A 7102 
071B 73FF 
071C 7006 



0710 C006 
071 E 00 06000AB8 

0720 7202 

0721 00 4CC00716 

0723 0100 

0724 1000 

0725 70F7 



PR260 



BSC I 

XIO 
NOP 

MOX 



0726 

0727 

0728 

0729 



072A 
072 B 



OATE 
EC NO. 



OAOA 
0000 

0000 
0000 



0000 
COOE 



* 
REQTR 

PR262 

* 

PR I 27 



PR271 



PR270 



DC 
DC 

DC 
DC 



OC 
LO 
STO 

MDX 
MDX 
MOX 



REQCE 
PR272 

* 

PR 1 02 



LD 
STO 
MDX 
BOSC 

XIO 
NOP 
MDX 

OC 
OC 

DC 
OC 



PR 1 26 

PR262 

PR261 

M329 







NON RESET BRANCH 
ISSUE INTERRUPT 

TR 

LOWEST LEVEL IOCC 
INTERRUPT ROUTINE LEVEL CE 





REQCE 
LI IN16V 
1 2 
3 -1 
PR270 



LEVEL CE REQUEST TO 
REQUEST SEQUENCE MSC 



SERVICE THIS LEVEL 



REQCE 
L2 INI 7V 
2 2 
I /OOOA 

PR272 

PR271 

/333S 








LEVEL CE TO LEVEL 
SRVCD SEOUENCE MSG 

BRANCH RESET 

ISSUE INTERRUPT 



CE 

LOWEST LEVEL IOCC 
INTERRUPT ROUTINE LEVEL 00 



DC 
LO 
STO 

MOX 
MOX 
MOX 



PR021 LO 
STO 

MDX 
BOSC 

* 

PRO 20 DC 
NOP 
MDX 

REQOO DC 
DC 

DC 
DC 

PR 1 03 DC 
LO 





REQOO 
LI IM6V 
1 2 
3 -1 

PR020 



LEVEL 00 REQUEST TO 
REQUEST SEQUENCE MSG 



REQOO 
L2 IN17V 
2 2 
I PRI02 

/0100 

PR021 

/OAOA 







NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 00 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

ILLEGAL OP INTRP ER 

00 




REQ01 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



INTERRUPT ROUTINE LEVEL 01 
LEVEL 01 REQUEST TO 



04N0V66 
415233 



8B319730 

8B319740 

88319750 

8B319760 

8B3 19770 

8B319780 

8B319790 

88319800 

8B319810 

8B319820 

8B319830 

8B319840 

8B319850 

8B319860 

8B319870 

8B319880 

8B319890 

8B319900 

88319910 

8B319920 

8B319930 

8B319940 

8B319950 

8B319960 

8B3 19970 

8B319980 

8B319990 

88320000 

8B320010 

8B32J020 

88320030 

8B320040 

88320050 

88320060 

8B320070 

88320080 

6B320090 

8B320100 

8B320110 

8B320120 

8B320130 

8B320140 

8B320150 

8B320160 

BB320170 

88320180 

88320190 

BB320200 

8B320210 

8B320220 

8B320230 

8B320240 

68320250 

8B320260 

8B320270 

8B320280 

88320290 

8B320300 

8B320310 

8B320320 

8B320330 

8B320340 

8B320350 

88320360 

8B32037C 

8B320380 

88320390 

8B320400 
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072C 00 O5000A78 
072E 710? 
072F 73FF 
0730 7006 



0731 C008 

0732 00 06000AB8 
073* 7202 
0735 00 4CC0072A 

0737 080* 

0738 1000 

0739 70F7 



073A 
0738 

073C 
0730 



0A01 
0000 

8000 
04A0 



073E 0000 
073F COOE 
07*0 00 05000A78 

0742 7102 

0743 73FF 
C744 7006 



0745 C008 

0746 00 06000AB8 

0748 7202 

0749 00 4CC0073E 

074B 0804 
074C 1000 
0740 70F7 

074E 0A02 
0'4F 0000 



0750 

0751 



4000 
04 AO 



0752 0000 

0753 COOE 

0754 00 05000A78 

0756 7102 

0757 73FF 

0758 7006 



0759 COOS 
075A 00 06000AB8 
075C 7202 
0750 00 4CC00752 

075F 0804 

0760 1000 

0761 70F7 



OATE 
EC NO. 



28FEB66 

415120 



STO 

MOX 

MOX 
MOX 

• 

PRO 31 10 
STO 
MOX 
BOSC 

• 

PROM XIO 
NOP 
MOX 

• 

r;ooi oc 

DC 

PRO 32 DC 
OC 

• 

PR 1 04 OC 
LO 
STO 
MOX 
MOX 
MOX 



LI IN16V 
1 2 
3 -1 

PR030 



RE001 
L2 IN17V 

2 2 
I PRI03 

PR032 

PR031 



REQUEST SEQUENCE MSC 

NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 01 TO LEVEL 
SRVCO SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 



/0A01 


/8000 
/04A0 





REQ02 
LI IM6V 
1 2 
3 -I 
PR040 



01 

INTRP 00 IOCC 
INTERRUPT ROUTINE LEVEL 02 



LEVEL 01 REQUEST TO 
REQUEST SEQUENCE MSC 



PR041 



* 
PR04C 



RE002 
PRO 42 

PRI05 



* 
PROS! 



LO 
STO 

MOX 
BOSC 

xto 

NOP 
MOX 

OC 

OC 

DC 
OC 



REQ02 
L2 IN17V 
2 2 
I PRI04 

PR 04? 

PR 041 

/0A02 


/4000 
/04A0 



OC 
LO 
STO 

MOX 
MDX 
MDX 





REQ03 
LI IN16V 
1 2 
3 -I 

PR 050 



PRO 50 



LO 
STO 

MOX 
BOSC 

XIO 

NOP 
MDX 



REQ03 
L2 IN17V 
2 2 
I PRI05 

PRC52 

PR051 



NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 02 TO LEVEL 
SRVCO SEQUENCE MSC 

BRANCH RESET 

INTERRUPT FOR LVL 02 

02 

INTRP 01 IOCC 

INTERRUPT ROUTINE LEVEL 03 

LEVEL 03 REQUEST TO 
REQUEST SEQUENCE MSC 

NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 03 TO LEVEL 
SRVCO SEQUENCE MSC 

BRANCH RESET 

INTERRUPT FOR LVL 01 



01MAY66 
415120A 



08JUN66 04N0V66 
415175 415233 



PART NO. 
PAGE 



8B320410 

8B320420 

88320430 

8B320440 

8 63 2 0450 

8B320460 

8B320470 

BB320480 

8B320490 

8B320500 

8B320510 

8B320520 

8B320530 

8B320540 

8B320550 

8B320560 

88320570 

88320580 

BB320590 

8B320600 

8B320610 

8B320620 

88320630 

8B320640 

8B320650 

8B320660 

8B320670 

8B320680 

8B320690 

8B320700 

8B320710 

8B320720 

8B320730 

86320740 

8B3207S0 

86320760 

8B320770 

8B320780 

88320790 

88320800 

8B320810 

8B320820 

8B320830 

88320840 

8B320850 

8B320860 

6B320870 

8B320880 

8B320890 

PB32C900 

80320910 

88320920 

8B320930 

8B320940 

8B320950 

8B320960 

8B320970 

8B3209B0 

B8320990 

8B321000 

8B321011 

8B321020 

88321030 

8B321040 

8B321050 

6B321060 

8B321070 

8B371080 
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08B7-1 
16 



n 
n 



o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



0762 





0A03 


0763 





0000 


0764 





2000 


0765 





04*0 


0766 





0000 


0767 





COOE 


0768 


00 


DS000A78 


076A 





7102 


076B 





73FF 


076C 





7006 



0760 C008 
076E 00 D6000AB8 

0770 7202 

0771 00 4CC00766 

0773 0804 

0774 1000 

0775 70F7 

0776 0A04 

0777 0000 

0778 1000 

0779 04A0 



077A 
077B 



0000 
COOE 



077C 00 05000A78 
077E 7102 



0T7F 
0780 



73FF 
7006 



0781 C008 

0782 00 D6000AB8 

0784 7202 

0785 00 4CC0O77A 

078 7 0804 
0788 1000 
07d9 70F7 



078A 
078B 

078C 
078D 



0A05 
0000 

0800 
04A0 



078E 0000 
078F COOE 
0790 00 D5000A78 

0792 7102 

0793 73FF 

0794 7006 



REQ03 
PRO 52 

PR 1 06 



PR061 



OC 
DC 



DC 
OC 



DC 

LO 

STO 

MOX 

MOX 

MDX 



/0A03 


/2000 
/04A0 





REQ04 
LI IN16V 
1 2 
3 -1 
PR060 



PR060 



REQ04 
PR062 



PR 1 07 



PRO 71 



LD 
STO 
MDX 
BOSC 

XIO 

NOP 
MOX 

DC 
DC 
DC 
DC 



RE004 
L2 IN17V 
2 2 
I PRI06 

PR062 

PR061 

/OA04 


/1000 
/04A0 



03 

INTRP 01 IOCC 

INTERRUPT ROUTINE LEVEL 04 

LEVEL 04 REQUEST TO 
REQUEST SEQUENCE MSG 

NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 04 TO LEVEL 
SRVCD SEQUENCE MSC 

BRANCH RESET 

INTERRUPT FOR LVL 03 

04 

INTRP 03 IOCC 



INTERRUPT ROUTINE LEVEL 05 



DC 
LD 
STO 

MDX 
MDX 
MDX 





RE005 
LI IN16V 
1 2 
3 -1 

PR070 



LEVEL 05 REQUEST TO 
REQUEST SEQUENCE MSG 



DATE 
EC NO. 



'8FEB66 
415120 



* 
PR070 



REQ05 
PRO 72 

PR 1 08 



• 



01MAY66 
415120A 



LD 
STO 
MOX 
BOSC 

XIO 

NOP 
MOX 

DC 
DC 

DC 
DC 



REQ05 
L2 IN17V 

2 2 
I PRI07 

PR072 

PR071 

/0A05 


/0800 
/04AO 



NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 05 TO LEVEL 
SRVCO SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 04 

05 

INTRP 04 IOCC 
INTERRUPT ROUTINE LEVEL 06 



DC 

LD 

STO 

MDX 

MDX 

MDX 





REQ06 
LI IN16V 
1 2 
3 -I 
PR 080 



LEVEL 06 REQUEST TO 
REQUEST SEQUENCE MSG 



08JUN66 
415175 



SERVICE THIS INTERRUPT 



04N0V66 
415233 
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86321090 

8B321100 

86321110 

8B321120 

88321130 

8B321140 

88321150 

86321160 

8B321170 

8B321180 

8B321190 

8B321200 

&B321210 

8B321220 

8B321230 

C8321240 

8B321250 

86321260 

8B321270 

8B321280 

8B321290 

8B321300 

8B321310 

88321320 

88321330 

8B321340 

8B3213S0 

8B321360 

86321370 

8B321380 

8B321390 

8B321400 

8B321410 

8B321420 

8B321430 

86321440 

8B321450 

86321460 

86321470 

8B321480 

0B321490 

8B321500 

8B321510 

8B321520 

88321530 

8B321540 

8B321550 

8B321560 

88321570 

88321580 

86321590 

8B321600 

8B321610 

8B321620 

8B321630 

8B321640 

8B321650 

8B321660 

8B321670 

86321680 

86321690 

88321700 

8B321710 

8B321720 

8B321730 

8B321740 

8B321750 

8B321760 
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2196467 
17A 



0795 C008 

0796 00 D6000AB8 

0798 7202 

0799 00 4CC0078E 

079B 0804 
079C 1000 
0790 70F7 



079 E 
079F 

07A0 
07A1 



07A2 
07A3 



0A06 
0000 

0400 
04A0 



0000 
COOE 



07A4 00 D5000A78 
07A6 7102 



07A7 
07A8 



73FF 
7006 



07A9 COOS 
07AA 00 06000AB8 
07AC 7202 
07AC 00 4CC007A2 

07AF 0804 
07B0 1000 
07B1 70F7 



07B2 
0733 

07B4 
07B5 



0A07 
0000 

0200 
04A0 



07B6 0000 

07B7 COOE 

07B8 00 D5Q00A76 

07BA 7102 

07BB 73FF 

07BC 7006 



07B0 C008 
07BE 00 D6000AB8 
07C0 7202 
07C1 00 4CC007B6 

07C3 0804 
07C4 1000 
07C5 70F7 



07C6 
07C7 

07C8 
07C9 O 



DATE 

EC NO. 



OAOS 
0000 



0100 
04A0 



PR081 LD 
STO 
HOX 
BOSC 

• 

PR080 XIO 
NOP 
MDX 

RE006 DC 
DC 

PR082 DC 
DC 

• 

PR I 09 DC 
LD 
STO 
HOX 
MDX 
MDX 

PR091 LD 
STO 

MDX 
BOSC 



PR090 



REQ07 
PRO 92 

PR 1 10 



PR101 



PR 100 



RE008 
PR102 



XIO 

NOP 
MDX 

OC 
DC 

DC 
OC 



REQ06 
L2 IN17V 

2 2 
I PR 108 

PR 082 

PR081 



LEVEL 06 TO LEVEL 
SRVCD StQUENCE MSG 

BRANCH RESET 

INTERRUOT FOR LVL 05 



/0A06 


/0400 
/04A0 





REQ07 
LI IN16V 
1 2 
3 -1 

PR090 



REQ07 
L2 INliV 
2 2 
I PRI09 

PR092 

PR091 

/0A07 


/0200 
/04A0 



06 

INTRP 05 IOCC 
INTERRUPT ROUTINE LEVEL 07 



LEVEL 07 REQUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 07 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LV1 06 

07 

INTRP 06 IOCC 
INTERRUPT ROUTINE LEVEL 08 



OC 
LO 
STO 

MDX 
MDX 
MDX 



LO 
STO 

MOX 
BOSC 

XIO 

NOP 
MOX 

DC 
OC 

DC 
OC 





REQOB 
LI IM6V 
1 2 
3 -1 

PR100 



LEVEL 08 REQUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 



REQOB 
L2 IN17V 
2 2 
I PRI10 

PR 102 

PR101 



/0A08 


/C100 
/04AO 



28FE866 
415120 



01MAY66 
415120A 



08JUN66 
415175 



LEVEL 08 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LV1 07 

08 

INTRP 07 IOCC 
INTERRUPT ROUTINE LEVEL 09 



04N0V66 
415233 



8B321770 

8B321780 

8B321790 

8B321800 

8B321810 

8B321820 

8B321B30 

8B321840 

8B321850 

8B321860 

8B321870 

8B321880 

8B321890 

8B321900 

8B321910 

8B321920 

8B321930 

8B321940 

8B321950 

8B321960 

8B321970 

8B321980 

8B321990 

86322000 

8B322010 

BB322020 

8B322030 

8B322040 

8B322050 

8B322060 

8B322070 

8B322080 

8B322090 

8B322100 

8B322110 

8B322120 

8B322130 

8B322140 

8B322150 

8B322160 

8B322170 

8B322180 

8B322190 

8B322200 

8B322210 

8B322220 

8B322230 

88322240 

68322250 

8B322260 

8B322270 

8B322280 

8B322290 

8B322300 

86322310 

8B322320 

8B322330 

8B372340 

8B322350 

8B322360 

8B322370 

8B322380 

8B322390 

8B322400 

8B322410 

88322420 

863^2430 

8B322440 
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07CA 
07CB 



0000 
COCc 



n 



08B3-1 
17 



,"> 



O 



07CC 00 D5000A78 
07CE 7102 



07CF 
07D0 



73FF 
7006 



07D1 C008 
0702 00 D6000ABS 

0704 7202 

0705 00 4CC007CA 

0707 0804 
07D8 1000 
07D9 70F7 

070A 0A09 
070B 0000 

07DC 0080 
07DD 04A0 



070E 0000 

070F COOE 

07E0 00 0S000A78 

07E2 7102 

07E3 T3FF 

07E4 7006 



07E5 COOS 

07E6 00 D6000ABS 

07E8 7202 

07E9 00 4CC007DE 

07EB 0804 

07EC 1000 

07E0 70F7 



07EE 
07EF 

07F0 
07FI 



010 A 
0000 

0040 
04A0 



07F2 0000 
07F3 COOE 
07F4 00 05000A78 
07F6 7102 
07F7 73FF 
07F8 7006 



07F9 C008 
07FA 00 06000AB8 
07FC 7202 
07F0 00 4CC007F2 

07FF 0804 



PPUi DC 
LO 
STO 

MOX 
MDX 
MDX 

* 

PR111 LO 
STO 
MDX 
BOSC 

* 

PR110 XIO 
NOP 
MOX 



REQ09 
PR112 

PR 1 12 



DC 
DC 

OC 
OC 



DC 

LD 

STO 

MDX 

MDX 

MOX 



* 
PR121 



PR120 



* 
REQ10 

PR122 
PRI13 



PR131 



PR130 



LO 
STO 
MOX 
BOSC 

XIO 
NOP 
MDX 



DC 
DC 

DC 
OC 



DC 

LD 

STO 

MDX 

MOX 

MDX 





REQ09 
LI IN16V 
1 2 
3 -1 

PR110 



REQ09 
L2 IN17V 
2 2 
I PRI11 

PR112 

PR111 

/0A09 


/0080 
/04A0 





REQ10 
LI IN16V 
1 2 
3 -1 

PR 120 



REQ10 
L2 IN17V 
2 2 
I PR 1 12 

PR 122 

PR121 

/OlOA 


/0040 
/04A0 





REQ11 
LI IN16V 
1 2 
3 -1 

PR130 



LD 
STO 
MDX 
BOSC 

XIO 



REQ11 
L2 IN17V 
2 2 
I PRU3 

PR 132 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 





8B322450 




8B322460 


LEVEL 09 REQUEST TO 


8B322470 


REQUEST SESUENCE MSG 


BB322480 




8B322490 




8B322500 


NOT LAST INTERRUPT 


8B322510 




8B322520 


SERVICE THIS INTERRUPT 


8B322S30 




8B322540 


LEVEL 09 TO LEVEL 


8B322550 


SRVCD SEQUENCE MSG 


8B322560 




8B322570 


BRANCH RESET 


8B322580 




8B322590 


INTERRUPT FOR LVL 08 


8B322600 




8B322610 




BB322620 




8B322630 


09 


8B322640 




8B322650 




8B322660 


INTRP 08 ICCC 


8B322670 




8B322680 




8B322690 


INTERRUPT ROUTINE LEVEL 10 


8B322700 




6B322710 




8B322720 


LEVEL 10 REQUEST TO 


8B322730 


REQUEST SEQUENCE MSG 


8B322740 




8B322750 




8B322760 


NOT LAST INTERRUPT 


8B322770 




8B322760 


SERVICE THIS INTERRUPT 


8B322790 




83322800 


LEVEL TO LEVEL 


8B322810 


SRVCD SEQUENCE MSG 


8B322820 




BB322830 


BRANCH RESET 


8B322840 




8B322850 


INTERRUPT FOR LVL 09 


8B322860 




8B322870 




8B322880 




8B322890 


10 


8B32290C 




8B322910 




8B322920 


INTRP 09 IOCC 


8B322930 




6B322940 




88322950 


INTERRUPT ROUTINE LEVEL 11 


8B322960 




8B322970 




8B322980 


LEVEL 11 REQUEST TO 


8B322990 


REQUEST SEQUENCE MSG 


8B323000 




8B323010 




3B323020 


NOT LAST INTERRUPT 


S8323030 




8B323040 


SERVICE THIS INTERRUPT 


8B323050 




8B323060 


LEVEL 11 TO LEVEL 


8B323070 


SRVCD SEQUENCE MSG 


8B323080 




8B323090 


1 BRANCH RESET 


8B323100 




86323110 


INTERRUPT FOR LVL 10 


8B323120 


04N0V66 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
INTERRUPT FUNCTION TEST 



CBOO 1000 

0801 70F7 

0802 0101 

0803 0000 

0804 0020 

0805 04 AO 



0806 0000 

0807 COOE 

0808 00 D5000A78 
080A 7102 
080B 73FF 
080C 7006 



0800 C008 

08 OE 00 D6000AB8 

0810 7202 

0811 00 4CC00806 

0813 0804 

0814 1000 

0815 70F7 



NOP 
MOX 

* 

REQ11 DC 
DC 

PR132 OC 
DC 

» 

• 

PR I 14 DC 
LO 
STO 
MDX 
MDX 
MDX 

• 

PR141 tD 
STO 
MDX 
80 SC 

• 

PR140 XIO 
NOP 
MDX 



PR131 

/0101 


/0020 
/04A0 



11 

INTRP 10 IOCC 
INTERRUPT ROUTINE LEVEL 12 





REQ12 
LI IN16V 
1 2 
3 -1 

PR140 



LEVEL 12 REQUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 



0816 

0817 

0818 

0819 



0102 
0000 

0010 
04A0 



0816 0000 
0818 COOE 
08 1C 00 D5000A78 
081E 7102 
081F 73FF 
0820 7006 



0821 COOS 

0822 00 D6000AB8 

0824 7202 

0825 00 4CC0081A 

0827 0804 

0828 1000 

0829 70F7 



REQ12 

* 
PR142 

PRI15 



* 
PR151 



PR150 



DC 
DC 



DC 
DC 



DC 
LD 
STO 

MDX 
MDX 
MDX 



REQ12 

L2 iNirv 

2 2 

I PR 1 14 

PR142 

PR 141 

/0102 


/0010 
/0*A0 





REQ13 
H IN16V 
1 2 
3 -1 

PR150 



LEVEL 12 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 11 

12 

INTRP 11 "XC 

INTERRUPT ROUTINE LEVEL 13 

LEVEL 13 REQUEST TO 
REQUEST SEQUENCE MSG 

NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 



LD 
STO 
MDX 
BCSC 

XIO 
NOP 

MDX 



082A 
0828 

082C 
0820 



0103 
0000 

C008 
04A0 



* 
REQ13 

PR 152 



DC 
DC 

DC 

DC 



REQ13 
L2 IN17V 
2 2 
I PRU5 

PR 152 

PR151 

/0103 


/0008 
/04AO 



082E 0000 
082 F COOE 
0830 00 D5000A78 
0832 O 7102 
083 3 73FF 



* 

PR 1 16 DC 
LO 

STO 

MOX 
MDX 



LEVEL 13 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 12 

13 

INTRP 12 IOCC 
INTERRUPT ROUTINE LEVEL 14 





REQ1* 
LI IN'6V 
1 2 
3 -1 



LEVEL 14 REQUEST TO 
REQUEST SEQUENCE MSG 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
-»15120A 



08JUN66 
415175 



04N0V66 
415233 
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8B323130 

8B323140 

8B323150 

8B323160 

8B323170 

8B323180 

8B323190 

8B323200 

8B323210 

8B323220 

8B323230 

8B323240 

8B323250 

8B323260 

8B323270 

8B323280 

8B323290 

88323300 

8B323310 

8B323320 

BB323330 

8B323340 

8B323350 

8B323360 

8B323370 

8B323380 

8B323390 

8B323400 

8B323410 

BB323420 

8B323430 

BB323440 

8B323450 

8B323460 

8B323470 

8B323480 

8B323490 

BB323500 

8B323510 

8B323520 

8B323530 

8B323540 

8B323550 

8B323560 

8B323570 

8B323580 

8B323590 

8B323600 

8B323610 

8B3J362Q 

8B323630 

8B323640 

8B323650 

8B323660 

8B323670 

8B323680 

8B323693 

88323700 

8B323710 

8B323720 

8B323730 

8B323740 

8B323750 

8B323760 

8B323770 

8B323780 

8B323790 

8B323800 
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0834 7006 



0835 C008 

0836 00 D6000AB8 

0838 7202 

0839 00 4CC0082E 

083B 0804 
083C 1000 
083D 70F7 

083E 0104 
083F 0000 



0840 

0841 



0004 
04A0 



0842 OOQO 

0843 COOE 

0844 00 D5000A78 

0846 7102 

0847 73FF 

0848 7006 



0849 COOB 
084A 00 D60C0AB8 
084C 7202 
0840 00 4CC00642 

084F 0804 

0850 1000 

0851 70F7 



MOX 

• 

PR161 LO 
STO 
MDX 
BOSC 

PR160 XIO 
NOP 
MDX 

• 

RE014 DC 
DC 

PR162 DC 
OC 

* 

PRI17 OC 
LD 
STO 
MDX 
MDX 
MDX 



PR160 HOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 



RE014 
L2 IN17V 
2 2 
I PRU6 

PR162 

PR161 



LEVEL 14 TO LEVEL 

SRVCD SEQUENCE MSG 

BRANCH RESET 
INTERRUPT FOR LVL 13 



/0104 


/0004 
/04A0 





RE01S 
LI IN16V 
1 2 
3 -1 

PR170 



* 
PR17I 



PR170 



14 

INTRP 13 IOCC 

INTERRUPT ROUTINE LEVEL 15 

LEVEL 15 REQUEST TO 
REQUEST SEQUENCE MSG 

NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 



LO 
STO 
MOX 
BOSC 

XIO 
NOP 

MDX 



0852 

0853 



0105 
0000 



0854 8000 

0855 04A1 



0856 0000 

0857 COOE 

0858 00 D5000A78 
085A 7102 
085B 73FF 
085C 7006 



085D COOB 
085E 00 06000AB8 

0860 7202 

0861 00 4CC00856 

0863 0804 

0864 1000 

0865 70F7 



REQ15 

PR172 

* 
PRUB 



* 
PR181 



DC 

DC 

DC 
DC 



REQ15 
L2 IN17V 
2 2 
I PRI17 

PR172 

PR171 

/0105 


/8000 
/04A1 



LEVEL 15 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 14 

15 

INTERP 14 IOCC 
INTERRUPT ROUTINE LEVEL 16 



OC 
LD 
STO 

MDX 
MDX 

MDX 





REQ16 
LI IN16V 
1 2 
3 -1 
PR180 



LEVEL 16 REQUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 



0866 

0867 



DATE 
EC NO. 



0106 
0000 



LD 
STO 

HDX 

BOSC 



PR180 XIO 
NOP 
MOX 

REQ16 DC 
DC 

* 



RE016 
L2 IN17V 
2 2 
I PRI18 

PR182 

PR181 

/0106 




LEVEL 16 TO LEVEL 
SRVCD SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 15 

16 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 
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8B323810 

8B323820 

8B323830 

8B323840 

8B323850 

8B323860 

8B323870 

8B323880 

8B323890 

86323900 

8B323910 

8B323920 

8B323930 

8B323940 

8B323950 

8B323960 

8B323970 

8B323980 

8B323990 

8B324000 

8B324010 

8B324020 

8B324030 

8B324040 

8B324050 

8B324060 

BB324070 

8B324080 

8B324090 

BB324100 

8B324L10 

8C324120 

8B324130 

8B324140 

8B324150 

8B324160 

8B324170 

8B324180 

8B324190 

8B324200 

86324210 

8B324220 

8B324230 

8B324240 

8B324250 

BB324260 

8B324270 

8B324280 

8B324290 

8B324300 

8B324310 

SB324320 

8B324330 

8B324340 

8B324350 

8B324360 

8B324370 

8B3243B0 

8B324390 

8B324400 

8B324410 

8B324420 

8B324430 

8B324440 

8B324450 

BB324460 

8B324470 

8B3244bO 
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0868 





4003 


PR182 


DC 




/4000 


INTRP 15 IOCC 


8B324490 




0869 





04A1 


* 
• 
* 


OC 




/04A1 


INTERRUPT ROUTINE LEVEL 17 


8B324500 
8B324510 
88324520 
8B324530 




086A 





0000 


PR 1 19 


DC 









8B324540 




086B 





COOE 




LD 




REQ17 


LEVEL 17 REQUEST TO 


88324550 




086C 


00 


D5000A78 




STO 


LI 


IN 16V 


REQUEST SEQUENCE MSG 


8B324560 




086 E 





7102 




MDX 


1 


2 




8B324570 




086F 





73FF 




MDX 


3 


-1 




8B324580 




0870 





7006 


* 


MDX 




PR 190 


NOT LAST INTERRUPT 


8B324590 
8B324600 










• 






SERVICE THIS INTERRUPT 


8B324610 










* 










8B324620 




0871 





COOS 


PR191 


LD 




RE017 


LEVEL 17 TO LEVEL 


8B324630 




0872 


00 


06000AB8 




STO 


L2 


IN17V 


SRVCD SEQUENCE MSG 


8B324640 




0874 





7202 




MDX 


2 


2 




8B324650 




0875 


00 


4CC0086A 


• 


BOSf 


I 


PRI19 


BRANCH RESET 


8B324660 
8B324670 




0877 





0804 


"PR 190 


xto 




PR192 


INTERRUPT FOR LVL 16 


8B324680 




0878 





1000 




NOP 








8B324690 




0879 





70F7 


• 


MOX 




PR191 




8B324700 
8B324710 




08 7A 





0107 


RE017 


OC 




/0107 


17 


8B324720 




087B 





0000 


• 


DC 









88324730 
8B324740 




08 7C 





2000 


PR192 


DC 




/2000 


INTRP 16 IOCC 


8B324750 




0870 





04 A 1 


• 


DC 




/04A1 




8B324760 
8B324770 




/ 






• 
• 








NTERRUPT ROUTINE LEVEL 18 


8B324780 
8B324790 




087E 





0000 


PR I 20 


OC 









8B324800 




087F 





COOE 




LD 




REQ18 


LEVEL 18 REQUEST TO 


8B324810 




0880 


00 


05000A78 




STO 


LI 


IN16V 


REQUEST SEQUENCE MSG 


8B324820 




0882 





7102 




MDX 


1 


2 




8B324830 




0883 





73FF 




MDX 


3 


-1 




68324840 




0884 





7006 


• 


MOX 




PR200 


NOT LAST INTERRUPT 


6B324850 
8B324860 










<> 






SERVICE THIS INTERRUPT 


8B324870 










• 










8B324880 




0885 





COOS 


PR201 


LO 




REGIS 


LEVEL 18 TO LEVEL 


8B324890 




0886 


00 


D6000AB8 




STO 


L2 


IN17V 


SRVCD SEQUENCE MSG 


8B324900 




0888 





7202 




MDX 


2 


2 




8B324910 




0889 


00 


4CC0087E 


• 


BOSC 


I 


PRI20 


BRANCH RESET 


8B324920 
BB324930 




0888 





0804 


PR200 


XIO 




PP202 


INTERRUPT FOR LVL 17 


8B324940 




088C 





1000 




NOP 








8B324950 




08 80 





70F7 


• 


MOX 




PR201 




8B324960 
8B324970 




088E 





0108 


RE018 


DC 




/0108 


18 


8B324980 




088F 





0000 


• 


DC 









6B324990 
8B325000 




0890 





1000 


PR2 02 


DC 




/1000 


INTRP 17 IOCC 


8B325010 




0891 





04A1 


* 


DC 




/04A1 




88325020 
8B325030 










* 






INTERRUPT ROUTINE LEVEL IS 


8B325040 










• 










8B325050 




0892 





0000 


PRI21 


DC 









8B325060 




0893 





COOE 




LD 




RE019 


LEVEL 19 REQUEST TO 


8B325070 




0894 


00 


D5000A78 




STO 


LI 


IN16V 


REQUEST SEQUENCE MSG 


8B325080 




C896 





7102 




MDX 


1 


2 




88325090 




0897 





73FF 




MOX 


3 


-1 




8B325100 




0898 





7006 


• 


MDX 




PR210 


NOT LAST INTERRUPT 


8B325110 
6B325120 










• 






SERVICE THIS INTERRUPT 


8B325130 










• 










8B325140 




0899 





C008 


PR211 


LD 




RE019 


LEVEL 19 TO LEVEL 


8B325150 




089A 


00 


06000AB8 




STO 


L2 


IN17V 


SRVCD SEQUENCE MSG 


8B325160 




OATE 




28FEB66 


01MAY66 


08JUN66 


04N0V66 


PROG ID 


u8B3-l 


EC NO. 


415120 


415120a 


415175 


415233 


PAGE 


19 





089C 





7202 




MDX 


2 


2 




8B325170 






0890 


00 


4CC00892 


* 


BOSC 


I 


PRI21 


BRANCH RESET 


8B325180 
8B325190 






089F 





0804 


PR210 


XIO 




PR212 


INTERRUPT FOR LVL 18 


83325200 






08 AO 





1000 




NOP 








8B325210 






08A1 





70F7 


• 


MDX 




PR211 




8B325220 
8B325230 






08 A 2 





0109 


REQ19 


DC 




/0109 


19 


8S325240 






08A3 





0000 


• 


DC 









8B325250 
BB325260 






08A4 





0800 


PR212 


DC 




/0800 


INTRP 10 IOCC 


8B32S270 






08A5 





04A1 


* 
• 
* 


DC 




/04A1 


[NTERRUPT ROUTINE LEVEL 20 


8B325280 
8B325290 
8B325300 
8B325310 






08A6 





0000 


PRI22 


OC 









8B325320 






08A7 





COOE 




LD 




REQ20 


LEVEL 20 REQUEST TO 


8B325330 






08A8 


00 


05000A78 




STO 


LI 


IN16V 


RrQUEST SEQUENCE MSG 


8B325340 






08AA 





7102 




MDX 


1 


2 




8B325350 






08AB 





73FF 




MDX 


3 


-1 




8B325360 






08 AC 





7006 


• 
• 
• 


MOX 




PR220 


NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 


P6325370 
8B325380 
8B325390 

8B325400 






08AD 





C008 


PR221 


LD 




REQ20 


LEVEL 20 TO LEVEL 


8B325410 






08AE 


00 


D6000ABb 




STO 


L2 


IN17V 


SRVCD SEQUENCE MSG 


8B325420 






0880 





7202 




MOX 


2 


2 




8B325430 






08B1 


00 


4CC008A6 


• 


BOSC 


I 


PRI22 


BRANCH RESET 


88325440 
8B325450 






00B3 





0804 


PR220 


XIO 




PR222 


INTERRUPT FOR LVL 19 


8B325460 






08B4 





1000 




NOP 








8B325470 






08B5 





70F7 


* 


MDX 




PR221 




8B325480 
8B325490 






08 B6 





020A 


REQ20 


DC 




/020A 


20 


8B325500 






08B7 





0000 


* 


DC 









8B325510 
8B325520 




\ 


08B8 





0400 


PR222 


DC 




/0400 


INTRP 19 IOCC 


8B325530 






0389 





04A1 


* 


OC 




/04A1 




8B325540 
8Q325550 




n 








* 
• 








NTERRUPT ROUTINE LEVEL 21 


88325560 
8B325570 






08BA 





0000 


PRI23 


OC 









8B325580 




~) 


08B8 





COOE 




LD 




REQ21 


LEVEL 21 REQUEST TO 


8B325590 






08BC 


00 


D5000A78 




STO 


LI 


IN16V 


REQUEST SEQUENCE MSG 


88325600 






08BE 





7102 




MDX 


1 


2 




8B325610 




1 


08BF 





73FF 




MDX 


3 


-1 




8B325620 






08C0 





7006 


• 


MDX 




PR230 


NOT LAST INTERRUPT 


8B325630 
8B325640 












* 






SERVICE THIS INTERRUPT 


8B325650 












• 










8B325660 






08C1 





C008 


PR231 


LD 




REQ21 


LEVEL 21 TO LEVEL 


8B325670 






08C2 


00 


D6000AB8 




STO 


L2 


IN 17V 


SRVCD SEQUENCE MSG 


8B325680 






08C4 





7202 




MDX 


2 


2 




8B325690 






08C5 


00 


4CC008BA 


• 


BOSC 


I 


PRI23 


BRANCH RESET 


8B325700 
8B325710 






08C7 





0804 


PR230 


XIO 




PR232 


INTERRUPT FOR LVL 20 


88325720 






08C8 





1000 




NOP 








8B325730 






08C9 





70F7 


• 


MDX 




PR231 




8B325740 
3B325750 






08CA 





0201 


REQ21 


DC 




•0201 


21 


8B325760 






08CB 





0000 


* 


OC 









8B325770 
8B325780 






08CC 





0200 


PR232 


DC 




/0200 


INTRP 20 IOCC 


8B325790 






08CD 





04A1 


• 


DC 




/04A1 




8B325800 
8B325810 












• 






INTERRUPT ROUTINE LEVEL 22 


8B325e20 




o 








* 










88325830 






08CE 





0000 


PR I 24 


DC 









8B325B40 




D 


D/.TE 




28FEB66 


01MAY66 08JUN66 


04N0V66 


PROG in 


08B3-1 




EC NO. 


415120 


415120A 415175 


415233 


PAGE 


19A 
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08CF COOE 
0800 00 D500QA78 
08C2 7132 
08D3 73FF 
080* 7006 



0805 COOS 

0806 00 D6000ABS 

0808 7202 

0809 00 4CC008CE 

08DB 0804 

080C 1000 

0800 70F7 



08 DE 
08DF 

08E0 
08E1 



0202 
0000 

0100 

04 A I 



0SE2 0000 
0SE3 COOE 
08E4 00 D5000AT8 
08E6 7102 
08E7 73FF 
OSES 7006 



Q8E9 COOS 
03EA 00 06000AB8 
OSEC 7202 
08E0 00 4CC00BE2 

08EF 0804 
08F0 1000 
08FI 70F7 

0PF2 3203 
08F3 0000 

08F4 0080 
08F5 04A1 



C8F6 
08F7 
08F8 00 
C8FA 
08FB 
flSFC 00 
08FE 00 

0900 

0901 00 



0000 

00 2B 

74FF08F6 

COFB 

9025 

4X280903 

740108F6 

C022 

4C8008F6 



0903 00 C6000930 
0905 00 040008 1C 

0907 COEE 

0908 00 96000924 
090A 00 4C200914 



LO 
STO 

MDX 
MOX 

MDX 

• 

PR241 LD 
STO 
MOX 
80SC 

• 

PR240 XIO 
NOP 
MOX 

• 

RE022 DC 
DC 

PR242 OC 
DC 



PR 1 25 OC 
LO 
STO 

MOX 
MDX 
MOX 

PR251 LO 
STO 
MOX 
BOSC 

PR250 XIO 
NOP 
MOX 

• 

REQ23 DC 
OC 

PR2 52 DC 
DC 



TRACE OC 
STO 
MOX 
LD 
S 

BSC 
MOX 
LO 
BSC 

TRACO LD 
STO 

LD 

S 

BSC 



REQ22 
LI IN16V 
1 2 
3 -1 
PR240 



LEVEL 22 REQUEST TO 
REQUEST SEQUENCE MSG 



RE022 
L2 IN17V 
2 2 
I PRI24 

PR242 

PR241 

/0202 


/01C3 
/04A1 



NOT LAST INTERRUPT 
SERVICE THIS INTERRUPT 

LEVEL 22 TO LEVEL 

SRVCD SEQUENCE MSG 

BRANCH RESET 
INTERRUPT FOR LVL 21 

22 

INTRP 21 IOCC 
INTERRUPT ROUTINE LEVEL 23 





REQ73 
LI IN16V 
1 2 
3 -1 

PR2*0 



REQ23 
L2 IN17V 
2 2 
I PRI25 

PR252 

PR251 



LEVEL 23 REQUEST TO 
REQUEST SEQUENCE MSG 



NOT LAST INTERRUPT 

SERVICE THIS INTERRUPT 

LEVEL 23 TO LEVEL 
SRVCO SEQUENCE MSG 

BRANCH RESET 

INTERRUPT FOR LVL 22 



S0203 


/0080 
/04A1 



23 



INTRP 22 IOCC 



ROUTINE SIX TRACE INTRPT 





TRCN2 
TRACE, -I 
TRACE 
TRCNO 
TRACO, *l 
TRACE ,1 
TRCN2 
TRACE 



$E 



L2 INLVT«2 
L INH19+23 

TRACE 
L2 'NSAD 
L TRAC1.Z 



SAVE ACCUMULATOR 

GET INTERP I COUNT 
CK IF INSTR TO TRACE 
BRANCH IF TRACING 
RESTORE RETURN 
RESTORE ACCUMULATOR 
GO C0MPLE1E CNTRL OP 

SET EXPECTED INSTRN 
NO. IN ERROR MESSAGE 

GET INTERP I COUNT 
CONPR KITH EXPECTED 
BRANCH IF WRONG ISTR 
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88325850 

8B325860 

8B325870 

88325880 

8B325890 

88325900 

8B325910 

8B325920 

8B325930 

86325940 

8B325950 

88325960 

88325970 

8B325980 

8B325990 

8B326000 

8B326010 

6B326020 

88326030 

8B326040 

6B32605O 

88326060 

88326070 

8B3260S0 

88326090 

8B326I00 

8B326U0 

SB326120 

BB326130 

88326140 

88326150 

88326160 

•B326170 

68326180 

88326190 

88326200 

6B326210 

88326220 

88326230 

BB326240 

S83262S0 

06326*260 

66326*270 

86326280 

68326*290 

66326300 

68326310 

61326320 

88326330 

8B326340 

88326350 

86326360 

88326370 

6B326360 

6B326390 

6B326400 

6B326410 

6B326420 

SB326430 

88326440 

8B3264S0 

8B326460 

8B326470 

BB326460 

8B326490 

8B326500 

86326510 

8B326520 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 
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090C 7201 
0900 00 74010480 
090F 00 7401 08 F6 

0911 C011 

0912 00 4CC008F6 

0914 6A0O 

0915 800C 

0916 OOOB 

0917 00 65800922 
0919 00 C500093U 
091B 00 04000B20 



091 D 00 440004F9 
091 F 0B05 



0920 70EB 



0921 





0467 


0922 





0000 


0923 





0000 


0924 





0450 


0925 





045E 


0926 





045F 


0927 





0460 


0928 





0461 


0929 





0462 


092 A 





0463 


092 B 





0464 


092 C 





0465 


0920 





0466 


092E 





3529 


092F 





OAOA 


0930 





0A01 


0931 





0A02 


0932 





0A03 


0933 





OA04 


0934 





0A05 


0935 





0A06 


0936 





0A07 


0937 





0A08 


0938 





0A09 


0939 





010A 


093A 





0101 


0936 





0102 


093 C 





0103 


093D 





0104 


093E 





0105 


093F 





0106 


0940 





0107 


0941 





0106 


0942 





0109 


0943 





020A 


0944 





0201 


0945 





0202 


0946 





0203 


0947 





1329 


094 b 





3335 



MDX 
MOX 
MOX 
LD 
TRAC2 BOSC 

TRAC1 STX 
A 

STO 
LOX 
LD 
STO 



2 1 



II 
LI 
L 



TRIND.l 
TRACE, I 
TRCN2 
TRACE 

TRCNI 

TRCN1 

TRCNI 

TRCNI 

INLVT+2 

INM19+27 



STEP TRACE INDICATOR 
RESTOPE RETURN 
RESTORE ACCUMULATOR 
EXIT SX 



SET INDEX TO DIFRNCE 
SFT INTERRUPTING 
INSTR TO ERROR MSG 



************* 
BSI L 
DC 

**********»»» 
* 

MOX 

TRCNO DC 
TRCNI OC 
TRCN2 OC 

INS AD OC 

OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
• 

INLVT OC 
OC 

DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
• 



******************************** 
ERALT LOG FAILING TRACE SRC 
INM19 INSTRUCTION 

******************************** 

TPAC1-8 



RT501 







TRACE INSTRUCTION ADDkESS 



RT500 
RT500»1 
RT500*2 
RT500*3 
RT500*4 
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8B329280 

8B329290 

8B329300 

8B329310 

8B329320 

bB329330 

8B329340 

83329350 

8B329360 

8B329370 

8B329380 

8B329390 

8B329400 

83329410 

8B329420 

8B329430 

8B329440 

8B329450 

8B329460 

8B329470 

83329480 

83329490 

8B329500 

8B329510 

8B329520 

8B329530 

8B329540 

8B329550 

8B329560 

8B329570 

8B329580 

8B329590 

8B329600 

8B329610 

CB329620 

83329630 

6B329640 

8B329650 

83329660 

BB329670 

8B3296B0 

8B329690 

8B329700 

8B329710 

8B329720 

8B329730 

8B329740 

8B329750 

8B329760 

8B329770 

8B329780 

8B329790 

8B329800 

8B329810 

83329820 

8B329830 

8B329840 

63329850 

83329860 

8B329870 

83329880 

83329890 

8B329900 

8B329910 

83329920 
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PkCl 
PAGI 



NO. 



2196*67 



0A4B 
OA*C 
0A40 
OA*E 
0A4F 
0A50 
0A51 
0A52 
0A53 
0A54 
0A55 
0A56 
0A57 

0A58 
0A59 
0A5A 
CA5B 
0A5C 
0A5D 
0A5E 
0A5F 
0A60 
0A61 
0A62 
0A63 
0A64 
0A65 
0A64 
0A67 
0A68 



0A6A 00 
0A6C 
0A60 
0A6E 
0A6F 
0A70 
0A71 
0A72 
0A73 
0A74 
0A75 
0A76 
0A77 
■ 0A78 



OAAC 
OAAO 
OAAE 
OAAF 
OABO 
0AB1 
0AB2 
0AB3 
0AB4 
0AB5 
0AB6 
0AB7 
0AB8 

OAEC 
OAEO 
OAEE 
OAEF 
OAFO 
0AF1 
OAF 2 



2500 
0200 
3925 
1300 
COOO 
O039 
2312 
1600 
2526 
1300 
1935 
2926 
FFFF 

OOOF 
340A 
0A01 
0000 
0000 
2913 
2500 
0000 
0000 
2729 
3926 
2939 
1318 
0033 
3835 
3322 
FFFF 

00000000 

003 E 

0000 

0000 

0000 

0000 

2935 

2800 

1235 

2814 

3525 

3335 

0000 

0034 

003 E 
0000 
0000 
0000 
0000 
122« 
1533 
0012 
3528 
1435 
2533 
3500 
0034 

0017 
350A 
0A08 
0000 
0000 
2913 
2500 



DC 
DC 
OC 
DC 
DC 
DC 
OC 
OC 
DC 
OC 
OC 
DC 
OC 

• 

INN 15 DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
DC 
OC 

or 

OC 
OC 
OC 
OC 
• 

OEC 
INN 16 DC 
DC 
DC 
DC 
DC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 
IN16V ess 
* 

INM17 DC 
DC 
OC 
OC 
OC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 
IN17V BSS 

INN 18 OC 
DC 
DC 
DC 
DC 
OC 
OC 



/2500 
/0200 
/3925 
/1300 

/oooo 

/0039 
/2312 
/1600 
/2526 
/1 300 
/1935 
/2926 
/FfFF 

/OOOF 
/340A 
/0AO1 
/OCOO 

/ocoo 

/2913 
•2500 
/OOOO 
/OOOO 
/272« 
Z3926 
/2939 
/131S 
/0039 
/383S 
/3322 
/FFFF 



/003E 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
Z2935 
/2800 
/1235 
/2814 
Z3525 
/333S 
/OOOO 
52 

/0C3F 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
/1229 
/1533 
/0012 
/352S 
/1435 
Z2533 
/3500 
52 

/0017 
/350» 
Z0A08 
/OOOO 
/COOO 
Z2913 
Z2500 



N 

2 

IN 

T 

LEVEL NUMBER 

I 
LS 
M 

NO 
T 

ZE 
RO 
TERM 

WORD COUNT 
DO 
01 

SPACE 
SPACE 
RT 
N 

ROUTINE NUMBER 
BLANK 
PR 
10 
Rl 
TY 
C 
HE 
CK 
TERM 



MORO COUNT 

SPACE 

SPACE 

SPACE 

SPACE 

RE 



SE 

QU 

En 
ce 

BLANK 



MORO COUNT 

SPACE 

SPACE 

SPACE 

SPACE 

SR 

VC 

s 

EQ 
UE 

NC 

r 



MORO COUNT 

EO 

OS 

SPACE 

SPACE 

RT 

N 



DATE 
EC NO. 



28FEB66 
415120 



01MAV66 
415120A 



08JUN66 
415175 



04NOV66 
415233 



8B329930 

8B329940 

8B329950 

8B329960 

8B329970 

8B329980 

8B329990 

8B330000 

8B330010 

8B330020 

8B330030 

8B330040 

8S330050 

8B330060 

8B330070 

8B330080 

8B330090 

8B330100 

8B330110 

8B330120 

8B330130 

8B330140 

8B330150 

8B330160 

8B330170 

8B330180 

8B330190 

8B330200 

8B330210 

8B330220 

8B330230 

8B330240 

8B330250 

8B330260 

8B330270 

8B330280 

88330290 

8B330300 

8B330310 

8B330320 

8B330330 

8B330340 

88330350 

88330360 

88330370 

8B330380 

8B330390 

8B330400 

86330410 

8B330420 

8B330430 

8B330440 

8B330450 

88330460 

BB330470 

86330*80 

8B330490 

SB330500 

PB330510 

8B330520 

6B330530 

BB330540 

8B330S50 

8B330560 

8B330570 

8B3305S0 

8B330590 

88330600 
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i 

o 
o 



OAF 3 


0*00 


0AF4 


1329 


OAFS 


3133 


0AF6 


3500 


0AF7 


3*39 


OAFS 


3400 


OAF 9 


2526 


OAFA 


1300 


OAFB 


3925 


OAFC 


1329 


OAFO 


2713 


OAFE 


0026 


OAFF 


2500 


OBOO 


2731 


0B01 


1212 


0B02 


OOOO 


0B03 


oooc 


OB 04 


FFFF 


0B05 


001B 


0B06 


350A 


OBOT 


0A09 


0B08 


OOOO 


0B09 


OOOO 


OBOA 


2913 


oaos o 


2500 


0B0C 


0600 


0800 


3517 


OBOE 


2735 


OBOF 


3313 


CB10 


3534 


0B11 


0039 


0B12 


2513 


0B13 


2927 


0B14 


1300 


OBIS 


3629 


0B16 


2624 


OB 17 


0039 


OBIS 


2512 


OBI 9 


1329 


081 A 


2503 


0B1B 


OOOO 


0B1C 


OOOO 


0B1D 


OOOO 


0B1E 


3726 


0B1F 


1300 


0B20 


OOOO 


0B21 


FFFF 


0B22 


OOOF 


0B23 


350A 


0B24 


0A31 


0B25 


OOOO 


0B26 


OOOO 


0B27 


3326 


0B28 


2512 


0B29 


2623 


0B2A 


3500 


0B2B 


3214 


0B2C 


1313 


0B20 


2625 


0B2E 


0036 


0B2F 


3139 


0B30 


2335 


0B31 


3400 


0B32 


FFFF 



0B33 0017 



DATE 
EC NO. 



28FEB66 
415120 



OC 


/0600 


6 


DC 


/1329 


TR 


OC 


/3133 


AC 


DC 


/3500 


E 


OC 


/2439 


DI 


OC 


Z3400 


D 


DC 


/2526 


NO 


OC 


Z1300 


T 


DC 


/3925 


IN 


DC 


/1329 


TR 


DC 


/2713 


PT 


DC 


/0026 





DC 


/2500 


N 


DC 


/2731 


PA 


DC 


/1212 


SS 


DC 


/OOOO 


BLANK 


OC 


/OOOO 


PASS NUMBER 


DC 


/FFFF 


TERM 


INM19 DC 


/001B 


WORD COUNT 


DC 


/350A 


EO 


DC 


/0A09 


09 


DC 


/OOOO 


SPACE 


DC 


/OOOO 


SPACE 


DC 


/2913 


RT 


OC 


/2500 


N 


DC 


/0600 


6 


DC 


/3517 


EX 


DC 


/273S 


PE 


DC 


/3313 


CT 


DC 


Z3534 


EO 


DC 


/0039 


I 


DC 


/2513 


NT 


DC 


/2927 


RP 


DC 


/1300 


T 


DC 


Z3629 


FR 


DC 


Z2624 


OM 


DC 


/0039 


I 


DC 


/2512 


NS 


DC 


/1329 


TR 


DC 


/2500 


N 


OC 


/OOOO 


BLANK 


DC 


/OOOO 


EXPECTED NUMBER 


DC 


/OOOO 


BLANK 


OC 


/3726 


oO 


DC 


<1300 


T 


OC 


/OOOO 


ACTUAL NUMBER 


DC 


/FFFF 


TERM 


* 

INM20 DC 


/OOOF 


WORD COUNT 


OC 


/350A 


EO 


OC 


/0A31 


OA 


OC 


/OOOO 


SPACE 


DC 


/OOOO 


SPACE 


DC 


/3326 


CO 


DC 


/2512 


NS 


DC 


/2623 


OL 


DC 


/3500 


E 


DC 


/3214 


BU 


DC 


/1313 


TT 


DC 


/2625 


ON 


OC 


/0036 


F 


DC 


/3139 


AI 


DC 


/2335 


LE 


OC 


/3400 





DC 


/FFFF 


TERM 


* 

INM21 or 


/0017 


WORD COUNT 


01MAY66 


08JUN66 


04N0V66 


415120A 


415175 


415233 



8*330610 

8B3306r0 

86330630 

8H330**0 

80330*10 

88310*60 

86330*70 

88330*80 

8B3*0<f9>0 

8B330700 

88330H0 

BBJ30720 

8B330730 

883307*0 

B83307«>0 

8B330760 

8B330770 

8B330780 

86330790 

863*0600 

86330*10 

SB330H20 

8B330830 

883308*0 

8B330850 

89330860 

86330870 

88330*80 

88330690 

SBJ30900 

88330*10 

SB330920 

8B330930 

SB330940 

88330950 

883*0*60 

88330970 

•83J09B0 

8BJ3099C 

88331000 

86331010 

8633102,0 

SB331030 

SB33I040 

883310(0 

8B331060 

88331070 

S833I080 

8B331090 

8B331IOO 

88331110 

88331120 

8B33U30 

•B33II40 

88331150 

88331160 

80331170 

883311S0 

RR331190 

8B331200 

38331210 

88331220 

8B33I230 

883312*0 

8B331250 

86)31260 

80331270 

88331280 
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0834 


340A 


0B35 


0A02 


0P36 


0000 


0B37 


0030 


0B38 


3326 


0B39 


2512 


OB3A 


2623 


0B3B 


3500 


0B3C 


3214 


0B30 


1313 


0B3E 


2625 


0B3F 


0026 


0840 


2500 


0841 


2335 


OB* 2 


1535 


OB* 3 


2300 


08** 


0000 


0B*5 


0039 


0646 


2312 


0847 


1600 


OB* 8 


3239 


0649 


1300 


0B4A 


cooo 


084 B 


FFFF 


034C 


0021 


0B40 


330A 


084E 


0A07 


084F 


0000 


0650 


0000 


0851 


1235 


0852 


1300 


085 3 


3439 


0854 


1231 


0855 


3223 


0B56 


3500 


0B5T 


2625 


0854 


0038 


0659 


3913 


085 A 


0033 


0858 


3500 


0B5C 


3125 


0B50 


3400 


0B5E 


3326 


035 F 


2512 


0860 


0032 


-' 0861 


1325 


0662 


1200 


066 3 


0000 


0864 


1235 


0B65 


1300 


0866 


1329 


0B6T 


3133 


0868 


3500 


0869 


3125 


0B6A 


3400 


0668 


1213 


066C 


3129 


0860 


1300 


086E 


FFFF 


06 TO 


0000 


06T0 


0017 


0671 


350 A 


0672 


CA32 


0BT3 


0000 


0874 Q 


0000 


0675 


2913 


SATE 


28FEB66 


EC NO. 


415120 



DC 


/340A 


DO 


DC 


/0A02 


02 


DC 


/oooo 


SPACE 


DC 


/oooo 


SPACE 


DC 


Z3326 


CO 


OC 


/2512 


NS 


DC 


Z2623 


OL 


DC 


/3500 


E 


DC 


/3214 


BU 


DC 


/1313 


TT 


OC 


/2625 


ON 


DC 


/0026 





OC 


/2500 


N 


DC 


/2335 


LE 


DC 


/1 535 


VE 


OC 


/2300 


L 


DC 


/OOOO 


LEVEL NUMBER 


DC 


/0039 


I 


OC 


/2312 


LS 


DC 


/1600 


H 


DC 


Z3239 


BI 


DC 


/1300 


T 


OC 





ILSH BIT 


OC 


/FFFF 


TERM 


• 

INH22 DC 


/0021 


WORD COUNT 


OC 


/330A 


CO 


OC 


/0A07 


07 


DC 


/OOOO 


SPACE 


DC 


/OOOO 


SPACE 


DC 


/1235 


SE 


DC 


/1300 


T 


DC 


Z3439 


DI 


DC 


/1231 


SA 


OC 


Z3223 


BL 


DC 


/3500 


E 


OC 


/2625 


ON 


OC 


/0038 


H 


DC 


/3913 


IT 


DC 


/0033 


C 


DC 


/3500 


E 


OC 


/3125 


AN 


DC 


/3400 


D 


DC 


/3326 


CO 


DC 


/2512 


NS 


DC 


/0032 


B 


DC 


/1325 


Trf 


DC 


/1200 


S 


DC 


/OOOO 


BLANK 


OC 


/1235 


SE 


DC 


/1300 


T 


DC 


/1329 


TR 


OC 


/3133 


AC 


OC 


/3S0O 


E 


DC 


/3125 


AN 


DC 


/3400 


D 


DC 


/1Z13 


ST 


DC 


/3129 


AR 


DC 


/1300 


T 


DC 


/FFFF 


TERM 


• 

ess 


E 




|NN 23 DC 


/0017 


WORD COUNT 


OC 


/350A 


EO 


OC 


/0A32 


06 


DC 


/OOOO 


SPACE 


OC 


/OOOO 


SPACE 


DC 


/2913 


RT 


01MAY66 


0BJUN66 


04N0V66 


415120A 


415175 


415233 
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8B331290 

8B331300 

8B331310 

88331320 

8B33133P 

8B331340 

8B331350 

8B331360 

8B331370 

3B331380 

8B331390 

8B3314O0 

88331410 

8B331420 

8B331430 

88331440 

8B331450 

8B331460 

8B331470 

8B331480 

8B331490 

6B331500 

8B331S10 

8B331520 

8B331530 

8B331540 

8B331550 

8B331560 

8B331570 

86331580 

8B331590 

8B331600 

BB331610 

8B331620 

8B331630 

8B331640 

8B331650 

8B331660 

8B331670 

8B331680 

8B331690 

8B331700 

88331710 

8B331720 

8B331730 

86331740 

8B33J750 

8B331760 

88331770 

8B331780 

88331790 

88331800 

8*331810 

88331820 

88331830 

86331840 

88331850 

8B331B60 

8B331870 

8B331680 

8B331890 

8B331900 

8B331910 

8B331920 

88331930 

8B331940 

8B331950 

8B 33 1960 
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o 



0B76 

0877 

0B78 

0B79 

0B7A 

0B7B 

0B7C 

0870 

0B7E 

0B7F 

0B80 

0881 

0B82 

0B83 

0884 

0B85 

CB86 

0887 

0B88 



































OB 89 

0B8A 

0B8B 

0B8C 

0B80 

088 E 

088F 

0890 

0B91 

0B92 

0B93 

0B94 

0895 

0B96 

0B97 

0B98 

0B99 

0B9A 

0896 

0B9C 

089 D 

0B9E 



0B9F 

OBAO 

0BA1 

0BA2 

0BA3 

0BA4 

08 A 5 

0BA6 

08 A7 

0BA8 

0BA9 

OBAA 

OBAB 

OBAC 

OBAD 

OBAE 



2500 

C100 

3925 

1329 

2713 

0025 

2613 

0039 

2538 

3932 

3913 

3534 

0031 

3613 

3529 

OOOO 

OOOO 

OOOO 

FFFF 

0014 

330A 

0AC8 

OOOO 

OOOO 

2935 

2731 

3929 

0036 

3139 

2314 

2935 

0032 

3536 

2629 

3500 

3326 

2513 

3925 

1439 

2537 

FFFF 

OOOO 
350A 
OA33 

OOOO 

oooo 

3923 
2335 
3731 
2300 
2913 
2500 
3525 
1329 
1800 
FFFF 
012D 



DC 


/2500 


N 


OC 


/0100 


1 


DC 


/3925 


IN 


DC 


/1329 


TR 


DC 


/2713 


PT 


DC 


/0025 


N 


DC 


/2613 


OT 


DC 


/0039 


I 


DC 


Z2538 


NH 


DC 


/3932 


IB 


DC 


/3913 


IT 


DC 


/3534 


ED 


DC 


/0031 


A 


DC 


/3613 


FT 


DC 


Z3529 


ER 


DC 





SPACE 


DC 


/OOOO 




DC 


/oooo 




OC 


/FFFF 


TERM 


1NM24 OC 


/0014 


WORD COUNT 


DC 


/330A 


CO 


DC 


/0A08 


oe 


DC 





SPACE 


OC 





SPACE 


DC 


/2935 


RE 


DC 


/2731 


PA 


DC 


/3929 


IR 


DC 


/0036 


F 


DC 


/3139 


AI 


DC 


/2314 


LV 


OC 


/2935 


RE 


DC 


/0032 


B 


DC 


/3536 


EF 


DC 


/2629 


OR 


DC 


/3500 


E 


DC 


/3326 


CO 


DC 


/2513 


NT 


DC 


/3925 


IN 


DC 


/1439 


UI 


DC 


/2537 


N6 


OC 


/FFFF 


TERM 


* 

INM25 OC 


/OOOO 


WORD COUNT 


DC 


/350A 


EO 


DC 


/0A33 


OC 


DC 





SPACE 


DC 





SPACE 


DC 


/3923 


IL 


DC 


/2335 


LE 


DC 


/3731 


GA 


DC 


/2300 


L 


DC 


/2913 


RT 


DC 


/2500 


N 


DC 


/3525 


EN 


DC 


/1329 


TR 


DC 


/1800 


Y 


DC 


/FFFF 


TERM 


END 


START 





8B331970 
8B331980 
88331990 
9B332000 
8B3320I0 
8B-*32020 
8B332030 
8B332040 
8B332050 
8B332060 
8B332070 
8B332080 
8B332090 
8B332100 
8B332110 
88332120 
8B332130 
88332140 
8B332150 
8B332160 
8B332170 
8B332180 
8B332190 
8B332200 
8B332210 
88332220 
8B33223& 
8B332240 
8B332250 
88332260 
88332270 
8B332280 
88332290 
88332300 
BB332310 
83332320 
8B332330 
8B332340 
88332350 
8B332360 
8B332370 
8B332360 
8B332390 
8B332400 
8B332410 
88332420 
BB332430 
86332440 
8B332450 
88332460 
8B332470 
86332460 
88332490 
86332500 
8B332510 
8B332520 
86332530 
86332540 
8B33254 8B332550 
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DATE 
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01MAY66 
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415175 
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415233 
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CROSS REFERENCE LISTiNG 



SYMBOL VALUF 



BSI 

BSICK 

BSUO 

BSWOO 

BSH01 

BSW1 

CMTRP 



CMTOO 
LMT01 
CMT02 
CMT03 
CMT04 
CMT05 
CMT06 
CNC02 
CNC03 
CNMOO 
CNSNS 
CNSTO 
CNST1 
CNST2 
CNTRL 
CN001 
CN101 
CN102 
CN103 
CN104 
CN105 
CN200 
CN201 
CN300 
CN301 
CN302 
CN303 
CN400 
CN401 
CN402 
CN403 
CN404 
CN405 
CN406 
-' CN407 
CN408 
CN409 
CNSOO 
CN501 
CN502 
CODCV 
C0DC1 
C0OC2 
C0DC3 
C0DC4 
COD WO 
COO 00 
C0001 
C0002 
COMP 
C0N01 
C0N03 
CON05 
CON06 
CTRLl 
CTRL 2 



01FC 

01F8 
018A 
0192 
0193 
018C 
068B 



06AC 

06B1 

06A8 

06B4 

06C2 

06BF 

06CB 

0194 

0196 

06CA 

0436 

040C 

0400 

04E0 

015B 

01F9 

0280 

0281 

0282 

0283 

0284 

02B2 

0284 

0319 

031E 

031A 

031B 

0428 

0429 

042A 

042 B 

042C 

0420 

042E 

042F 

0430 

0431 

048A 

048B 

048C 

058E 

0595 

05A7 

05B2 

05B6 

05BE 

05C0 

05C1 

05C2 

0433 

013E 

016C 

0166 

0159 

014E 

0155 



A6, 0419, 063B.063E, 0641, 0644, 0647.064A, 0640, 0650, 
S3,0656,0659,065C,065F,0662,0665,0668,066B,066E, 
71, 0674, 0677, 06 7A, Ot7D, 0680.0683,06 66, 0689, 068C 

A 7 



REFERENCES 

01C9 

0107 

0130, 01 6C.04E 3.0501, 050C, 0513 

0136, 01 3F, 0147, 0160, 018A.04E5, 0503, 050E, 0515 

018C 

03A6, 0419, 063B.063E, 0641, 0644, ( 
0653. 06 56, 0659, 065C065F, 0662, < 

0671 

06A1 

06AB 

06 A 3 

06A9 

0601 

06BB 

06B8 

012F 

0132 

0309, 0430, 0692,OfrA8,06C*,06CC 

039E,041T,0608,06E7 

04BB 

04BF 

04C7 

0179 

010B 

020A, 0261, 0263, 02BF, 0300 

020C,0234,0247,027A,06Al 

0212,0252 

C20E.02B0 

029C.02A2 

02AA 

02C1,020A,02DF,02F5,0306 

02CC,02D8,02F9,02FO,02FF, 0302, 0304 

0303 

02E9, 0690 

0138,0380,0391,0438 

013B, 0349,034*, 0405 

0352 

0410,0697 

0368, 03EA 

03DA 

03FB 

03FE 

0401 

03BD 

0450,0460,0463 

045F, 0461,0462 

0483 

0566, 058C 

05B1 

05A6 

05AC 

058F, 0590,0591 

0561, 0568, 0595, 05B5 

059C,0590,05A1,05A2 

05A9, 05B2 

05B4 

03B7 

0165 
0161 
0170 
0149 
0150 



O 



r» 



DATE 
EC NO. 



2BFEB66 
415120 



01MAY6C 
415120A 



08JUN66 
415175 



04N0V66 
415239 



PROG 10 
PAGE 



08B3-1 
25 



CTRL3 


0158 


DELAY 


05f3 


DCLY1 


05FF 


DELY2 


0600 


ECKSU 


0286 


ERALT 


04F9 


ERRID 


0522 


ERROR 


04F5 


ERR01 


0508 


ERR02 


050A 


ERR03 


0513 


FAIL 


01E1 


HOLD 


0432 


ICTR 


01F6 


ILSAV 


0606 


ILSW 


0604 


INCN 


049F 


INLVT 


092E 


INM01 


0949 


INM02 


095E 


INM03 


096E 


INM04 


0983 


INM05 


099 A 


INM06 


09B4 


INM07 


09C9 


INM08 


0907 


INM09 


09E7 


INM10 


09F8 


INM11 


OAOB 


INM12 


0A1D 


INH13 


0A2E 


INM14 


0A45 


INM15 


0A58 


INM16 


0A6C 


INM17 


OAAC 


INM18 


OAEC 


INM19 


OB05 


INH20 


0B22 


INM21 


0B33 


INM22 


0B4C 


INM23 


0B70 


INM24 


0B89 


INM25 


0B9F 


INSAO 


0924 


INTER 


01A2 


I NT ST 


048E 


INTOO 


01A6 


INT01 


01FE 


INT02 


0292 


INT03 


0285 


INT04 


0328 


INT05 


0446 


IN001 


01C1 


IN002 


G10A 


IN16V 


0A78 


IN17/ 


0AB8 


IOARA 


0580 


ISINT 


028A 



LHIND 05BF 



0140,0154 

036F,039C,05FA,05FC,05FO 

05F6 

05F7.05F8 

0214,02 30 

041 D, 04F3,04FA,0910 

04FF,050B 

01E0, 0238, 02EE.03CF, 0315, 034C, 0371, 0387, 03A0, 0441, 

047B,04FB,04FC,051A,051C,06AC,06B1,06BF,06CE 

04FE 

0507 

051F 

01C4 

03&5, 03B6, 03B8, 03B9 

01C5, 0106, 0605 

0350, 0359, 03AA, 0694, 0tBA,06C6,06CB 

0602, 060B , 0693, 06DA, 06t9 

0494 

017C, 01 FE, 0226, 0269, 0292, 02B5,0200,032C ,0342,0350, 

0374, 03BB.044E.06B6, 0903, 0919 

027D 

024E,040C 

0200, 0228, 023A,026B,02B7,02D2,02FO,032E, 0344, 034E, 

0360, 0373, 0378, 0389, 06B4 

0202, 022A, 0260, 02B9, 0204, 0317, 0330, 0346, 035E, 0376, 

0443, 06 8E, 0690, 06B3 

0204, 022C026F, 0332, 041B.041F, 0420,06 AE 

0206,0336,0358,0600 

0173 

036E.03E4 

039B 

0384, 03CD.045B 

038C. 0304,0408,0473 

OWE, 0182 

0206,0311 

022E, 0271,060 

0294, 0334, 04EC 

04EF 

04F2 

0479, 0470 

0905, 091B.091F 

03A2 

03A8, 03B0 , 03BF, 03C3 

03F5 

01B2,01CA,01EF 

01F2 

01A4 

0908 

01A1 

0120,0100, 0255, 02A6.02E5, 0413, 0486,0490 

019B, 01E9 

019C 

0190 

019E 

019F 

01A0 

01E7 

01E8 

04C8, 04CE,06E 2, 06F0, 0704, 0718, 072C, 0740, 0754, 0768, 

077C, 0790, 07A4,07BB,07CC,07E0,07F4, 08 08,0810,0830, 

0844, 0858,0860, 0880, 0894, 08A8,08BC,08D0,O8E4 

04CA,0400,06E4,06F6,070A,071E,0732,0746,075A,076E, 

0782, 0796, 07A A, 07BE, 0702, 07E6.07F A, OBOE, 0822, 083*, 

084A,085E, 0872, 0886, 089A.08AE, 0802,08 06, 08E A 

0555, 056A, 0573, 0575,0580 

01B6, 01C1,01D0,01E 1,0 1E4, 0224, 0230, 0259, 0250,0260, 

0262,0265 

0593, 0597, 05AB.05AE 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



08JUN66 
415175 



04N0V66 
415233 



PPOC to 

PAW* 



OMJ-1 
25* 
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LOG 0523 0171, 0180, 01A2,01F0,024C,027B, 0356, 036C, 0382, 938A, 

0399, 03C1,03CB,03D2,03E2,03F3,0406,040A, 0459, 0471 , 
04EA.04ED.04F0, 0508, 052D, 0547, 0549, 055C 
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L0G01 


0524 




L0G02 


0530 


0538, 05 3A 


L0G05 


053B 


0536 


LOG 06 


0541 


0524,0564 


LPERR 


0520 


01EB,021E,0275,02C4,033E,0364,< 
0519 


LVLIX 


018E 


0158, 0220, 029 8, 02C8.04D2 


LrfLST 


04AA 


0208, 02 BB, 0338, 03E8.04B4 


LVLS1 


04 B6 


04AO 


LVLS2 


04B7 


04B0 


LVL01 


063A 


04B6 


LVL02 


0643 




LVL03 


0646 




LVL04 


0649 




LVL05 


064 C 




LVL06 


U64F 




LV107 


0652 




LVL08 


0655 




LVL09 


0658 




LV110 


0656 




LVL11 


065 E 




LVL1? 


0661 




LVL13 


0664 




LVL14 


066T 




LVL15 


066 A 




LVL16 


0660 




IVL17 


0670 




LVL18 


0673 




LVL19 


0676 




LVL20 


0679 




LVL21 


067C 




LVL22 


067F 




LVL2 3 


0682 




LVL24 


0685 




LVL25 


0688 




LVL26 


0630 




LVL2 7 


0640 


042C 


LVSAV 


0198 


014B, 0152, 0156, 0216,0219, 0290, 


IVST1 


04AE 


04B3 


MASKO 


0320 


01A6.02C6, 031 2,048F, 0525 


MASK1 


0322 


01A8, 02C7, 031 3,0491,0527 


NESrt 


04A0 


024A,03F9,04A7 


NSTCN 


0*A9 


04A2 


OP I NO 


019A 


0146,0529 


PLEXT 


0607 


01BB.01CE 


PLl 


01C4 


0169, 01F7 


PL? 


0105 


01CC01FS 


POLE II 


01E9 


OIC7.01D8 


POLL 


0601 


01F5.0604 


PRIPI 


04E2 


02A4, 0300,03E6,04F3 


PRIST 


04B8 


0296, 03C4, 0308, 040A 


PRIXT 


04F3 


04E9 


PRI01 


06EO 


04C2.06EB 


PRI02 


0716 


0721 


PRI03 


072A 


0735 


PR 1 04 


073E 


0749 


PRI05 


0752 


0750 


PR I 06 


C766 


0771 


PRI07 


077A 


0785 


PRIOB 


07BE 


0799 


PRI09 


07A2 


07A0 


PR 1 10 


07B6 


07C1 


PR 111 


07CA 


0705 


PRI12 


070E 


07E9 


PRI13 


07r2 


07F0 


DATE 


28FEB66 01MAV66 08JUN66 04N0V66 


EC NO. 


415120 


415120A 415175 415233 



PROG 10 
PAGE 



08B3-1 
26 



PRI14 


0806 


0811 




PRI15 


081A 


0825 




PRI16 


082E 


0839 




PRI17 


0842 


0840 




PRI18 


0856 


0861 




PRU9 


086A 


0875 




PRI20 


087E 


0889 




PRI21 


0892 


0890 




PRI22 


08A6 


08B1 




PRI23 


08BA 


08C5 




PR 1 24 


08CE 


08D9 




PRI25 


08E2 


08E0 




PR 1 26 


06EE 


04DC, 06F9 




PRI27 


0702 


0420 




PRSN 


0586 


053C 




PRSNS 


0584 


0530,0540 




PRWRT 


0588 


052F.053B 




PRO 20 


0723 


071C 




PR021 


0710 


0725 




PRO 30 


0737 


0730 




PR031 


0731 


0739 




PR032 


073C 


0737 




PR040 


074B 


0744 




PR041 


0745 


0740 




PRO 4 2 


0750 


074B 




PRO 50 


075F 


0758 




PRO 51 


0759 


0761 




PR052 


0764 


075F 




PR060 


0773 


076C 




PR061 


0760 


0775 




PR062 


0778 


0773 




PR070 


0787 


0780 




PRO 71 


0781 


0789 




PR072 


078C 


0787 




PR080 


079B 


0794 




PRO 81 


0795 


0790 




PR082 


07A0 


0798 




PR090 


07AF 


0TA8 




PR091 


07A9 


07B1 




PR092 


07B4 


07AF 




PR100 


07C3 


07BC 




PR101 


07BD 


07C5 




PR102 


07C8 


07C3 




PR110 


0707 


0700 




PR111 


0701 


0709 




PR112 


07DC 


0707 




PR120 


07EB 


07E4 




PR121 


07E5 


07E0 




PR 122 


07F0 


07EB 




PR130 


07FF 


07F8 




PR131 


07F9 


0801 




PR 1 32 


0804 


07FF 




PR140 


0813 


080C 




PR141 


0800 


0815 




PR142 


0818 


0813 




PR150 


0827 


0820 




PR151 


0821 


0829 




PR152 


082C 


0827 




PR160 


083B 


0834 




PR161 


0835 


083D 




PR162 


0840 


0838 




PR170 


084F 


0848 




PR171 


0849 


0851 




PR172 


0854 


084F 




PR 180 


0863 


085C 




PR181 


0850 


0865 




PR182 


0868 


0063 




PR190 


0877 


0870 




CATE 


28FEB66 01MAY66 0BJUN66 04N0V66 


EC NO. 


415120 


415120A 415175 415Z3S 



PROG ID 
PAGE 



08B3-1 
26A 
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pRi<n 

PR192 
PR200 
PR201 
PR202 
PR210 
PR211 
PR212 
PR220 
PR221 
PR222 
PR230 
PR231 
PR232 
PR240 
PR241 
PR242 
PR250 
PR251 
PR252 
PR260 
PR261 
PR262 
PR270 
PR271 
PR272 
PSSM 
REQCE 
RECER 
REQTR 
REOOO 
REQOl 
REQ02 
RE 003 
RE 004 
RE005 
REQ06 
RE007 
RE008 
RE009 
RE010 
RE011 
RECI2 
RE013 
REQ14 
. REQ15 
RE016 
RECI7 
REQ1S 
RtQ19 
REC20 
RE021 
RE022 
RE023 
RTN 
RTNNO 



RTNRT 

RT100 

RTI01 

RT104 

RT105 

RT106 

RT107 

RTIOB 

RT109 

RT110 

RT300 



0871 0879 

087C 0877 

0888 0884 

0885 088D 

0890 088B 

089F 0898 

0899 08A1 

08A4 089F 

0883 08AC 

08A0 0835 

06B8 08B3 

08C7 08C0 

C8C1 08C9 

OBCC 08C7 

080B 0804 

08D5 0800 

08E0 08DB 

08EF 08E8 

08E9 08FI 

08F4 08EF 

06FB 06F4 

06F5 06F0 

0700 04D6.05FB 

070F 0708 

0709 0711 

0714 04D8.070F 

026S 0210. 0240, 02BE.02E2 

0712 0703.0709 

06E0 06E1 

06FE 0422.06EF.06F5 

0726 0717,0710 

073A 072B.0731 

074E 073F.0745 

0T62 0753,0759 

7 7 6 0767,0760 

078A 077B.0781 

079E 078F.0795 

07B2 0TA3.07A9 

07C6 07B7.07B0 

070A 07CB.0701 

07EE 070F.07ES 

0802 07F3.07F9 

0816 0807.0800 

0e2A 0818.0821 

08 JE 082F.0835 

0852 0843,0849 

0866 0857,0850 

08 7A 0868,0871 

0H8E 087r,0885 

08A2 0893,0899 

08B6 08A7.08A0 

08CA O8BB,08Cl 

OBOE 08CF.0605 

08F2 0BE3, 08E9 

2!2 Si".0160.0162,0166.0168.017A.010A.0250.02*B.0 2 ET. 

04CE. 0461.0695,0698 

01DF. 0*57, 02A0.02EC, 0415, 0486 

0242, 02 7F 
021C025F 
0237, 06AF, 0660, 06C6 

023C0266 

023F.0273 

0249 

0258 

0278 

0245 

02E4 



0177 

0212 

0226 

0238 

0259 

0267 

0279 

0260 

0234 

0250 

02BF 



n 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
41S120A 



08JUN66 
415175 



04N0V66 
415231 



PROG ID 
PAGE 



08B3-1 
27 
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RT301 

RT302 

RT303 

RT304 

RT305 

RT306 

RT307 

RT308 

RT309 

RT310 

RT311 

RT400 

RT401 

RT402 

RT403 

RT404 

RT405 

RT406 

RT407 

RT408 

RT409 

RT410 

RT411 

RT412 

RT413 

RT414 

RT415 

RT500 



0200 

0208 

02EE 

C2F9 

0200 

02C8 

02FF 

0306 

030F 

0315 

02F4 

034A 

0438 

0350 

0374 

036C 

038A 

03A4 

0300 

03E6 

03E2 

0417 

0420 

0382 

035C 

040E 

03C4 

0450 



RT501 

RT502 

RT504 

RUNSU 

SEQCK 

SERVC 

SET 01 

SET02 

SIX 

SNSWS 

START 

SVEXT 

SVINT 

SVINO 

SVIN1 

SVIO 

SVO 

SV1 

SV2 

SV3 

SV4 

SV5 

SV6 

SW7 

TRACE 

TRACO 

TRAC1 

TRAC2 

TRAER 

TRCNO 

TRCN1 

TRCN2 

TRINO 

TWRTR 

TURTO 

TWRT1 

TWR01 

TMR02 

THR03 



0467 

047F 

0481 

0199 

0191 

06D7 

04BC 

04C8 

0190 

0188 

0120 

062 E 

0609 

0613 

0615 

0638 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

08F6 

0903 

0914 

0912 

0477 

0921 

0922 

0923 

0480 

0548 

0570 

057E 

0554 

055F 

0579 



02C2.02FE.0305 

02DC 

02CE 

02F3, 0300, 0314, 0318 

02F8 

02FB 

069F 

0308 

030C 

02E1 

033C 

033A, 0445 

0340 

0366 

0362 

037E 

0397 



O3E0 

03EF 

037A 

034F.0355 

032A 

o17f\o924,0925,0926.0927,0928.0929,092A.092B.092C. 

0920 

0466.047E.092l 

0451.0470 

0137*. 0143. 0243,0328, 0446, 06C2 
0177 01DC.0253.02AB.02EA.0411.04B4 
0232, 0283, 042E,04A9,06A5,060B 

04C1 
04CD 
0163 
015B 
0175,0184, 0195, OBAE 

02fI.038E.03A4.0306.043B.049F.04F6.062E 

0623. 06 2C 

0*10 . .« 

060A.u6l9.06lA.Co20 

0621 
0613 
0611 
0628 
0610, 0615. 061E. 0620.0*28 

0614, 0617, 061B 
0612,0618,0629 

o£2:08F8\o8FA,08FE.0901.0907.090F.09» 

08FC 
090A.0920 

0450, 0468, 046A 

08FB 
0914,0915,0916,0917 

08F 7, 0900 ,0911 

0457, 0467, 046E, 0900 

0528,0553 

0554 

0563 

0550 

055E.057C 

0572 



DATE 

EC NO. 



2RFEB66 
415120 



01MAV66 
415120A 



08JUN66 
415175 



04N0V6* 
4152)1 



PROG 10 
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THSNS 0S8A 0540, 0557, 056C 

THWRT 058C 0556, 056B 

UMSKO 0324 0180, 02F6, 0499,0543 

UMSKl 0326 01BF,02F7,C49B,0545 

VCTOR 01F5 01AB 

WOSR 057F 054C, 0570, 0576, 057* 

MTA 0305 300A 

DTB 03ES 300B 

WTC 03F6 300C, 0424,0426 

WIO 0409 30CD 

VTE 0400 300E 

KTF 045C 300F 

Hit 013C 300l,01A5,01F3 

WHO 0474 3010 

Kill 051E 3011,0512 

NT 12 0537 3012,0531 

1.713 0539 3013,0534 

MT14 0552 3014 

WT15 06C7 3015 

WT2 0174 3002 

MT3 0183 3003 

WT4 027E 3004 

UTS 024F 3005 

WT6 0358 3006 

WTT 0385 3007 

*T» 0380 3008,0393 

KT9 03CE 3009 

XIO 01FA C1B1 

XIOCC 028C 01B4, 0222, 029A.02CA, 0404 

XIOCK 01F7 01C6 

XIOSN 0S6C 056F 

XiOWR 056B 0578 

10HI 05C3 05A4 

70NEN 05C7 05C3 

J0NE1 0502 05C4 

Z0NE2 0500 05C5 

KJNE3 05E7 05C6 



( i 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



0SJUN66 
415175 



04N0V66 
415233 
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I. PURPOSE 

THE PURPOSE OF THE 1800 PROCESSOR CONTROL IPC) FUNCTION TEST IS TO LOCATE 
FAILING INSTRUCTIONS. EACH SEPARATE PC INSTRUCTION IS TESTEO ANO CHECKED 
FOR COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. FEATURES THAT ARE NOT 
UNIQUE TO AN OPERATION CODE (INDEXING, INDIRECT AODRCSSING, ETC.) ARE ALSO 
TESTEO. I/O RELATED FEATURES (INTERRUPT, CYCLE STEU, ETC.) ARE NOT TESTEO. 

•••*•«•»•••♦••«••»••«••»• »*»»..<i •••«»» •»•••.»»»»«,....„.„„„„.,„„.,...,,.„ 

• PROGRAM RUNNING TIME # 

• 

• 2 USEC MACHINE - APPROXIMATELY I MINUTE I 

• * USEC MACHINE - APPROXIMATELY 2 MINUTES • 

2. PREREQUISITES 

2.1 PROGRAM PREREGUISITES 

THE PROGRAM CAN BE OPIATED BY ITSELF BUT MUST 8E LOADEO BY THE 1800 
BASIC 0IAGNOS11C LOADER. 

2.2 EQUIPMENT PREREQUISITES 

A. 1800 PC HAVING 4096-WORD STORAGE. 

B. 1**2 CARO READ/PUNCH OR 105* PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

THE 1800 P C FUNCTION TEST (088*) IS LOAOEO BY THE 1800 BASIC LOADER. 
SEE THE 1300 BASJC LOADER DOCUMENTATION FOR THE DESCRIPTION OF THE 
LOADING PROCEDURE. e 
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3.2 PROGRAM OPERATION 

AFTER THE PROGRAM IS LOADED THE FOLLOWING NORMAL WAITS OCCUR, 

LOCATION 

8 REG SYMBOLIC DESCRIPTION AND ACTION 

3000 ixOOO) START OF PROGRAM. SET ALL BIT SWITCHES ON. PRESS START. 

3001 1X0011 TESTING OF BIT SWITCHES ON COMPLETE, TURN OFF, PRESS START. 

3002 1X003) TESTING OF BIT SWITCHES OFF COMPLETE SPT IN OPTION, PRESS START. 

3003 (X007) PROGRAM COMPLETED. PUSH START TO REWJN PROGRAM. IF OTHER WAITS 

OCCUR, REFER TO SECTION 3.5 FOR ERROR ISOLATION. 

ANY WAITS OTHER THAN THOSE ABOVE ARE ERROR WAITS. 

WHEN AN ERROR WAIT IS OBTAINED, 

t. SEE THE PROGRAM LISTING TO DETERMINE THE PROBLEM. ERROR WAITS 

ARE DOCUMENTED AT THE FRONT OF THE PROGRAM. LISTING BY THE 

CONTENTS OF THE B REGISTER. 

2. IF THE ERROR WAIT HAS & KEG1STCR LESS THAN 3069, THE OPERATOR 
CANNOT LOOP ON THAT ERROR. INSTEAD, THE OPERATOR SHOULD SINGLE 
INSTRUCTION STARTINC AT THE BEGINNING OF THE FAILING ROUTINE TO 
DETERMINE THE EXACT FAILURE. (SECTION 3.5) 

3. IF THE ERROR WAIT HAS B REGISTER GREATER THAN 3068, THE OPERATOR 
SHOULO, (SECTION 3.5) 

A. LOOP INSTRUCTION BEING TFSTED (BIT SW 8 ON) 
OR IF A LARGER LOOP IS DESIRED 

LOCK ON ERROR (BIT SW 12 ON) 

OR 
LOOP OH ROUTINE (BIT SW 10 ON) 
8. SINGLE. STEP TO LOCATE THE EXACT FAILURE. 

C. IF NO ERROR OCCURS, BYPASS THE ERROR WAIT (BIT SW 1* ON) ANO 
USE A StOPF. TO DETERMINE THE FAILURE. 

TABLE 1 

• DATA ENTRY SWITCHES • DESCRIPTION * " "" ! 

• I 2 3 4 5 6 ? 8 9 lO U 12 13 1* 15 • . 
** ...... # 

• 1 BYPASS ERROR WAIT ISEF NOTE) • 

• • • » • • — 

• •• • • 1.— LOCK ON ERROR « 

• • * • # 

• ... I LOOP PROGRAM m 

... 

• • • !•• LOOP ON ROUTINE • 

• • • • 

• l LOOP ON INSTRUCTION BEING TESTED • 

It • 

9 * • BYPASS MPL/DIV TEST • 

• NOTE- IF ERROR OCCURS, BITS 12 Ofl 8 MUST BE ON TO MAKE BIT 1* EFFECTIVE. • 

3.3 TERMINATION 

NORMAL TERMINATION OCCURS WITH PROGRAM STOPPING AT WAIT WITH 
8 REG « 3003. 
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3.4 RESTART PROCEDURE 

PRESS STOP, RESET, AND START BUTTONS. 
9.9 ERROR MAITS 

THERE ARE TUG TYPES OF ERROR CONDITIONS WHICH CAUSE ERROR WAITS. 

1. ERRORS WHICH USE THE COMMON ERROR CONTROL ROUTINE 8FO0OJ. 

2. ERRORS WHICH OCCUR BEFORE SUFFICIENT PORTIONS OF THE HARDWARE 
HAVE BEEN CHECKED OUT TO ALLOW USE OF THE COMMON ERROR CONTROL 
ROUTINE. 

ERRORS WHICH USE THE COMMON ERROR CONTROL ROUTINE HAVE 8 REG NUMBERS 
OF /3Q69 ANO UP. WHEN A NUMBEREO WAIT OCCURS, BITS 5-15 OF THE STORAGE 
(B REG » 3XXX). WHEN A NUMBfcREO WAIT OCCURS, BITS 5-15 OF THE STORAGE 
BUFFER REGISTER GIVE THE ERROR IDENTIFICATION NUMBER. TO FIND THE 
FAILING ROUTINE, LOOK IN THE ERROR IDENTIFICATION TABLE I IN FRONT OF 
THE LISTING) . THIS WILL GIVE VOU THE SYMBOLIC AND ACTUAL STARTING 
ADDRESS OF THE ROUTINE THAT FAILED. 

ERRORS WHICH DO NOT USE THE COMMON ERROR CONTROL ROUTINE HAVE B REG NUMBERS 

FROM /30O3 THRU /3068. THE INSTRUCTION REG WILL POINT 

DIRFCTLY TO THE FAILING ROUTINE. TO FACILITATE FINDING THE START OF 

A TEST ROUTINE EACH TEST ROUTINE BEGINS WITH A LABEL HAVING AN A OR B 

AS ITS FIRST LETTER. IN THE LISTING EACH ROUTINE IS FURTHER BRACKETED 

8Y A SOLID LINE OF ASTRISKS. T0 FIND THE FAILING ROUTINE OF ERRORS 

WHICH DO NOT USE THE COMH.ON ERROR CONTROL START AT THE LOCATION 

SPECIFIED BY THE ERROR WAIT AND WORK UP THE LISTING (BACKWARDS) UNTIL 

THE FIRST SYMBOLIC LOCATION WHICH HAS A LABEL BEGINNING WITH A AND 6. 

THIS IS THE START OF THE FAILING ROUTINE. 

TWO WAYS OF LOCATING A FAILURE ARE AS FOLLQWS- 

A. DETERMINE WHAT FAILURE CAUSED THE ERROR WAIT. TO LOCATE THE 
FAILURE, IT IS RECOM*£>«.FO THAT THE PROGRAM BE MANUALLY ENTERED 
AT THE START OF THE. FAILING ROUTINE ANO SINGLE INSTRUCTION, 
FOLLOWING THE LISTING TO DETERMINE THE EXACT FAILURE. 

B. USE AN OSCILLOSCOPE TO HELP LOCATE THE FAILURE. IF THE FAILURE 
IS IN THE COMMCN-ERRQR ROUTINE, SIMPLY TURN ON CONSOLE ENTRY 
SWITCH 8 AND DEPRESS STAR T PUSHBUTTON TO LOOP ON THE INSTRUCTION 
BEING TESTED. IF THE FAILi-RE IS IN THE FIRST PART OF THE 
PROGRAM (btFORE THE COMMON ERROR ROUTINE INSTRUCTIONS HAVE BEEN 
CHECKED OUT), A BRANCH (MOX) TO THE BEGINNING OF THE ROUTINE NAY 
BE MANUALLY INSERTEU IN PLACE OF THE WAIT INSTRUCTION. THEN, THE 
ROUTINE MAY BE LOOPED. 

4. PRINTOUTS (NONE) 

5. COMMENTS 

THE 1800 P-C FUNCTION TEST STARTS WITH VERY SIMPLE INSTRUCTIONS ANO 
DETERMINES IF EACH INSTRUCTION PERFORMS TO SPECIFICATIONS. EACH SUCCESSIVE 
ROUTINE ATTEMPTS TO UTILIZE ONLY AN INSTRUCTION THAT HAS NOT BEEN PREVIOUSLY 
TESTED. THE PROGRAM OPTIONS PROVIDE A MEANS FOR CQNTINOUSLV LOOPING THE 
ENTIRE PROGRAM ANO ALSO ALLOW FAILING ROUTINES TO BE LOOPEO. 

AN ATTEMPT IS MADE DURING fHE EARLY STAGES OF THE PROGRAM TO DEVELOP THOSE 
INSTRUCTIONS WHICH ALI.OV THS, USAGE OF THE COMMON CONTROL IFOOE AND F005) AND 
ERROR IFOOO) ROUTINES. APTER THESE INSTRUCTIONS HAVE SEEN TESTED THE USER 
THEN HAS THE ABILITY TU REQUEST VARIOUS CONTROL OPTIONS BY MEANS OF THE DATA 
ENTRY SNITCHES. 
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9.1 OPERATING MODES 

THE NORMAL MODE OF OPERATION IS WITH THE DATA EKTRY SWITCHES SET TO 
/OOOO. THIS CAUSES A SINGLE PASS THROUGH THE WH3GRAH WITH AN ERROR 
WAIT OCCURING IF AN ERROR IS DETECTED. 

IF AN ERROR IS DETECTED ANO THE COMMON ERROR WAIT OCCURS, THE USER 
SHOULD TURN ON THE •• LOOP ON ROUTINE " (BAT* EWTRY SWITCHES SET TO 
/0020) AND SINGLE INSTRUCTION THROUGH THE FAILING ROUTINE TO ISOLATE 
THE FAILING INSTRUCTION. 

IF THE FAILING ROUTINE DOES NOT FAIL, WHEW EXECBJfED IN SINGLE 
INSTRUCTION MODE, THF USER CAN TURN ON FH€ »• BYPASS ERROR WAIT" 
SWITCH AND THE "LOOP ROUTINE" SWITCH fOAT* CWTRY SWITCHES SET TO 
/0022) AND PROCEED TO USE SCOPING TECHUICUES IB ISOLATE THE FAILURE. 

5.2 PROGRAM LABELS 

LABELS OCCURING IN THE PROGRAM LISTING CAM E>E ©U1CXLY IDENTIFIED 
AS FOLLOWS- 

A. LA8ELS STARTING WITH A OR B INDICATE THE BEGINNING OF A TEST 

ROUTINE. 
8. LABELS STARTING WITH G, H, J, OR K INDICATE COMMUNICATION 

LABELS WITH A ROUTINE. 
C. LABELS STARTING WITH V OR X ARF RESERVED men WAITS. 
0. LABELS STARTING WITH N, R, OR S INDICATE A CONSTANT OR 

WORK AREA. 
E. LABELS STARTING WITH F, W, Z OR U ARE USES IN COMMON OR SPECIAL 

ROUTINES THAT ARE NOT A REGULAR TEST RSUTIME. 

APPENDIX (NONE) 
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ABS 
026C ORG /3000 

******•**•**•***«*•**•* **♦*************♦***************»»»»»»*»*,**»*,* 

* THIS ENGINEERING CHANGE REFLECTS MINC< BOT 

* SIGNIFICANT MODIFICATIONS TO THE PROGRAM AND 

* PROGKAM DESCRIPTION. 
* 

* THE CHANGES ,RE — 



l,(|l-H(K( 



9-KEC I-Rltt 

niiutHitxtisMi 

3000 012E 



3001 0287 



1. THE PROGRAM IDENTIFICATION HAS BEEN ADDEO 
JUST AFTER THE ORG 300 INSTRUCTION TO ENABLE 
THIS PROGRAM TO BE CALLED OFF THE DISK. 

2. WAIT /3000 AT LABEL XOOO HAS BEEN INSERTED 
AT THE Fi*O^T OF THE PROGRAM SO THAT THE 
INITIAL BIT SWITCH SETTINGS CAN 8E MADE. 



••to************************* ft******************* 

OPERATING INSTRUCTIONS 

BIT SWITCH SETTINGS 

BIT 14 ON BYPASS ERROR WAIT 

BIT 12 OR 8 MUST BE ON TO 
MAKE BIT 14 EFFECTIVE. 

BIT 13 NOT USEO 

BIT 12 LOCK ON ERROR 

BIT 11 ON LOOP PROGRAM 

BIT 10 ON LOOP ROUTINE 

BIT 9 NOT USEO 

BIT 8 LOOP ON INSTRUCTION BEING 

TESTED 
BIT 7 ON BYPASS MPL/OIV TEST 



**•***•*•*•******•***********;***** *************£. 49 
A HALT AT 

****••******•*•*•*******••***•*•*********,*****„„ 

OC XOCO-U 1130 AND 1800 

SET DATA ENTRY SWITCHES 
TO /FFFF ♦ PRESS START 

(18001 ALSO SET S/P SUS TO 
/FFOO AND PPESS START 

DC X001-»l SET SENSE/PROG AND 

DATA ENTRY SWITCHES 
TO ZEROS AND PRESS 
START 



88400030 

88*000*0 

86400050 

83400060 

8B400070 

83400080 

68400090 

88400100 

88400110 

88400120 

68400130 

88400140 

68400150 

88400160 

88*00170 

8B400I60 

88400190 

8S400200 

38400210 

83400220 

88400230 

88400240 

$8400250 

08400260 

88400270 

83400280 

83400290 

88400300 

88400310 

88400320 

88400330 

88400340 

88400350 

88400360 

8B400370 

8B400380 

83400390 

88400400 

8S400410 

8B400420 

8B400430 

88400440 

88400450 

88400460 

88400470 

88400480 

88400490 

8B400S00 

88400510 

8B400520 

8B400530 

8B400540 

8B4005SO 

38400560 

88400570 

8B400580 

8B400590 

8B400600 

8B400610 

88400620 

88400630 

88400640 

88400650 

8B400660 

88400670 

88400680 

8B400690 

88400700 



3002 


02CB 


• 
• 


3003 


OF 70 





DC 



DC 



X003M SET SWITCHES TOR OPTIONS 

AND PRESS START 

X007*l PROGRAM COMPLETED 



*************** 
ADDRESS 
OF 
8-RES ROUTINE 

********* ****** 

3004 012E 



3005 012E 

3006 012E 



3007 012E 

3008 012E 

3009 Ox2E 
300A 012£ 



300 8 012E 



300C 012E 
300D 012E 
300E 012E 



300F 013F 



3010 013F 

3011 013F 



3012 013F 



3013 014C 



***•*••******••*••****•******»*********** **»* 

* ERROR IDENTIFICATION LISTING 

* 
* 
************************ ******************************* 

* A REG REG XR-1 XR-2 XR-3 STATUS 
************************************ ******************* 

DC AOSO MOX 

* SHORT FORM MDX FAILED TO MODIFY I CTR *l 

* 

DC A080 MDX MOO+0 

OC A080 *l 

« SHORT FORM MDX-SHCULO HAVE MODIFIED I CTR 

* *Z BUT MODIFIED BY QH *1 
* 
* 

OC A080 MOX MOD+0 

DC AOSO *l 

DC A080 +2 

OC AOSO 43 

* SHORT FORM MDX SHOULD HAVE MODIFIED I CTR 

* *4 BUT MODIFIED BY Q, +1, *2 OR +3 
* 

DC AOSO MDX 

» MDX SHORT FORM FAILED TO MODIFY I CTR 

OC AOSO MOX MOD*0 

DC AOSO #i 

DC AOSO *2 

* MOX SHORT FORM-SHOULD HAVE MODIFIED I CTR 

* -2, 010 MOOIFY BY 0» +1 OR +2 
• 
* 

DC AOCO BSC.C 

» N/A N/A N/A N/A N/A C*0 

* BSC SKIPPED-SHOULD NOT HAVE 

OC AOCO BSCO 

OC AOCO 

* N/A N/A N/A N/A N/A C+0 AFTER LDS 

* N/A N/A N/A N/A N/A C AFTER 1ST BSC 

* FIRST BSC SKIPPED-SHOULD NOT HAVE 
» SECOND 8SC FAILED 70 SKIP-INDICATING 1ST BSC 

* FAILED TO TURN OFF OVERFLOW 
• 

DC AOCO BSC,C 

* N/A N/A N/A N/A N/A OFF 

* BSC 010 NOT SKIP WITH OVERFLOW OFF 

OC A100 10 

* 0000 N/A N/A N/A N/A N/A 

* ACCOM NOT EQUAL TO 0000 



88400710 
88400720 
8840OT3O 
8B40074O 
88400750 
88400760 
88400770 
88400780 
SB4G079O 
88400890 
88400810 
8B400820 

* 88400838 
83400840 
SB40085Q 
88400860 

* 884008,70 
88400860 
8340089^ 
68400900 
88400910 
88400920 
88400930 
88400940 
98400950 
8B40C96Q 
8B4 00970 
88400980 
88400990 
88401000 
8B40101O 
8B40102O 
88401030 
88401040 
88401050 
88401060 
8840107O 
83401Q8O 
88401090 
88401100 
88401110 
88401120 
88401130 
88401140 
88401150 
88401160 
8B40117O 
8B401180 
88401190 
38401200 
88401210 
88401220 
8B401230 
88401240 
8B40125O 
88401260 
8B401270 
8B401280 
8B401290 
88401300 
88401310 
88401320 
88401330 
88401340 
8B401350 
88401360 
88401370 
88401380 
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01MAY66 
415120A 



04NQV66 
415233 



PROG 10 
PAGE 



0684- t 



OATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG 10 
PACE 



08B4-1 
14 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
PROCESSOR-CONTROLLER FUNCTION TEST 



PART NO. 2196*71 
PAGE 2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
PROCESSOR-CONTROLLER FUNCTION TEST 



PART NO. 2196471 
PAGE 2A 



»»*******»*♦♦*#»»*•«•**»***»•♦*»»**•»»*•*»*»»**•**»******************** 
ADDRESS • 

OF • 

B-RtG ROUTINE • A-REG O-REG XR-I XR-2 XR-3 STATUS 

»*****»#*♦*»»•••»*•*•»»»»••**•*»••••••****•**•***♦•***»»*•****♦*•**•*** 



30!* 014C 



3015 auc 



3016 0154 



3017 015* 



3018 0154 



3019 





0154 


301 A 





0154 


301 B 





0154 


301C 





0154 


3010 





0154 


301E 





0154 


301 F 





0154 


3020 





0154 


3021 





0154 


3022 





0154 


3023 





0154 


3024 





0154 


3025 





0154 


3026 





0154 


3027 





0154 


302 8 





0154 


30<!9 





0154 



OC AltlO LD 

• 0000 N/A N/A N/A N/A N/A 1ST LO 

• 0000 N/A N/A N/A N/A N/A 2N0 LC 

• A tOAO 0000 fOLtOWED BY LOAD 0000 010 NOT 

• LEAVE ACCU* EQUAL TO 0000 
» 

DC A100 SSCtE 

• 0000 N/A N/A N/A N/A N/A 

BSC rAlLEO 10 SKIP 



OC A140 10 
0000 N/A N/A W/A N/A N/A 1ST VALVE 
FFFF N/A N/A N/A N/A N/A AFTER 10 
LOAD FFFF ON TOP OF 0000 010 NOT LEAVE ACC 
NEGATIVE 



DC 
FFTF N/A 



A140 
N/A 



BSCt* 

N/A N/A 



DC A140 BSCtE 
FFFF N/A N/A N/A N/A 
BSC SKIPPEO SHOULD NOT NAVE 



N/A 



N/A 



OC 
DC 
DC 
OC 
DC 
DC 
OC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 



• FFFF 

• OOG- 



N/A 
N/A 



A140 ACCUM NOT EQUAL 7FFF 

A140 ACCUM NOT EQUAL 3FFF 

A140 ACCUM NOT EQUAL 1FFF 

A140 ACCUM NOT IWUAL OFFF 

A 140 ACCUM NOT EOUAL OTFF 

A140 ACCUM NOT tQJAL 03FF 

A 140 ACCUM NOT EQUAL 01FF 

A140 ACCUM NOT EQUAL OOFF 

A140 ACCUM NOT EQUAL 007F 

A140 ACCUM NOT EQUAL 003F 

A140 ACCUM NOT tOUAL OOIF 

A 140 ACCUM NOT EQUAL OOOF 

A140 ACCUM NOT 10UAL 0007 

A140 ACCUM NOT EQUAL 0003 

A140 ACCUM NOT EQUAL 0001 

A140 ACCUM NOT EOUAL 0000 

A140 ACCUM NOT EQUAL 0000 

N/A N/A N/A N/A LOAOEO 

N/A N/A N/A N/A AFTER SKA'S 



• THE ABOVE WAITS OCCUR AS A RESULT OF A 

• FAILURE ON A ROUTINE THAT LOADS FFFF ON 

• 0000 AND CHECKS USING SRA I AND BSC E. 



302A 


01A0 


OC 


A180 


302B 


01A0 


DC 


AI80 


302 C 


01A0 


DC 


A180 


3020 


01A0 


DC 


Aieo 


302E 


0154 


DC 


A140 


302 F 


01A0 


OC 


A 180 


3030 


01A0 


DC 


A180 


3031 


01A0 


DC 


A180 


DATE 


28FE666 


01MAY66 


04N0V66 


EC NO. 


415120 


415120A 


415233 



ACCUM 


NOT 


EOUAL 


FFFF 


ACCUM 


NOT 


EOUAL 


FFFF 


ACCUM 


NOT 


EQUAL 


TFFF 


ACCUM 


NOT 


EQUAL 


3FFF 


ACCUM 


NOT 


EQUAL 


1FFF 


ACCUM 


NOT 


EQUAL 


OFFF 


ACCUM 


NOT 


EQUAL 


07FF 


ACCUM 


NOT 


EOUAL 


03FF 



8B401390 

8B401400 

8B401410 

83401420 

8B401430 

8B401440 

8B401450 

88401460 

8B401470 

8B401480 

88401490 

8B401500 

86401510 

8B401520 

83401530 

88401540 

88401550 

8B401560 

8B401570 

89401580 

8B401590 

88401600 

88401610 

88401620 

88401630 

88401640 

88401650 

8B401660 

88401670 

8B401680 

88401690 

8B401700 

8B401710 

88401720 

88401730 

8B401740 

88401750 

83401760 

6B401770 

88401780 

8B401T90 

83401800 

83401810 

88401620 

88401830 

88401840 

88401850 

83401860 

88401870 

88401880 

89*01890 

88401900 

88401910 

88401920 

83401930 

8B401940 

88401950 

88401960 

•B401970 

88401980 

88401990 

88402000 

6B402010 

88402020 

88402030 

88402040 

88402050 

8B402060 



PROG ID 
PAGE 



******** 



B-REG 
******** 

3032 
3033 

3034 
3035 
3036 
3037 
3038 
3039 
303A 
3038 
303C 
















******** 
ADDRESS 

OF 
ROUTINE 
******** 

OlAO 
01A0 
OlAO 
OlAO 
OlAO 
OlAO 
OlAO 
OlAO 
OlAO 
OlAO 
OlAO 



***************»»*•♦»♦*»»•••*•*•♦*••♦••••••••***•*•♦*** 

* A-RCG Q-REG XK-1 XK-2 XR-3 STATUS 

******♦******•*•••♦•»»•»»»»*»♦•»»••**»• ••♦•»»*•»•**<•*•* 



3030 01EB 



303E OlfcB 



303F 01F5 



3040 01F5 



3041 01F5 



3042 01F5 

3043 01F5 



3044 OIF 5 



OC A180 ACCUM NOT EOUAL 01FF 

OC A180 ACCUM NOT EOUAL OOFF 

OC A I BO ACCUM NOT EOUAL 007F 

OC A180 ACCUM NOT EOUAL 003F 

DC A180 ACCUH NOT EOUAL OOIF 

OC A180 ACCUM NOT EQUAL OOOF 

OC A J SO ACCUM NOT EOUAL 0007 

OC A1H0 ACCUM NOT EQUAL 0003 

OC AtSO ACCUM NOT EQUAL 0001 

DC A180 ACCUM NOT EOUAL 0000 

DC A180 ACCUM NOT EQUAL 0000 

FFEF W/A N/A N/A H/* N/A LOADED 

0000 N/A N/A N/A N/A N/A AFTER SRA'S 

THE AB0VL WAITS OCCUR AS A RESULT OF A 
FAILURE ON A ROUUHfc THAT LOADS FFFF ON 
FFFF AKO CHECKS USING SRA 1 ANO BSC E. 



* 
* 



OC aico 

0000 N/A N/A N/A 

ACCUM NOT EQUAL OOtfO 



LD 0000 ON 0000 
N/A N/A 



OC AICO 

0000 N/A N/A N/A 

FFFF N/A N/A N/A 

ACCUM NOT EQUAL FFFF 



LO FS-Ff ON 0000 



N/A 
N/A 



N/A BEFORE LD 
N/A AFTER LO 



OC A1D0 LO 

0000 N/A N/A N/A N/A N/A 

ACCUM NOT EOUAL 0000 



DC 
0000 N/A 
OOOO N/A 
WITH ACCUM 
NOT REStfLf 



OC 
FFFF H/A 
0000 N/A 
WITH ACCUM 
NOT RESULT 



DC 

OC 
0000 N/A 
F M F N/A 

WITH ACCUM 
NOT RESULT 



A 100 EOR 

N/A N/A N/A N/A 

N/A N/A N/A N/A 

E0U4L 0000 AN EOR USING 0000 DID 
IN ACCUM EQUAL 0000 



A100 EOR 

N/A N/A N/A N/A LOADED ♦ EOR 
A/A N/A N/A N/A SHOULD BE 
EQUAL FFFF AN EOR USING FFFF DID 
IN ACCUM EQUAL 0000 



A100 EOR 

A100 

fJ/A N/A N/A N/A BEFORE 
N/A N/A N/A N/A S/B AFTER 
tOUAL 0000 AN EOR USING FFFF OID 
IN ACCUM EQUAL FFFF 



OC A 100 EOR 

FFrF N/A N/A N/A N/A N/A BEFORE EOR 

FFFF N/A N/A N/A N/A N/A S/B AFTER 

WITH ACCUM EQUAL FFFF AN EOR USING 0000 DID 
NOT RESULT IN ACCUM EOUAL FFFF 



08B4-1 
2 



DATE 
EC NO. 



28FEB66 
415120 



01MAV66 
415120A 



04N0V66 
415233 



88402070 

8B402080 

8B402090 

8B402100 

83402110 

88402120 

83402130 

8B402140 

8S402150 

8B402160 

89402170 

8B402180 

8B402190 

8B402200 

884,02210 

8B402220 

88402230 

8B402240 

8B402250 

88402260 

83402270 

SB402280 

8B402290 

8B402300 

8B402310 

864Q2320 

8B402330 

88402340 

8B402350 

8B402360 

88402370 

8B402380 

83402390 

9B402400 

8B402410 

88402420 

88402430 

8B402440 

8B402450 

8B402460 

83402470 

8B402480 

8 640 2490 

8B402500 

83402510 

8B402520 

8B402530 

8B402540 

88402550 

8B402560 

8B402570 

83402580 

8B402590 

83402600 

83402610 

8B402620 

8B402630 

88402640 

88402650 

88402660 

88402670 

88402680 

83402690 

8B402700 

8B402710 

88402720 

88402730 

88402740 
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2A 



oooooooooo. 00000000000 00000000 00( 
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ADDRESS * 

OF * 

B-REG ROUTINE * A-kfcG O-REG XR-1 XK-2 XR-3 STATUS 

***»e*«***##*«*«*.»6**** **************** *****«!<<*•#*************«*•****** 

30*5 01F5 DC A 100 SRA ♦ EOR 

* 7FFF N/A N/A N/A N/A N/A S/B AFTER SRA 

* OUOO N/6 N/A N/A N/A N/A S/B AFTER EOR 

* MITH ACCM EQUAL 7FFF AN EOR USING 7FFF DIO NOT 
ACCUM EQUAL TO 0000 
ACCM EQUAL TO 0000 



3046 U214 



3047 02i<« 



304 S 
3049 



0*20 

0220 



3Q4A 0220 



3048 022D 



304 C 
3G4D 



304E 
304 F O 



3050 

3051 



0220 
022D 



0220 
0220 



022D 

0220 



3062 0220 



3053 

3054 



0220 
0220 



BESULT 
RESULT 



IN 
IN 



DC 



A1E0 LD LONG FORM 

0000 N/A N/A N/A N/A N/A S/B AFTER LO 

ACCUM NOT EQUAL 0000-1 NOICATING WRONG 
LOCATION WAS LOADED 



DC A1E0 LO LONG FORM 

CiNlEO. N/A N/A N/A N/A N/A S/B AFTER LD 

0000 N/A N/A N/A N/A N/A S/B AFTER EOR 

ACCUM NET EQUAL 0000 INDICATING WRONG LOCATION 
WAS LOADED 



DC A1F0 LD 1ND 

DC A1F0 LD IND 

0000 N/A N/A N/A N/A N/A S/B FOR BSC 

ACCUM NOT EQUAL 0000 INDICATING WRONG 
LOCATION WAS LOADED 



DC A200 
UNCONDITIONAL BSC 



DC A200 

UNCONDITIONAL BSC 



BSC LONG FORM 

DIO NOT BRANCH 



BSC LONG FORM 
SKI PPED-SHOULD BRANCH 



DC A200 BSCtE LONG FORM 

DC A200 

FFFF N/A N/A N/A N/A N/A 

BSC FELL THRU OR SKI PPED-SHOULD BRANCH 
DID NOT SKIP OR SKIPPED - SHOULD BR. 

DC A200 BSC.* LONG FORM 

DC A200 

FFFF N/A N'A N/A N/A N/A S/B AT TEST 

010 NOT SKIP OR SKIPPED - SHOULD BR. 



BSC, 2 LONG FORM 



OC A200 

DC A200 

FFFF N/A N/A N/A N/A N/A S/B AT TEST 

BSC DID NOT SKIP OR SKIPPED - SHOULD BR. 



OC A200 BSC- LONG FORM 

FFFF N/A N/A N/A N/A N/A S/B AT TEST 

BSC BRANCHEO-SHOULO NOT 



DC A200 BSCC LONG FORM 

OC A200 

N/A N/A N/A N/A N/A C*0 S/B AT TEST 

BSC DID NOT SKIP OR SKIPPED-SHDULO BRANCH 



8B402750 

88402760 

83402770 

88402780 

88402790 

884G2800 

8B402810 

8B402820 

88402830 

88402840 

88402850 

88402860 

8B402870 

88402880 

8B402890 

8B402900 

8B402910 

8B402920 

8B402930 

88402940 

88402950 

88402960 

88402970 

88402980 

8B402990 

8B403000 

88403010 

8B403020 

8B403030 

8B403040 

8B403050 

8B403060 

8B403070 

8S403Q80 

88403090 

88403100 

8B403110 

8B403120 

8B403130 

8B403140 

88403150 

88403160 

88403170 

8B403180 

8B403190 

8B403200 

8B403210 

88403220 

8B40 3230 

88403240 

88403250 

88403260 

8B403270 

8B403280 

8B403290 

88403300 

8B403310 

88403320 

8B403330 

8B403340 

8B403350 

8B403360 

88403370 

8B403380 

8B403390 

8B403400 

8B403410 

8B403420 



*#**#J***#$3$ 




ADD* 




OF 


B-REG 


ROUT 


**«*****s>#*« 


3055 


022D 


3056 


022D 



3057 022D 



*********************************************************** 
FSS « 

INE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 

**************** %** ** t* ***» ******§ $ * ** * *** * ************** 

DC A200 BSCtO LONG FORM 

DC A200 

* N/A N/A N/A N/A N/A C+Q S/B AT TEST 

* BSC DID NOT SKIP OR SK I PPEO-SHOULD BRANCH 
* 
* 

DC A200 BSCO LONG FORM 

* N/A N/A N/A N/A N/A C S/B AT TFST 

* BSC FAILED TO TURN OFF OVERFLOW 



3058 022D 



3059 022D 







* 






* 


305A 


022D 




305B 


0220 





305C 022D 



305D 0220 



305 E 
305F 



306 2 
3063 Q 



0220 
022D 



3060 0270 



3061 0270 



0270 
0270 



3064 0270 



3065 0282 



DC A200 BSCC LONG FORM 

* N/A N/A N/A N/A N/A OFF S/B AT TEST 

* BSC BRANCHED-SHOULD NOT 



DC A200 BSCO LONG FOR* 

* N/A N/A N/A N/A N/A OFF S/B AT TEST 

* BSC BRANCHEO-SHOULD NOT 



DC £200 BSC*- LONG FORM 

DC A200 

* 0000 N/A N/A N/A N/A N/A 

* BSC DID NOT SKIP OR SK I PPtO-SHOUL D BRANCH 



OC A200 BSC,*- LONG FORM 

* FFFF N/A N/A N/A N/A N/A S/B AT TFST 

* BSC BRANCHED-SHOULD NOT 
# 

* 

DC A200 BSC*- LONG FORM 

* 0001 N/A N/A N/A N/A N/A S/B AT TEST 

* BSC BRANCHED SHOULD NOT 



BSC INDIRECT 



OC A200 

DC A200 

* BSC DID NOT SKIP GR SKI PPED-SHOULD BRANCH 

* 

DC A240 BSI 

* UNCONDITIONAL BSI DID NOT BRANCH 



DC A240 BSI 

* UNCONDITIONAL BSI DID NOT STORE I CTR 

* CORRECTLY 

* 



BSI,* LONG FORM 



DC A240 

OC A240 

* 0000 N/A N/A N/A N/A N/A S/B AT TEST 

* BSI DID NOT SKIP OR SKI PPED-SHOULD BRANCH 



DC A240 BSI,* LONG FORM 

* BSI DID NOT STJRE THE I CTR CORRECTLY 

* 

DC A900 STORE 

* STORE INSTRUCTION FAILED 



8B403430 
8B40 3440 
8B403450 
8B403460 
** 8B403470 
8B403480 
8B403490 
8840 9500 
8B403510 
83403520 
8B403530 
8B403540 
aB403550 
8B403560 
8B403S7Q 
8B403580 
8B403590 
8B403600 
8B403610 
8B403620 
8B403630 
8B403640 
88403650 
8B403660 
88403670 
8B403680 
86403690 
83403700 
8B403710 
88403720 
88403730 
8B403740 
8B403750 
88403760 
8B403770 
88403780 
8B403790 
86403800 
88403810 
8B403820 
88403830 
8B403840 
38403850 
8B403860 
88403870 
86403880 
8B403890 
8B403900 
8B403910 
88403920 
8B403930 
8B403940 
8B403950 
8B403960 
88403970 
88403980 
88403990 
8B404000 
88404010 
8B404020 
8B404030 
88404040 
88404050 
8B404060 
88404070 
88404080 
8B404090 
88404100 



CATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 
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************** ********* **************************************** ******** 
AOORESS • 

or • 

6-REG ROUTINE » A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

ft-********************** ******************************** *» ************** 

3066 0282 DC A900 XIO SENSE/PROG SWS 

* FFOO N/A N/A N/A N/A N/A S/B AT TEST 

• ACCUM NOT EQUAL TO FFOO — SENSE/PROG SWS 
» kfcR€ INCORRECTLY SENSED 



3U67 0282 



3068 0282 



3069 0282 



/ 



306A 0209 



306B 02E3 



306C 02EE 



3060 02F9 



306E 0304 



DC A900 XIO DATA ENTRY SWS 

FFOO N/A N/A N/A N/A N/A S/B AT TEST 

ACCUM NOT EOUAL 10 FFFF— DATA ENTRY SHS 
WERE INCORRECTLY READ 



OC A900 XIO SENSE/PROG SHS 

FFOO N/A N/A N/A N/A N/A S/B AT TEST 
ACCUM NOT EQJAL TO 0000 — SENSE/PROG SWS 
WERE INCORRECTLY SENSED 



DC A900 XIO 

0000 N/A N/A N/A N/A NT/B AT TEST 

ACCUM NOT EOUAL TO 0000— DATA ENTRY SMS 
WERE INCORRECTLY READ 



* ♦a**********************************************,** 

* 

* THE FOLLOWING ERRCRS ARE HANDLED BY THE 

* COMMON ERRC* CONTROL ROUTINE. THE 10 NUMBER 

* SHOWN FOR EACH ERROR WILL APPEAR IN BITS 

* 5 THRU 15 OF THE fcAlT INSTRUCTION. 



*************************************************** 
* 

SRA 16 

N/A N/A 

N/A N/A 



DC 



A 280 
FFFF N/A N/A 

0000 N/A N/A 

ACCUM NOT ZERO 



N/A S/B AFTER 
N/A S/B AFTER 



LD 
SRA 



DC A281 SRA IS 
8000 N/A N/A N/A N/A 
0001 N/A N/A N/A N/A 
ACCUM NOT EQUAL 0001 



DC A282 SRA 1 
AAAA N/A N/A N/A N/A 
5555 N/A N/A N/A N/A 

ACCUM NOT EOUAL *555 



DC A2B3 
5555 N/A N/A 
2AAA N/A N/A N/A 
ACCUM NOT EOUAL 2AAA 



SRA 1 
N/A N/A, 

N/A 



DC 



A284 



SERIES 
•TOTAL 

8000 N/A N/A N/A N/A 

0001 N/A N/A N/A N/A 

ACCUM NOT EQUAL 0001 



N/A S/B AFTER LD 
N/A S/B AFTER SRA 



N/A S/B AFTER LD 
N/A S/B AFTER SRA 



N/A S/B AFTER LO 
N/A S/B AFTER SRA 



OF SRAS-15 

SHIFTS 

N/A S/B AFTER LO 
N/A S/B AFTER SRA 



88404110 

88404120 

8B404130 

8B404140 

88404150 

8B4 04160 

8B404170 

8B404180 

8B404190 

8B404200 

8B404210 

8B404220 

88404230 

SB404240 

8B404250 

8B404260 

88404270 

8B404280 

8B404290 

8B404300 

88404310 

8B404320 

8B404330 

88404340 

8B404350 

8B404360 

88404370 

8B404380 

8B404390 

8B404400 

8B404410 

8B404420 

88404430 

SB404440 

8B404450 

88404460 

8B404470 

8B404480 

8B404490 

8B404500 

8B404510 

8B404520 

8B404530 

86404540 

6B404550 

8B404560 

8B404570 

8B404580 

6B404590 

BB404600 

8B404610 

8B404620 

8B404630 

8B404640 

8B404650 

8B404660 

8B404670 

8B404680 

8B404690 

8B404700 

8B404710 

8B404720 

8B404730 

38404740 

8B404750 

88404760 

8B404770 

8B404780 



******* 



B-REG 

******* 



**************** ***********«■»**********************»»*»***»*»»»,, 
AOORESS * 

OF * 

ROUTINE * A-REG Q-REG XR-1 XR-? XR-3 STATUS 

«»t**»»»»»**»*»**t*«*»***»»s»«*t**«»»««»»t«**«»*»»»»n»»»n»«n 



306F 0319 



3070 0323 



3071 032D 



3072 0337 



3073 0345 



3074 034F 



3075 035A 



3076 0368 



3077 0368 



3078 0381 



* 

* 

* 
* 
* 
* 
* 

* 
* 

* 
* 

* 

* 
* 
* 
* 

* 
* 



DC A2C0 

OOOG N/A N/A 

0000 N/A N/A 

ACCUM NOT EQUAL 0000 



AND-MEMORY*0000 
N/A N/A N/A S/B AFTER LD 
N/A N/A N/A AFTER AND 



DC A2C4 AND-MEMORY=FFFF 

0000 N/A N/A N/A N/A N/A 

0000 N/A N/A N/A N/A N/A 

ACCUM NOT EQUAL 0000 * 



DC A2CA 

FFFF N/A N/A 

0000 N/A N/A 

ACCUM NOT EQUAL 0000 



4ND-MEM0RY=0000 
N/A N/A N/A 
N/A N/A rt/A 



DC A2CC ANO-MEMORV«FFFF 

FFFF N/A N/A N/A N/A N/A 

FFFF N/A N/A N/A N/A N/A 

ACCUM NOT EQUAL FFFF 



DC A300 OR-MEMORY » 0000 

0000 N/A N/A N/A N/A N/A AFTER LD+OR 

0000 N/A N/A N/A N/A N/A AFTER EOR 

ACCUM NOT EQUAL 0000 



OC A302 OR-MEMORY* F C FF 

0000 N/A N/A N/A N/A N/A AFTER 

FFFF N/A N/A N/A N/A N/A AFTER 

ACCUM NOT EOUAL FFFF 



OR-MEMORY«FFFF 



DC A 304 

FFFF N/A N/A N/A N/A N/A AFTER 

FFFF N/A N/A N/A N/A N/A AFTER 

ACCUM NOT EQUAL FFFF 



LD ♦ OR 
EOR 



LD+OR 
EOR 



DC A340 RTE 16 

FFFF 0000 N/A N/A N/A 
0000 FFFF N/A N/A N/A 
ACCUM NOT EQUAL 0000 



DC A340 RTE 16 

0000 FFFF N/A N/A N/A 
FFFF 0000 N/A N/A N/A 
ACCUM NOT EQUAL FFFF 



N/A BEFORE RTE 
N/A AFTER RTE 



N/A BEFORE RTE 
N/A AFTER RTE 



DC A380 SRT 32 

8000 N/A N/A N/A N/A N/A 

FFFF FFFF N/A N/A N/A N/A 
ACCUM NOT EQUAL FFFF 



BEFORE SRT 
AFTER SRT 



88404790 

8S404800 

88404810 

8B4 04820 

8B404830 

83404840 

88404850 

8B404860 

8B404870 

88404880 

8B404890 

88404900 

8B404910 

88404920 

8B404930 

8B404940 

88404950 

83404960 

8B404970 

8B404980 

8B404990 

88405000 

8B405010 

88405020 

88405030 

8B405040 

8B405050 

8B405060 

8B405070 

88405080 

8B405090 

8B405100 

38405110 

88405120 

88405130 

8B405140 

88405150 

8B405160 

8B405170 

88405180 

8B405190 

8B405200 

8B405210 

88405220 

8B405230 

88405240 

8B405250 

8B405260 

8B405270 

8B405280 

8B405290 

8B405300 

88405310 

8B405320 

8B405330 

88405340 

8B405350 

8B405360 

8B405370 

8B405380 

88405390 

8B405400 

8B405410 

88405420 

8840 5430 

88405440 

8B405450 

88405460 



OATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 
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AOOR 

OF 

B-REC ROUT 

***»***>***** 

3079 0381 



«»••*»*••*•****•*********** ♦♦♦♦♦♦*♦**************♦********» 
ESS * 



INE • A-REG O-PEG XR-1 XR-2 XR-3 STATUS 

**•**•*#***#******* ***«-* ** ********************************* 

CC A380 SRT 32 + RTE 16 

• 8000 N/A N/A N/A N/A N/A BEFORE SRT 

• TFFF FFFF N/A N/A N/A N/A AFTER SRT+RTE 

• ACCUM NOT EQUAL FFFF-INOICATING REG FAILED 

307A 0396 DC A384 SRT 32 

• 4C00 N/A N/A N/A N/A N/A AFTER LD 
« 0000 0000 N/A N/A N/A N/A AFTER SRT 

• ACCUM NOT EQUAL 0000 



307B 0396 



307C 03A9 



307D 03A9 



307f 0380 



307F 038D 



3080 03DD 



DC A384 SRT 32 ♦ RTE 16 

» 4000 N/A N/A N/A N/A N/A AFTER LD 

* 0000 0000 N/A N/A N/A N/A AFTFR SRT 

* ACCUM NOT EQUAL OOOO-INDICATI NG REG FAILED 



* 



DC A308 SRT 15 

5555 N/A N/A N/A N/A 

0000 AAA* N/A N/A N/A 

ACCUM NOT EQUAL OOuO 



N/A AFTER LO 
N/A AFTER SRT 



DC A388 SRT 15 ♦ RTE 16 

5555 N/A N/A N/A N/A N/A AFTER LO 

0000 AAAA N/A N/A N/A N/A AFTER SRT 15 
AAAA OOO'J N/A N/A N/A N/A AFTER RTE 16 
ACCUM NOT EQUAL AAAA-INDICATI NG Q REG FAILED 



DC 



A38C 



SERIES OF SRTS-30 

♦TOTAL SHIFTS 
5555 N/A N/A N/A N/A N/A AFTER LD 
0000 0001 N/A N/A N/A N/A AFTER SRT'S 
ACCUM NOT EQUAL 0000 






DC A38C SERIES OF SRTS-30 

♦TOTAL SHIFTS ♦ 
♦RTE 16 
5555 N/A N/A N/A N/A N/A AFTER LD 

0000 0001 N/A N/A N/A N/A AFTER SRT'S 

0001 0000 N/A N/A N/A N/A AFTER RTE 16 
ACCUM NOT EQUAL 0001-INDICATING Q REG FAILEO 



DC A3C0 RTE 15 

5555 AAAA N/A N/A N/A N/A AFTER LD«S 

5554 AAAB N/A N/A N/A N/A AFTER RTE 15 

ACCUM NOT EQUAL 5554 - RTE 15 Q TO A FAILEO 



RTE 15 ♦ RTE 16 
N/A N/A N/A AFTER LD'S 
N/A N/A N/A AFTER RTE 15 
N/A N/A N/A AFTER RTE 16 
* ACCUM NUT EQUAL A AAB-INDICATING Q REG FAILED 



3081 


03D0 


DC 


A3C0 






* 5555 AAAA 


N/A 






• 5 554 AAAB 


N/A 






* AAAB 55 54 


N/A 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
*1512W 



04N0V66 
415233 



88405470 

8B405480 

8B405490 

8B405500 

8B405510 

88405520 

8B405530 

8B405540 

8B405550 

8B405560 

88403570 

88405580 

83405590 

8B405600 

8B405610 

8B405620 

8B405630 

8B405640 

8B405650 

8B405660 

8B405670 

8B405680 

8B405690 

86405700 

8B405710 

8B405720 

88405730 

88405740 

8B405750 

88405760 

88405770 

88405780 

8B405790 

88405800 

83405810 

8B405820 

8B405830 

8B405840 

8B405B50 

8B405860 

88405870 

3B405880 

8B405890 

8B405900 

8B405910 

8B405920 

83405930 

8B405940 

6B405950 

8B405960 

8B405970 

8B405980 

8B405990 

8B406000 

8B406010 

8B406020 

8B406030 

83406040 

8B406050 

8B406060 

8B406070 

8B406080 

88406090 

8B406100 

83406110 

8B406120 

8B406130 

8B406140 



PROG 10 
PAGE 



ADDRESS 
OF 
B-REG ROUTINE 

3082 03F4 



************ 

* A-REG 
DC 



* *********************** ***«**»*»*»«»* M *»« > 



3083 03F4 



3084 0419 



3085 0419 



3086 0419 



3087 G43A 



3088 043A 



3089 043A 



308A 045A 



0834-1 
5 



DATE 
EC NO. 



28FEB66 
415120 



* 
* 

* 
* 

* 
* 
* 

* 
* 

* 

* 

* 



0000 
0001 
ACCUM 



Q-REG XR-1 XK-2 XR-3 STATUS 
******* ************************************ 
A3C4 SERIES OF RTES-31 

•TOTAL SHIFTS 
8000 N/A N/A N/A N/A AFTER LO 
0000 N/A N/A N/A N/A AFTER RTE'S 
NOT EQUAL 0001 



DC 



A3C4 



000 
0001 
0000 
ACCUM 



8000 N/A 

00 00 N/A 

0001 N/ 
NOT EQUAL 



DC 
FFFF 

0000 

ACCUM 



A400 
FFFF N/A 
FFFF N/A 
NOT EQUAL 



SERIES OF RTES-31 
♦TOTAL SHIFTS 
♦FOLLOWED BY RTE 16 
N/A N/A N/A AFTER LD 
N/A N/A N/A AFTER RTE'S 
A N/A N/A N/A AFTER RTE 16 
OQO-INDICATING Q REG FAILED 



SLA 16 

N/A N/A N/A AFTER LO 
N/A N/A N/A AFTER SLA 



000 



DC 
FFFF 
0000 
CARRY 



A400 
FFFF N/A 
FFFF N/A 

NOT SET 



* 
* 

* 

* 
* 
* 
* 

* 

* 
* 

* 

* 
* 



DC 
FFFF FFFF 
0000 FFFF 
FFFF 0000 



A400 
N/A 

N/A 
N/A 



SLA 16 
N/A N/A OFF AFTER LD 
N/A N/A C AFTER SLA 



SLA 16 + RTE 16 

N/A N/A N/A AFTER LD 

N/A N/A N/A AFTER SLA 

N/A N/A N/A AFTER RTE 16 



ACCUM NOT EQUAL FFFF-INDICATI NG Q PEG FAILED 



OC A408 SLA 16 

0001 0000 N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



N/A AFTER LD 
N/A AFIERSLA 



OC A408 

0001 0000 N/A 
0000 0000 N/A 
CARRY NOT SET 



CC A408 

0001 0000 N/A 
0000 0000 N/A 
0000 0000 N/A 



SLA 16 
N/A N/A 
N/A N/A 



SLA 16 
N/A N/A 
N/A N/A 
N/A N/A 



AFTER LO 
AFTER SLA 



RTE 16 
N/A AFTER LD 
N/A AFTER SLA 
N/A AFTER RTE 16 



ACCUM NOT EQUAL OOOO-INDICATING Q REG FAILEO 



DC B400 SLA 1 
AAAA 0000 N/A N/A N/A 
5554 0000 N/A N/A N/A 
ACCUM NOT EQUAL 5554 



N/A AFTER LO 
N/A AFTER SLA 



01MAY66 
415120A 



04N0V66 
415233 



3B406150 

8B406160 

8B406170 

8B406180 

8B406190 

8B4 06200 

8B406210 

8B406220 

83406230 

8B406240 

83406250 

88406260 

88406270 

8340626Q 

88406290 

SB406300 

8B4063IQ 

83406320 

8B406330 

8B406340 

88406350 

83406360 

88406370 

88406330 

88406390 

88406400 

88406410 

83406420 

83406430 

88406440 

8B40645Q 

88406460 

3B406470 

8B406480 

88406490 

8B406500 

88406510 

8B406520 

88406530 

8B406540 

8B406550 

88406560 

88406570 

8B406580 

88406590 

8B406600 

SB406610 

8B406620 

8B406630 

8 B4 06640 

3B406650 

88406660 

83406670 

8B40668Q 

38406690 

8B406700 

SB406710 

8B406720 

S34067J0 

83406740 

8B406750 

8B4 06760 

8B406770 

83406780 

8B406790 

8B4Q6800 

8B406B10 

86406820 
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************ 

AODR 

OF 

B-REG RUUT 

************ 

308B 045A 



♦♦ft******************************************************** 

ESS • 

* 
INE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

*********** «!«:«•<« ******* * ******************************** 



30BC 045A 



306D 0478 



308E 0478 



308F 047B 



3090 0497 



3091 0497 



3092 0497 



309 3 O 04C4 



DATE 
EC NO. 



28FEB66 
415120 



DC 
AAAA 
5554 
CAkRY 



B400 
0000 N/A 
0000 N/A 
NOT SET 



SLA 1 
N/A N/A 
N/A N/A 



* 

* 
* 

* 

* 
* 

* 

* 

* 

* 
» 

* 

* 

* 
* 



DC 



AAAA 
5554 
0000 



0000 
0000 
5554 



B400 

N/A 

N/A 
N/A 



RTE 16 
N/A 
N/A 

N/A AFTER RTE 
ACCUM NOT EQUAL OOOO-INDICATI NG REG FAILED 



SLA 1 ♦ 
N/A N/A 
N/A N/A 
N/A N/A 



DC B406 SLA 1 

5555 COOO N/A N/A N/A 
AAAA 0000 N/A N/A N/A 
ACCUM NOT EQUAL AAAA 



DC 
5555 
AAAA 
CARRY 



B406 
0000 N/A 
0000 N/A 
SET-SrtOULO BE 



SLA 1 

N/A N/A 
N/A N/A 
CLEAR 



N/A 
N/A 



C 
OFF 



AFTER LD 
AFTER SCA 



AFTER LD 
AFTER SLA 



OC B406 SLA 1 ♦ 
5555 0000 N/A N/A N/A 
AAAA 0000 N/A N/A N/A 
0000 AAAA N/A N/A N/A 
ACCUM NOT EQUAL 0000- INDICATING 



RTE 16 
N/A AFTER LD 
N/A AFTER SLA 
N/A AFTER RTE 
Q REG FAILEO 



DC B40A SERIES 

♦TOTAL 

0001 0000 N/A N/A N/A 

0000 0000 N/A N/A N/A 

ACCUM NOT EQUAL 0000 



DC 



B40A 



0001 
0000 
CARRY 



0000 

0000 

NOT SET 



N/A 
N/A 



SERIES 

♦TOTAL 

N/A N/A 

N/A N/A 



OF SLAS-16 

SHIFTS 

N/A AFTER 
N/A AFTER 



OF SLAS-16 

SHIFTS 

C AFTER 
C AFTER 



SLA 
SLA'S 



SLA 
SLA'S 



DC 



B40A 



0001 
0000 
0000 



0000 
0000 

00 00 



N/A 
N/A 
N/A 



N/A 

N/A 
N/A 



SERIES OF SLAS-16 
♦TOTAL SHIFTS ♦ 
*RTE 16 



N/A 
N/A 

N/A 



ACC NOT EQUAL OOOO-INDICATING Q 



N/A AFTER 
N/A AFTER 
N/A AFTER 
REG FAILED 



SLA 
SLA' 
RTE 



DC A440 SLT 32 

0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



01MAY66 
415120A 



N/A AFTER LD 
N/A AFTER SLT 




S 
16 



32 



04N0V66 
415233 



8B406830 

8B406840 

8B406850 

8B4 06860 

SB406870 

8B406880 

8B406890 

8B406900 

8B406910 

83406920 

8B406930 

83406940 

8B406950 

8B406960 

88406970 

83406960 

8B406990 

8B407000 

8B407010 

8B407020 

8B407030 

8B407040 

8B407050 

8B407060 

8B407070 

88407080 

8B407090 

8B407100 

8B407110 

8B407120 

8B407130 

8B407140 

884071S0 

8B407160 

BB407170 

88407180 

8B407190 

88407200 

88407210 

8B407220 

8B407230 

88407240 

8B407250 

8B407260 

8B407270 

8B407280 

8B407290 

88407300 

8B407310 

8B407320 

8B407330 

8B407340 

8B407350 

8B407360 

8B407370 

8B407380 

BB407390 

8B407400 

8B407410 

88407420 

8B407430 

8B407440 

8B407450 

8B407460 

8B407470 

8B407480 

8 B4 07490 

8B407500 
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PAGE 



0884- 1 

o 



******* *************************************»***»,,********»:*»*»*»,,$ >t ,:J 


' 9B407510 






ADDRESS 


* 










8B40752Q 






OF 


* 










&B407530 




B-REG 


ROUTINE 


» A-RFC Q-REG XR-l XK-2 XR-3 




STATUS 






86407540 




***************************** *********************************,*,***,,,, 


! 8B407550 




3094 


04C4 


OC A440 SLT 3? 
♦ 0000 0001 N/A N/A N/A 




N/A AFTER 


LD 




88407560 
8B407570 








* 0000 0000 N/A N/A N/A 




C AFTER 


S'T 


32 


8B407580 








* CARRY NOT SET 










8B407590 








• 










8B407600 








* 










8B407610 




309 5 


04C4 


DC A440 SLT 32 
♦ 0000 0001 


♦ 


RTE 16 

AFTER 


LD 




8B407620 

88407630 








♦ 0000 OOOO 




AFTER 


SLT 


32 


8B40J640 








♦ 0000 0000 




AFTER 


RTE 


16 


8B407650 








* ACCUM NOT EQUAL OOOO-INDICATING 


Q REG FAILED 




8B407660 








* 










8B407670 








* 










8B407680 




3096 


C4E1 


DC A444 SLT 16 
* 0000 FFFF N/A N/A N/A 




N/A AFTER 


LD 




8B407690 
8B407700 








♦ FFFF 0000 N/A N/A N/A 




N/A AFTER 


SLT 


16 


8B407710 








♦ ACCUM NOT EQUAL FFFF 










8B407720 








* 










8B407730 








• 










8B407740 




3097 


04E1 


DC A444 SLT 16 
♦ 0000 FFFF N/A N/A N/A 




N/A AFTER 


LD 




8B407750 
8B407760 








♦ FFFF 0000 N/A N/A N/A 




OFF AFTER 


SLT 


16 


8B407770 








♦ CARRY ON SHOULD NCT BE 










8B407780 








* 










8B407790 








* 










8B407800 




309 8 


04E1 


OC A444 SLT 16 
* 0000 FFFF N/A N/A N/A 


+ 


RTE 16 
N/A AFTER 


LD 




83407810 
8B407820 








* FFFF 0000 N/A N/A N/A 




N/A AFTER 


SLT 


16 


88407830 








* 0000 FFFF N/A N/A N/A 




N/A AFTER 


RTE 


16 


8B407840 








* ACCUM NOT EQUAL OOOO-INDICATING 


REG FAILED 




8B407850 








• 










8B407860 








* 










8B407870 




3099 


0500 


DC A44A SLT 15 
♦ 0000 5555 N/A N/A N/A 




N/A AFTER 


LC 




8B407880 
8B407890 








♦ 2AAA 8000 N/A N/A N/A 




N/A AFTER 


SLT 


15 


8B407900 








* ACCUM NOT EQUAL 2 AAA 










8B407910 








* 










8B407920 








* 










8B407930 




309 A 


0500 


DC A44A SLT 15 
♦ 0000 5555 N/A N/A N/A 




N/A AFTER 


LD 




8B407940 
•8B407950 








» 2AAA 8000 N/A N/A N/A 




OrF AFTER 


SLT 


15 


8B407960 






' 


* CARRY SET-SHOULD NOT 3E 










88407970 








* 










8B407980 








• 










8B407990 




309B 


0500 


DC A44A SLT 15 
* 0000 55 55 N/A N/A N/A 


♦ 


RTE 16 

N/A AFTER 


LD 




8B408000 
8B408010 








* 2AAA 8000 N/A N/A N/A 




N/A AFTER 


SLT 


15 


6B408020 








• 6000 2AAA N/A N/A N/A 




N/A AFTER 


RTE 


16 


8B408030 








♦ ACCUM NOT EQUAL 8000-IN01CATI NG 


Q REG FAILED 




8B406040 








♦ 










8B408050 








* 










8B40B060 




309 C 


0520 


OC B440 SERIES 
* »TOTAL 


OF SLTS-32 
SHIFTS 






83408070 

8B408080 








♦ 0000 0001 N/A N/A N/A 




N/A AFTER 


LO 




8B408090 








♦ 0000 0000 N/A N/A N/A 




N/A AFTER 


SLT* 


S 


6B408100 








* ACCUM NOT EQUAL 0000 










8B406110 








* 










8B408120 








• 










8B408130 




309 D 


0520 


OC B440 SERIES 


OF 


: SLTS-32 






8B408140 








* ♦TOTAL 


SHIFTS 






8B408150 








♦ 0000 0001 N/A N/A N/A 




N/A AFTER 


LO 




8B408160 








♦ 0000 0000 N/A N/A N/A 




C AFTER 


SLT* 


S 


8B408170 








♦ CARRY NOT ON 










8B408180 




DATE 


28FEB66 


01MAY66 04N0V66 










PROG ID 


08B4- 1 
6A 


EC NO. 


415120 


41S120A 415233 










PAGE 
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B-REG 
309E 



AOOKtSS 

OF 
KOUf INfc 

0520 



*** ***********»**«»»«»*»****#(,«.****■»******»**»*****»** 



309 F 0549 



aOAO 055S 



3UA1 0566 



30A2 0571 



30A3 0571 



30A4 0571 



30A5 0571 



30 A 6 0596 



A-REG C-REG XR-1 XR-2 XR-3 STATUS 

****************************** t*****************,** 

DC B440 SERIES OF SLTS-32 

♦TOTAL SHIFTS ♦ 
*RTE 16 
0000 0001 N/A N/A N/A N/A AFTER LD 
0000 0000 N/A N/A N/A N/A AFTER SLT'S 
0000 0000 N/A M/A N/A N/A AFTER RT£ 16 
ACCUM NOT EQUAL 0000- I NDICAT I NG Q REG FAILED 



OC A480 STO 

0000 N/A N/A N/A N/A N/A 

STORING 0000 INTO A STORAGE LOCATION 
CONTAINING FFFF DIO NOT RETURN 0000 WHEN 
RELOADED IN THE ACCUM 



DC A482 STO 

FFFF N/A N/A N/A N/A N/A 

STORING FFFF INTO A STORAGE LOCATION 
CONTAINING 0000 DID NOT RETURN FFFF WHEN 
RELOADED IN THE ACCUM 



* 

DC A4C0 STS 

* N/A N/A N/A N/A N/A 

* 0000 N/A N/A N/A N/A 
» STS OF 0000 INTO STORASE LOCATION 

* CONTAINING 0003 DID NOT RETURN 0000 WHEN 

* RELOADED IN THE ACCUM 
• 

« 



OFF BEFORE SIS 
OFF AFTER LO 



DC A4C2 STS 

N/A N/A N/A N/A N/A 

N/A N/A N/A N/A N/A 

STS DID NOT CLEAR CARRY 



C+G AFTER LDS 

OFF ATER STS 



DC A4C2 STS CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL A4C2 
ACC DISTRQYED AFTER STS 



DC A4C2 STS 

N/A N/A N/A M/A N/A 

N/A N/A N/A M/A N/A 

STS DID NOT CLEAR OVERFLOW 



C+0 AFTER LDS 

OFF AFTER STS 

AFTER STS 



* 

* 
* 
« 
* 



DC A4C2 STS 

N/A BEFORE LD 

0003 AFTER LD 

STS OF 0003 INTO A STORAGE LOCATION 
CONTAINING 0000 DID NOT RETURN 0003 WHEN 
RELOADED IN THE ACCUM 



DC A4C8 STS 

N/A N/A N/A N/A N/A C AFTER LDS 

0002 N/A N/A N/A N/A OFF AFTER LD 

STS OF 0002 INTO A STORAGE LOCATION 
CONTAINING 0003 DID NOT RETURN 0002 WHEN 
RELOADED IN THE ACCUM 



88408190 

8B408200 

88408210 

8B408220 

83408230 

8B408240 

8B408250 

8B408260 

8B408270 

88*08260 

8B408290 

8B408300 

88408310 

8B408320 

8B408330 

8B408340 

8B408350 

88408360 

8B408370 

8B40B380 

88408390 

8B408400 

8B408410 

8B408420 

88408430 

8B4Q8440 

88408^50 

8B40 8460 

8B40S470 

6B408480 

8B4084S0 

83408500 

8B408510 

88408520 

8B408530 

88406540 

88408550 

88408560 

88408570 

8B408580 

8B408590 

88408600 

8B408610 

8B408620 

8B408630 

88408640 

8B408650 

8B408660 

8B408670 

88408680 

8B408690 

8 B 40 8700 

8B408710 

8B408720 

8B408730 

88408740 

8B408750 

8B408760 

88408770 

8B408780 

88408790 

8B408800 

8B408810 

8B408820 

88408830 

8B408840 

8B408850 

8B408860 



ADDRESS * 

OF * 

8-REC ROUTINE * A-kEG C-REG XR-1 XR-2 XR-3 STATUS 



30A7 0596 



3UA8 05AC 



30A9 05AC 



30AA 05C8 



30AB 05D3 



30AC 05DE 



30AD 05DE 



30AE 05F5 



30AF 0600 



30B0 0600 



30B1 061D 



30B2 061D 



DC A4C8 STS 

* N/A N/A N/A N/A N/A 

* 0000 N/A N/A N/A N/A 

* STS DID NOT CLEAR CARRY 

* 

OC A4CC STS 

* N/A N/A N/A N/A N/A 

* 0001 N/A N/A N/A N/A 

* STS CF 0U01 INTO A SlORAut LUUAT1CN 

* CONTAINING 0002 DID NOT RETURN 0001 WHEN 

* RELOADED IN THE ACCUM 



C AFTER 
OFF AFTER 



AFTER 
OFF AFTER 



LDS 
STS 



LDS 
STS 



DC A4CC STS 

* H/A N/A N/A N/A N/A 
» 0000 N/A N/A N/A N/A 

* STS DID NOT CLEAR OVERFLOW 
* 

* 

DC A500 BSCO+EZC 

* 8001 N/A H/A M/A N/A C + 

* BSC SKIPPEO-SHOULD NCT HAVE 



DC A502 BSC, -DC* 

* 0000 N/A N/A N/A N/A C + 

* BSC SKIPPED-SHOULC NOT HAVE 



AFTER 

OFF AFTER 



LDS 

LDA 



DC A 5 04 

« 8000 N/A N/A 

* BSC FAILED TO SKIP 

* 



DC 

* 8000 N/A 



A504 
N/A 



BSCO-E 
N/A N/A 



BSCfO 

N/A N/A 



C+0 



* BSC FAILED TO CLEAR OVERFLOW 



* 

DC A508 

* 0001 N/A N/A 

* BSC FAILED TO SKIP 



BSCC+7. 

N/A N/A 



OFF 



DC 
* 8001 N/A 



A50A 
N/A 



BSC + OCE LONG FORM 
N/A N/A C+0 



* BSC DID NOT BRANCH - SHOULD HAVE 

* 
* 

OC A50A BSC+OCE LONG FORM 

* 8001 N/A N/A N/A N/A C+0 

* BSC SKIPP ED-SHOULD BRANCH 
« 

* 

OC A50C 8SC-Z LONG FORM 

* 0004 N/A N/A N/A N/A C+0 

* BSC DID NOT BRANCH - SHOULO HAVE 

* 
* 

DC A50C BSC, -2 LONG FORM 

* 0004 N/A N/A N/A N/A C+0 

* BSC SKIPPED-SHOULD BRANCH 



8H4U8870 

83408880 

83408890 

8B408900 

8B408910 

33408920 

88408930 

83408940 

8B408950 

88408960 

88408970 

6B40e980 

8B408990 

8rt409O<)0 

9B409010 

83409020 

8B409030 

8B409040 

88409050 

8B409060 

86409070 

SB409080 

88409090 

8B409IO0 

8B409110 

8B409120 

8B409130 

8B409140 

83409150 

8B409160 

8B4O9170 

8B409180 

88409190 

88409200 

88409210 

83409220 

89409230 

8B409240 

89<.09250 

83409260 

8B409270 

8B409280 

88409290 

88409300 

SS409310 

33409320 

8B409330 

88409340 

8B409350 

8B409360 

88409370 

BB409380 

8B409390 

8B409400 

8B409410 

83409420 

8B409430 

8B409440 

83409450 

8B409460 

8B409470 

8B409480 

8B409490 

8B409500 

8B409510 

8B409520 

8B409530 

8B409540 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
41S120A 



Q4N0V&6 
4 15233 



PROG ID 
PAGE 



08B4- 1 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



■J4NQV66 
415233 



PROG ID 
PAGE 



08B4-1 
7* 
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************ **** 4***.*** **************** ************ ******************** 

ADDRESS * 

OF * 

B-REG KUUTINfc * A-REG O-REG XR-1 XR-2 XR-3 STATUS 

******** /*»»**#*«»»***»»**»**** ********************************** ****** 



30B3 0631 



30B4 0631 



3QB5 0645 



3066 0645 



30B7 0663 



iUPS 0663 



30B9 U 0663 



30BA 0687 



SORB 0687 



30 8C 069C 



308 D 069C 



DC 



A50E 



BSC + EOCZ LONG 
*FO«M 

8001 N/A N/A N/A N/A C*0 

BSC BRANCHED-SHOULD NOT 



DC 



A50E 



BSC.+EOCZ LONG 
♦ FORM 

8001 N/A N/A N/A N/A C+0 

BSC 5KIPPED-SH0UL0 NOT 



DC B500 BSC* 

0001 N/A N/A N/A N/A C*0 

BSC ON PLUS CLEARED THE OVERFLOW F-F 



DC B500 BSC* 

0001 N/A N/A N/A N/A N/A 

6SC FAILED TO SKIP 



DC 



4540 



BSI.ECO+2 LONG 
♦FORM 
S001 N/A N/A N/A N/A C+0 

BSI DIO NOT BRANCH - SHOULD HAVE 



* 

• 
• 



DC 



A540 



BSI, ECO *Z LONG 
♦ FORM 

S001 N/A N/A N/A N/A C+0 

BSI SKIPPED-SHOULO BRANCH 



DC 



A540 



BSI.ECO+Z LONG 

• »FORM 

• eOCl N/A N/A N/A N/A C+0 AFTER LOS 

• 61.01 N/A N/A N/A N/A C AFTER BSI 

• BSI 01D NOT CLEAR OVERFLOW 



DC A544 BSI.Z- LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

» BSI DID NOT BRANCH - SHOULD HAVE 



DC A544 BSI.Z- LONG FORM 

• 000? N/A N/A N/A N/A N/A 

• BSI SKIPPED-SHOULD BRANCH 



DC A546 BSI, 2 LONG FORM 

OOOO N/A N/A N/A N/A N/A 

BSI oRANCHED-SHOULD NOT 



DC A546 BSI,?_ LONG FORM 

* 0000 N/A N/A N/A N/A N/A 

• BSI SKIPPED-SHOULD NOT U 



88409550 

66409560 

8B409570 

8S409580 

83*09590 

8B409600 

88409610 

86*09620 

83409630 

88409640 

88409650 

8B409660 

88409670 

8B409680 

88409690 

8B40970C 

83409710 

BB409720 

8B409730 

8B409740 

8B409750 

88409760 

8B409770 

BB409780 

8B409790 

8B409800 

8B409810 

8B409820 

8B409830 

83409840 

8B409850 

88409860 

8B409S70 

83409880 

8B409890 

BB409900 

8B409910 

88409920 

8B409930 

8B409940 

88409950 

8B409960 

8B409970 

8B409980 

8B409990 

83410000 

8B410010 

8B410020 

8B410030 

8B410040 

BB410050 

8B410060 

83410070 

8 B4 10080 

8B4 10090 

8B410100 

8B410110 

8B410120 

8B410130 

83410140 

8B4101S0 

8B410160 

8B410170 

8B410180 

8B410190 

8B410200 

8B410210 

8B410220 



*********************** *v****** ************************* »0* ft ********** 
ADDRESS • 

OF ♦ 

B-REG ROUTINE • A-REo Q-HEG XR-1 XR-2 Xk-3 STATUS 

******** at* **************************** ******************************** 

3UBE 06AF DC A548 BSI,- LCNG FORM 

* 8001 N/A N/A N/A N/A N/A 

* BSI SKIPPED-SHOULD NOT 
♦ 

* 

DC A548 BSI,- LONG FORM 

* 8001 N/A N/A N/A N/A N/A 

* BSI BRANCHED-SHOULD NOT 
♦ 

DC A54A BSI.+ LCNG FORM 

* 0002 N/A N/A N/A N/A N/A 

* BSI SKIPPED-SHOULD NOT 
♦ 
* 

DC A54A BSI,* LONG FORM 

* 0002 N/A N/A N/A N/A N/A 

* BSI BKANCHED-SHOUID MOT 
♦ 
♦ 

DC A54C BSI.E LONG FORM 

* 0002 N/A N/A N/A N/A N/A 

* BSI SKIPPEO-SHOULD NOT 
♦ 
* 

OC A54C BSI.E LONG FORM 

* 0002 N/A N/A N/A N/A N/A 

* BSI BRANCHEO-SHOULD MOT 
♦ 

OC A54E BSI,C LONG FORM 

* N/A N/A N/A N/A N/A C 

* BSI SKIPPED-SHOULD NOT 
♦ 
♦ 

DC A54E BSI.C LCNG FCRM 

* N/A N/A N/A N/A N/A C 

* BSI BRANCHED SHOULD NOT 



30BF 06AF 



3OC0 06C1 



30C1 06C1 



30C2 06D3 



30C3 06D3 



30C4 O 06E5 



30C5 06E5 



30C6 06F7 



30C7 06F7 



30C8 070F 



30C9 o 070F 



30CA 0721 



DC A54F BSI.O LONG FORM 

• N/A N/A N/A N/A N/A 

* 6SI SK 1PPE0-SH0UL0 NOT 



DC A54F BSI.O LONG FORM 

» N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 

* 

DC A580 LDD 

• 0000 0000 N/A N/A N/A N/A 

• ACCUM NOT EQUAL 0000 



DC A580 LDD * RTE 16 

♦ OOUO 0000 N/A N/A N/A N/A AFTER LDD 

♦ 0000 0000 N/A N/A N/A N/A AFTER RTE 16 

♦ ACCUM NOT EOUAL 0000-1 NDICATI NG REG FAILED 
♦ 

* 

DC A584 LDD 

♦ FFFF FFFF N/A N/A N/A N/A 

♦ ACCUM NOT EOUAL FFFF 



8B410230 
8B4 10240 
8B410250 
8B410260 
83410270 
8B410280 
8B410290 
8B410300 
83410310 
83410320 
8B410330 
8B410340 
BB410350 
8B410360 
8B410370 
83410380 
8B410390 
8B4l'O40O 
8B410410 
BB410420 
SB410430 
8B410440 
8B410450 
8B410460 
8 84 104 70 
8B410480 
83410490 
8B410500 
8B410510 
8S410520 
8B410530 
8B41C540 
88410550 
8B4 10560 
8B410570 
8B4105B0 
8B410590 
8B410600 
8B410610 
8B4 10620 
8B410630 
8B410640 
8B410650 
89410660 
8B410670 
8B410680 
8B420690 
8B410700 
8B410710 
8B410720 
8B410730 
6B410740 
8B410750 
8B410760 
8B410770 
8B410780 
89410790 
BB410800 
8B410810 
8B410820 
8B410B30 
8B410840 
8B410850 
8B410860 
8B410870 
8B410880 
8B4 10890 
8B410900 



DATE 
EC MJ. 



2CFEB66 
415120 



U1«AV66 
41M20A 



04N0V66 
415233 



PROG ID 
PAGE 



06B4- J 

8 



DATE 
EC NO. 



2HH B66 
415120 



01MAY66 

4151204 



04N0V66 
415233 



PROG ID 
PAGE 



08B4- 1 
8A 
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ADDRESS 
OF 
8-kEC ROUTINE 

3UCB 0721 



30CC 0735 



30CD 0735 



30CE Q74C 



30CF 074C 



3000 0760 



3001 0760 



3002 0779 



3003 0779 



3004 079F 



3007 0748 



30D6 07B1 



• A-Rt-G C-KEG XR-1 Xk-2 KR-3 STATUS 

OC A584 LOD ♦ RTE 16 

» FFFF FFFF N/A N/A N/A N/A AFTER LDD 

« FFFF FFFF N/A N/A N/A N/A AFTER RTF 

• ACCUM N01 EQUAL F FFF- I ND1C AT I NG Q REG FA1LE0 

* 

DC A568 LDD ODD ADORESS 
» 0000 0000 N/A N/A N/A N/A 

• ACCUM NO? fcQJAL 0000 



16 



OC 



A588 



LDD-000 ADDRESS 

* * ♦ RTE 16 

* 0000 0000 N/A N/A N/A N/A AFTF.R LDD 

* 0000 0000 N/A N/A N/A N/A AFTER RTE 
» ACCUM NOT EQUAL 0000- I ND1CAT J NG Q REG FAILED 



DC A5C0 STD 

* 0000 0000 N/A N/A N/A N/A 

* USING STD-4CCUM NOT STORED IN LOCATION EA 



OC A5C0 STD 

• 0000 0000 N/A N/A N/A N/A 

* USING SIO-Q RCG NOT STORED IN LOCATION EA*J 



OC A5C4 STD 

* FFFF FFFF N/A N/A N/A N/A 

* USING STD-ACCUM NCT STORED IN LOCATION EA 



DC ASC4 STD 

» FFFF FFFF N/A N/A N/A N/A 

* USING STD-Q REG NOT STORED IN LOCATION EA*1 



DC A5C8 STD ODD ADRESS 

* 0000 0000 N/A N/A N/A N/A 

* STD USING ODD ADORE SS- ACCUM NOT STORED IN EA 



OC A5C8 STO-ODO ADDRESS 

* 0000 0000 N/A N/A N/A N/A 

* STO USING ODD AODRESS-ACCUM NOT STORED 

* IN EA*1 

• 

DC A600 LDX 1 

* N/A N/A N/A N/A N/A N/A 

* TAG REG BIT 7 WILL NCT SET 



DC A602 LDX 2 

• N/A N/A N/A N/A N/A N/A 

* TAG REG BIT 6 WILL NOT SET 



DC A604 LDX 1 

» N/A N/A 0000 N/A N/A N/A 

* INDEX REu 1 NOT ECUAL 0000 



16 



► 88410910 
88410920 
8B410930 
8B41094Q 
» 8B410950 
8B41096Q 
8B41097Q 
8B410980 
8B41Q990 
8B4110Q0 
88411010 
8B41U02Q 
8B41I030 
88411040 
8B411O50 
88411060 
8B411070 
8B411080 
8B411090 
8B411100 
8B41U10 
8B411120 
8B411J30 
8B411140 
8B411150 
8B4U160 
88411170 
8B411180 
8B411190 
8B411200 
8B4H210 
8B4U220 
BB4H230 
8B411240 
88411250 
8B41126Q 
88411270 
8B411280 
8B411290 
8B411300 
88411310 
88411320 
884H330 
88411340 
8B4U350 
88411360 
8B411370 
8B411380 
88411390 
8B411400 
8B4U41Q 
8B411420 
8B411430 
8841 1440 
8B411450 
8B4U460 
8B411470 
8B411480 
384 11490 
8841 1500 
8B411510 
88411520 
8D411530 
8B411540 
88411550 
8B4U563 
88411570 
8B4U580 



AODK 

OF 

B-REG ROUT 

************ 

30D7 07BD 



ESS * 

* 

INE * A-REG U-REG XR-1 XR-2 XR-3 STATUS 

DC A606 LDX 2 

* N/A N/A N/A 0000 N/A N/A 

* INDEX RCG 2 NOT E UUAL 0000 



30D8 07CA 



30D9 0707 



30DA 07E4 



30DB 07F1 



30DC 07FE 



30D0 080C 



30DE 0820 



30DF 0837 



30E0 0844 



30E1 ©851 



30E2 085E 



30E3 086C 



OC A608 LDX 3 

* N/A N/A N/A N/A 0000 N/A 

* INDEX RfcG 3 NOT ECUAL 0000 
* 

* 

OC A60A LDX 1 

* N/A N/A FFFF N/A N/A N/A 

* INDEX REG 1 NOT E CUAL FFFF 
* 

* 

OC A60C LDX 2 

* N/A N/A N/A FFFF N/A N/A 

* INDEX RfcG 2 NOT E CUAL FFFF 



OC A60E LDX 3 

* N/A N/A N/A N/A FFFF N/A 

* INDEX REG 3 NOT ECUAL FFFF 
* 

» *■ 

DC 8600 LOX 1 LONG FORM 

* N/A N/A 0001 N/A N/A N/A 

* INDEX REG i NUT ECUAL 0001 



DC 8602 LDX 3 INDIRECT 

* N/A N/A N/A N/A FFFF N/A 

* INDEX REG 3 NOT ECUAL FFFF 



DC A640 STK 

* N/A N/A N/A N/A N/A N/A 

* STX WITH NO TAG DID NOT STORE I-C IR CORRECT 



DC A642 STX 1 
f N/A N/A 0000 N/A N/A N/A 
* INDEX REG I WAS NC( STORED BY STX 



DC A644 STX 2 

* N/A N/A N/A 0000 N/A N/A 

* INDEX REG 2 NOT STORED BY STX 

» 

DC A646 SIX 3 

* N/A N/A N/A N/A 0000 N/A 

* INDEX REG 3 NOT STORED BY STX 



DC A648 STX 1 

« N/A N/A FFFF N/A N/A N/A 

* INDEX REG 1 NOI STORED BY STX 

* 

DC A64A STX 2 

* N/A N/A N/A FFFF N/A N/A 

* INDEX REG 2 NOT STORED BY STX 



* 88*11590 
8B411600 
88411610 
8B41 1620 
» 88411630 
88411640 
88411650 
8B411660 
8B411670 
88411680 
8B411690 
BB411700 
8341 1710 
8841 1720 
8B411730 
88411740 
88411750 
8B411760 
8B41 1770 
8B411780 
8B41 1790 
88411800 
8B411B10 
88411820 
8B411830 
8B41 1840 
8B411850 
88411860 
8B411870 
8B41 1880 
8B411890 
88411900 
88411910 
88411920 
864 11930 
88411940 
8B411950 
88411960 
6B411970 
6841 1980 
8B411990 
8B412000 
88412010 
8B41202O 
8B4I2030 
86412040 
8B41205O 
884 12060 
88412070 
88412080 
88412090 
86412100 
884121 10 
88412120 
88412130 
38412140 
88412150 
8B412160 
8B412170 
8B412180 
8B412190 
8B412200 
8B412210 
8B412220 
8B412230 
88412240 
8B412250 
8B412260 
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PROG ID 
PAGE 



08B4- 1 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4- 1 
9A 



IbK MAINTENANCE DIAGNOSTIC PROuRAN FDR TMt 180C SYSTEM 
PROCESSOR-CONTROLLER FUNCTION TEST 



PART NO. 2196471 
PAGE 10 



IBM MAINTFNANCt DIAGNOSTIC PROGRAM fOk IM» 1800 SYSTEM 
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ADDRESS * 

OF * 

B-REC ROUTINE * A-RfG C-RtG XR-I Xk-2 XR-3 STATUS 

»*«»**»»** *«*»»»«»#»*»»»!»!■»*»»«»*•»•»#»»#*»•»•»»»»»«»»*#«*»»» ********** 
• 

OC A64C SIX 3 

* N/A N/A N/A Nl/A FFFF N/A 

* INDEX RtC 3 NOT S10«ED Br STX 
* 



30E4 087A 



30fc5 08EC 



30F6 06EC 



30E7 0901 



30E8 0901 



30E9 0914 



30EA 0914 



30EB 0928 



30EC 0928 



30ED U93C 



30EF 093C 



OC A680 ADO 

» FFFF N/A N/A M/A N/A C AFTER L0»L0S 

* FFFF N/A N/A N/A N/A C AFTER A 

* AOO FFFF ♦ 0000 TLRWEO ON OVFRFLOW 

OC A680 ADD 

* FFFF N/A N/A N/A N/A N/A AFTER 10 

* FFFF N/A N/A N/A M/A N/A AFTfR A 

* ADD FFFF ♦ 0000 FAlLtD TO EQUAL FFFF 



OC A684 AOO 

* FFFF N/A N/A N/A N/A OFF AFTER I DUDS 

* 0000 N/A N/A N/A N/A C AFTER A 

* AOO FFFF ♦ 0001 DID NOT TURN ON CARRY 



OC A684 AOO 

FFFF N/A N/A N/A ti/b N/A AFTER 10*IDS 

0000 N/A N/A N/A N/A N/A AFTER A 

AOD FFFF ♦ 0001 DID WOT EQUAL OOCO 



OC A688 AOO 

FFFF N/A N/A M/A N/A OFF AFTER LD*LDS 

FFFF N/A N/A N/A N/A C AFTER A 

ADD FFFF ♦ FFFF DID NOT TURN ON CARRY 



DC A6B8 ADO 

FFFF N/A N/A N/A N/A N/A AFTER IDUDS 

FFFF N/A N/A N/A N/A N/A AFTER A 

ADD FFFF ♦ FFFF DID NOT EQUAL FFFE 



DC A68C ADO 

4000 N/A N/A N/A N/A OFT AFTER ID 

8000 N/A N/A AFTER A 

AOD 4000 ♦ 4000 DID NOT TURN ON OVERFLOW 



DC 
4 000 N/A 
AOO 4000 + 



DC 
8000 N/A 
0000 N/A 
ADD 8000 ♦ 



A68C AOD 

N/A N/A N/A N/A 
4000 DID NOT EQUAL 8000 



B680 AOO 

N/A N/A N/A 
N/A N/A N/A 
8000 NUT EQUAL 0000 



N/A AFTER LO 
N/A AFTER A 



OC B6B0 ADO 

* 8000 N/A N/A N/A N/A OFF AFTER LD 

* 0000 N/A C*0 AFTER A 

* AOD 8000 + 8000 DID NOT TURN ON OVERFLOW 



88412270 
8B412280 
8B412290 
83412300 
8B412310 
8B412320 
8B412330 
8B412340 
83412350 
88412360 
8B412370 
83412380 
89412390 
83412400 
83412410 
BS4 12420 
83412430 
8B412440 
83412450 
83412460 
884124 70 
81*4)2480 
83412490 
88412500 
8*4125.10 
38412520 
8B412530 
8B412S40 
8**12550 
tSPK!2 , ..*0 
K3412570 
B34125B0 
83*12590 
8B4I2600 
81412610 
884|?b20 

HB«.1?6J0 
83412640 
83412*50 
BB4 12660 
H3412670 
8B412680 
8»4l?6j>0 
84412700 
8B412T10 
88412720 
864 12730 
83412740 
8B412750 
33412760 
88412770 
88412780 
83412790 
8B412800 
88412810 
8B412820 
88412830 
8B412840 
83412850 
8B412860 
8B412870 
8B412B80 
8B412890 
884 12900 
8B412910 
8B4 12920 
88412930 
8B412940 



ADDRESS 
OF 
B-REG ROUTINE 



30EF 093C 



30FO 0964 



30F I 0964 



30F2 097C 



JoFi 097C 



30f4 0994 



30F5 0994 



J0F6 O 09AB 



30F7 09AB 



30F8 09C3 



30F9 09C3 



<»t«liM<<IHI(HM>l|M 



A-KEG fc-«t& XR-1 XK-2 XH-3 STATUS 



DC bftflO ADO 

8000 N/A N/A N/A N/A OFF AFTER LD 

0010 N/A N/A N/A N/A C«0 AFTER A 

ADU 8000 « 8000 DID NOT TURN ON CARRY 



OC A6C0 LDX 1 

N/A N/A FFF4 N/A N/A N/A 

indix ke& i Was not loaded equal FFF4 



DC A/iCO ID 1 

N/A N/A FFF4. N/A N/A N/A 

A ioao IfJSTR IMDEKtO bY INDEX REG 1 
LOADED THE MxQIiC LOCATION 



DC A6C2 LDX 2 

N/A N/A N/A 0004 N/A N/A 

INDEX REG 2 NOT I OADEO EQUAL 0004 



OC A6C2 LO 2 

fl/A N/A N/A 0004 N/A N/A 

A LOAD 1NSIR INDEXED BY INDEX REG 2 
LO&DCD THE WRONG LOCATION 



OL A/.C4 LOX 3 

N/A N/A N/A M/A 0000 N/A 

INOfeX fill, 3 NOT LOADED fcQUAl 0000 



OC A6C4 LO 3 

N/A N/A N/A N/A 0000 N/A 

A ICAi) INS1R INDEXED 8Y INDEX REG 3 

LCaOID The WRONG LOCATION 



OC A6C6 LOX 3 

N/A N/A N/A N/A 0001 

INDEX RfcG 3 NOT EQUAL 0001 



N/A 



OC A*C6 LO 3 LONG FORM 

N/A N/A N/A N/A 0001 N/A 

A LONG FQftM LOAD INDEXED BY INDEX REG 3 

LOADED THE WRONG LOCATION 



DC A6C8 LDX 3 

N/A N/A N/A N/A FFFF 

1N8EX REG 3 NOT EQUAL FFFF 



N/A 



PC A6CB LD 3 INDIRECT 

N/A N/A N/A N/A FFFF N/A 

AN INDIRECT LOAD INDEXEO BY INDEX REG 3 
LOADED THE WRONG LOCATION 



8B412950 
BB412960 
8B412970 
8B4 12980 
3B412990 
83413000 
88413010 
8B413020 
89413030 
8B413040 
8B413050 
BB413060 
8B413070 
8B413080 
83413090 
89413100 
83413110 
8B413120 
8B413130 
8B413140 
8B413150 
83413160 
BB413170 
83413180 
8B413190 
8B413200 
89413210 
8B413220 
33413230 
8B413240 
88413250 
83413260 
8S413270 
8B413280 
8B413290 
8B413300 
8B413310 
8B413320 
8B413330 
8B413340 
3B413350 
89413360 
8B4I3370 
894133P0 
GB413390 
8B413400 
8B413410 
8S413420 
8B413430 
8B413440 
8B413450 
88413460 
8B413470 
BB413480 
8B4 13490 
8B413500 
8B413510 
8B413520 
89413530 
8B413540 
B8413550 
8B413560 
8B413570 
8B413580 
89413590 
8B413600 
8B413610 
8B413620 



DATE 
EC NO. 
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415120 



01FAY66 
415120A 



04N0V66 
415233 



PROG 10 
PAGE 
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10 



CATE 

EC NO. 
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01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



0884-1 
10A 



00000000-0 00 O O O O O COO O O O C O ( 
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IBM MAINTENANCE DIAONUSIIC PkU&KAM FOR THt 1800 SYSTEM 
PKOCESSUR-CONTRCLLEK FUNCTION TEST 



PART NO. 2196471 
PAGE J1A 



•*••*•*****»»«*« 
AuDRESS 
OF 
B-REC ROUTINE 

**************** 

30FA 0A48 



30FB 0A48 



30FC 0A5F 



3uFD 0A5F 



30FT OA76 



30FF 0A76 



«***************************»**********$*»,»»*»»*»«»»*»» 



3100 0A80 



3101 0A8D 



3102 0A8D 



3103 OA68 



* A-RE& 0-KE& Xk-1 XR-2 XR-3 STATUS 
•****•«*•****•****** ******************* ****** ********* 

DC A700 SUB 

* 0000 N/A N/A N/A N/A N/A AFTER LO 

* FFFF N/A N/A N/A N/A N/A AFTER S 

* SUB 0001 FORM 0000 010 NOT EQUAL FFFF 
• 

* 

DC A700 SUB 

* 0000 N/A N/A N/A N/A OFF AFTER LO 

* FFFF N/A N/A N/A N/A C AFTER S 

* SUtS 0001 FRO* 0000 010 NOT SET CARRY 
* 



DC A704 SUB 

0000 N/A N/A N/A N/A N/A AFTER LO 

0001 N/A N/A N/A N/A N/A AFTER S 
SUB FFFF FRO* OJOO DID NOT EQUAL 0001 



DC 

0000 N/A 

0001 N/A 



A 704 

N/A 
N/A 



SUB 
N/A N/A 

N/A N/A 



OFF AFTER LD 
C AFTER S 



SUB FFFF FROM 0000 DID NCT SET CARRY 



DC A708 SUB 

8000 N/A N/A N/A N/A N/A AFTER LO 

7FFF N/A N/A N/A N/A N/A AFTER S 

SUB 0001 FROM 8000 DID NOT EQUAL 7FFF 



DC A708 SUB 

8000 N/A N/A N/A N/A OFF AFTER LD 

0001 N/A N/A N/A N/A C AFTER CARRY 

AND OVERFLOW CONDITION HAD BEEN LOADED INTO 
ACCUMULATOR AS A NUMBER 
SUB 0001 FROM 6000 DID NOT TURN ON OVERFLOW 



DC A70C SUB 

0000 N/A N/A N/A N/A N/A AFTER LD 

8000 N/A N/A N/A N/A N/A AFTER S 

SUB 8000 FROM 0000 DID NOT EQUAL 8000 



DC A70C SUB 

* 0000 N/A N/A N/A N/A OFF AFTER LO 

* eoOO N/A N/A N/A N/A C*0 AFTER S 

* SUB 8000 FROM 0000 DID NOT TURN ON OVERFLOW 



DC A70C SUB 

* 0000 N/A N/A N/A N/A OFF AFTER LD 

* 8000 N/A N/A N/A N/A C *0 AFTER S 

* SUB 8000 FROM 0000 DID NOT TURN ON CARRY 



DC A740 AD-0000 0000 
FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER AD 
ACCUM NOT EQUAL FFFF 



8B413630 
8B413640 
83413650 
8B413660 
' 63413670 
8B 4 13680 
88413690 
8B413700 
8B413710 
83413720 
8B413730 
8B413740 
8B4137S0 
884 13760 
8B413770 
8B413780 
8B413790 
8B413800 
88413810 
8B413820 
8B413830 
8B413840 
8B413850 
8B413860 
8B413870 
8B413880 
8B4 13890 
8B413900 
88413910 
8B413920 
8B413930 
8B413940 
8B413950 
8B413960 
8B413970 
88413980 
8B4 13990 
88414000 
8B414010 
88414020 
8B414030 
8B414040 
8B414050 
8B414060 
8B414070 
88414080 
8B414090 
86414100 
88414110 
8B414120 
8B414130 
8B414140 
88414150 
8B414160 
8B414170 
83414180 
8B414190 
88414200 
88414210 
88414220 
8B414230 
8841*240 
88414250 
BB4 14260 
8B414270 
8B414280 
8B414290 
8B41<-300 



*************** 

ADDRESS 
OF 
B-REG ROUTINE 
*************** 

3104 0AB8 



t*« **************** **************************** 



* 
* 
****** 

« 
* 
* 
* 



3105 0A88 



3106 0AB8 



3107 0AE7 



3108 0AF7 



3109 0AE7 



310A 0AE7 



310B 0B14 



310C 0B14 



310D 0B14 



A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

DC A740 AD-0000 0000 

FFFF FFFF N/A N/A N/A N/A AFTER ADD 

FFFF FFFF N/A N/A ,H/A N/A AFTER RTE 

KEG NOT EQUAL FFFF 



**** 



DC A740 AD-0000 0000 

FFFF FFFF N/A N/A N/A OFF AFTER LOO 

FFFF FFFF N/A N/A N/A OFF AFTER RTE 

OVERFLOW SET SHOULD NUT 8E 



DC A740 AD-0000 0000 

* FFFF FFFF N/A N/A N/A OFF AFTER LDD 

* FFFF FFFF N/A N/A N/A OFF AFTER RTE 

* CARRY SET-SHOULD NOT BE 



DC A746 AD-FFFF FFFF 

* 0000 0001 N/A N/A N/A N/A AFTER LDD 

* 0000 OUOO N/A N/A N/A N/A AFTER AD 

* ACCOM NUT fcOUAL 0000 
* 

* 

DC A746 AD-FFFF FFFF 

* 0000 0001 N/A N/A N/A N/A AFTER LDD 

* 0000 0000 N/A N/A N/A N/A AFTFR AD 

* REG NOT EQUAL 0000 
* 

* 

DC A746 AD-FFFF FFFF 

* 0000 0001 N/A N/A N/A OFF AFTEP LDD 

* OOOO 0000 N/A N/A N/A C AFTER AD 

* OVERFLOW SET-SHOULD NOT BE 
* 

* 



DC A746 AD-FFFF FFFF 

0000 0001 N/A N/A N/A OFF AFTER LDD 

0000 0000 N/A N/A N/A C AFTER AD 

CARRY NOT SET-SHOULD 8E 



DC A74C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A N/A AFTER LDD 

FFFF FFFE N/A N/A N/A N/A AFTER AD 

ACCUM NCT EQUAL FFFF 



DC A74C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A N/A AFTER LCD 

C FFF FFFE N/A N/A N/A N/A AFTER AD 

Q kEG NOT EQUAL FFFE 



DC A74C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A OFF AFTER LDD 

FFFF FFFE N/A N/A N/A C AFTER AD 

OVERFLOW ON-SHOULO NCT BE 



••** 8B414310 
88414320 
83414330 
83414340 
8B414350 
88414360 
8B414370 
8BM4380 
88414390 
88414400 
86414410 
88414420 
8B414430 
88414440 
83414450 
83414460 
88414*70 
8B414480 
88414490 
88414500 
8B414510 
8B414520 
8B414530 
8B414540 
88414550 
8B4 14560 
8B414570 
88414580 
8B414590 
6B414600 
88*14610 
88414620 
83414630 
8B414640 
8B414650 
88414660 
86414670 
8B414680 
8B414690 
83414700 
8B414710 
8B414720 
88414730 
8B4J4740 
8B414750 
88414760 
83414770 
8B414780 
8B4 14790 
8B41480C 
83414810 
68414820 
88414630 
88414840 
8B414850 
83414860 
88414870 
8B414880 
8B414890 
83414900 
83414910 
83414920 
88414930 
88-.14940 
8B4149SC 
8B4 14960 
8B414970 
6B414980 



CAT'. 
EC NU. 



28FEB66 
415120 



01MAV66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 
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11 
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PAGE 
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AODR 

OF 

B-kEG ROUT 

»******»»♦** 

310E 0B14 



*********************************** 
ESS * 

* 
INt « A-REG C-RLG XR-1 Xk-2 

********************* ************** 

DC A74C AD 

FFFF FFFF N/A N/A 

FFFF FFFE N/A N/A 

CARRY NOT ON- SHOULD 6E 



******************** 



310F 0B3E 



3110 0B3F 



3111 0B3E 



3112 0B3E 



3113 0B68 



3114 0B68 



3115 0B8C 



3116 0B8C 



3117 0B8C 



XR-3 STATUS 

******************** 

-FFFF FFFF 
N/A OFF AFTER LDD 
N/A C AFTER AD 



OC B742 AD- 

FFFF 7FFF N/A N/A 

FFFF 7FFE N/A N/A 

ACCUM NOT EQUAL FFFF 



OC 8742 

FFFF 7FFF N/A 

FFFF 7FFE N/A 

Q REG NOT EQUAL 7FFE 



AD- 



N/A 
N/A 



FFFF FFFF 

N/A N/A AFTER LDD 

N/A N/A AFTER AD 



FFFF FFFF 

N/A N/A AFTER LDD 

N/A N/A AFTER AD 



DC B742 AD- 

FFFF 7FFF N/A N/A 
FFFF 7FFE N/A N/A 

OVERFLOW SET-SHOULD NOT B 



FFFF FFFF 

N/A OFF AFTER LDD 

N/A C AFTER AD 



DC B742 AD- 

FFFF 7FFF N/A N/A 

FFFF 7FFE N/A N/A 



CARRY NOT SET-SHOULD BE 



FFFF FFFF 

N/A OFF AFTER LDD 

N/A C AFTER AD 



DC 



B747 



AD-0001 ODD LOC 



0000 0001 N/A N/A N/A N/A AFTER LDD 

0001 0002 N/A N/A N/A N/A AFTER AD 
ACCUM NOT EQUAL 0001 



DC B747 

0000 0001 N/A N/A 

0001 0002 N/A N/A 
Q REG NOT EQUAL 0002 



AD-0001 ODD LOC 



N/A 
N/A 



N/A AFTER LCD 
N/A AFTER AD 



DC A780 

0000 0000 N/A N/A 
FFFF FFFF N/A N/A 

ACCUM NOT EUUAL FFFF 



SD-0000 0001 

N/A N/A AFTER LDD 
N/A N/A AFTER SO 



DC A780 

0000 0000 N/A N/A 
FFFF FFFF N// N/A 
Q REG NOT EQUAL FFFF 



SD-OOOC 0001 

N/A N/A AFTER LDD 
N/A N/A AFTER SD 



DC A780 SD- 

0000 0000 N/A N/A 

FFFF FFFF N/A N/A 

OVERFLOW ON- SHOULD NOT BE 



0000 0001 

N/A OFF AFTER LDD 

N/A C AFTER SD 



**»* 8B414990 
8B415000 
8B415010 
88415020 
**** 88415030 
8B415040 
8B415050 
8B4 15060 
8B415070 
8B415080 
8B415090 
8B415100 
8B415110 
8B415120 
8B415130 
88415140 
8B415150 
8B4 15160 
88415170 
8B415180 
8B415190 
8B4 15200 
8B415210 
8B41S220 
8B415230 
884 15240 
8B415250 
8B4 15260 
8B415270 
8B415280 
8B415290 
8B415300 
8B4J5310 
8B415320 
6B415330 
8B415340 
88415350 
88415360 
83415370 
89415380 
88415390 
8B415400 
8B415410 
88*15420 
88415430 
8B415440 
8B415450 
88415460 
8B415470 
88415480 
88415490 
8B415500 
8B415510 
88415520 
8B415530 
8B415540 
8B415550 
8B4 15560 
8B415570 
80415580 
8B415590 
8B415600 
8B415610 
8B415620 
8B415630 
8B415640 
6B415650 
8B415660 



******* ********* t 

ADDRESS 
OF 

B-REG ROUTINE 

**************** < 

3118 o oaac 



3119 0BB6 



311A 0BB6 



311B 06CB 



311C OBCB 



31 ID OBDF 



******************* **** ******** ** ******* *********** 



31 IE OBDF 



311F 0CO1 



3120 0C01 



3121 0C16 



A-REG Q-REG XR-1 Xk-2 XR-3 STATUS 
*************************************** v ^^ 

DC A780 SD-0000 0001 

0000 0000 N/A M/A N/A OFF AFTER 

FFFF FFFF N/A N/A N/A C AFTER 

CARRY NOT ON-SHOULO BE 



******** 

LDD 

SD 



OC A786 SO-FFFF FFFF 

0000 0000 N/A N/A N/A N/A AFTER 

0000 0001 N/A N/A N/A N/A AFTER 

ACCUM NOT EQUAL TC 0000 



DC A786 SD-FFFF FFFF 

0000 0000 N/A N/A N/A N/A AFTER 

0000 0001 N/A N/A N/A N/A AFTfcR 
Q REG NOT EQUAL 0001 



DC A78A SD-FFFF FFFF 

0000 COOO N/A N/A N/A N/A AFTER 

OOOO C001 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0000 



DC A78A SD-FFFF FFFF 

0000 COOO N/A N/A N/A N/A AFTER 
0000 C001 N/A N/A N/A N/A AFTER 

Q kEG NOT EQUAL C001 



DC A78E SD-FFFF ODD LOC 

0000 0000 N/A N/A N/A N/A AFTER 

0000 0001 N/A N/A N/A N/A AFTER 

ACCUM NOT EQUAL 0000 



DC A78E SD-FFFF ODO LOC 

0000 0000 N/A N/A N/A N/A AFTER 
0000 0001 N/A N/A N/A N/A AFTER 

Q REG NOT EQUAL 0001 



OC A7C0 MULT-2AAA 

5555 N/A N/A N/A N/A N/A AFTER 

0E38 9C72 N/A M/A N/A N/A AFTER 
ACCUM NOT EQUAL 0E38 



DC A7C0 MULT-2AAA 

5555 N/A N/A N/A N/A N/A AFTER 

0E38 9C72 N/A N"/A N/A N/A AFTER 
Q REG NOT EQUAL 9C72 



DC A7C4 MULT-FFFF 

FFFF N/A N/A N/A N/A N/A AFTER 

0000 0001 N/A N/A N/A N/A AFTER 
ACCUM NOT FOUAL 0000 



LDD 

SD 



LDD 

SD 



LDD 
SD 



LDD 
SD 



LDD 
SD 



LDD 
SD 



ID 
M 



LD 

M 



LD 

M 



8B41567Q 

8B415680 

8B415690 

8B415700 

8B415710' 

8B415720 

83415730 

88415740 

8B415750 

8B415760 

8B415770 

8B415780 

8B415790 

8B4 15800 

8B415610 

8B415820 

83415830 

88415640 

8B415850 

8B415B60 

8B415870 

83415880 

88415690 

8B 4 15900 

8B415910 

8BM5920 

8B415930 

884 15940 

8B415950 

8B4 15960 

8B4159->0 

8B4 15980 

8B4 15990 

8B416000 

8B416010 

8B416020 

8B416030 

8B4 16040 

8B416050 

8B4 16060 

8B416070 

8B416080 

8B4 16090 

8B41MO0 

88416110 

8B416120 

88416130 

SB416140 

8B416150 

8B416160 

8B416170 

88416180 

88416190 

8B4 16200 

88416210 

8D416220 

8B416230 

8B416240 

8B416250 

8B4 16260 

8B416270 

8B416280 

8B416290 

8P4 163C0 

89416310 

8B416320 

83416330 

88416340 



CATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4-1 
12 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4- I 
12A 
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»»»■»*»♦*»»*« 

AODk 

OF 

B-RfcG KOUT 

3122 0C16 



3123 0C2A 



3124 UC2A 



ESS • 

IM • A-HIG U-Rffc XR-1 Xh-2 XR-3 STATUS 

OC A7C. MULT-FFFF 

» Tffr N/A N/A 'I/A N/A N/A AFTER 1:0 

• OUOO 0U01 N/A N/A N/A N/A AFTER M 

• w Rt& NJt COuAl 0001 
• 

» 

DC ATCB MULT-FFFF 

• 0000 N/A N/A N/A N/A N/A AFTER 1,0 

• OOUO OUOO N/A N/A N/A N/A AFTER M 

• ACCUM NUT tOUAL 0000 
• 
e 

DC A7C8 KAJIT-FFFF 

• <K)00 N/A N/A N/A N/A N/A AFTER 10 

• OOUO OOUO N/A N/A N/A N/A AFTER M 

• C ktv, KG! ECUAl 0000 



3125 0C30 



3126 0C3D 



3127 0C5B 



3128 0C58 



3129 0C58 



312A QCS8 



3128 UC87 



DC A7CC HUlT-OOOO 

» FFFF N/A N/A N/A N/A N/A AFTER 10 

» 0000 0000 N/A N/A N/A N/A AFTErf M 

» ACCUM NOT EQUAL OUOO 



DC A7CC MUi.T-0000 

FFFF N/A N/A N/A N/A N/A AFTER 10 

OOUO UOOO N/A N/A N/A h'A AFTER * 

U REG NOT EQUAL 0000 



OC A800 0V0-8000 

4UU0 7FFF N/A N/A N/A N/A AFTER LOO 

8000 7FFF N/A N/A f</A N/A AFTER 

ACCUM NOT EQUAL 8000 



DC A800 ovo-eooo 

4000 7FFF N/A N/A N/A N/A AFTER t CO 

8000 7FFF N/A N/A N/A N/A AFTER 

REG NOT EQUAL 7FFF 



* 

* 

* 

« 

* 

* 

* 
* 



DC A800 OVD-80QO 

4000 7FFF N/A N/A N/A OFF AFTER LOO 

8000 7FFF N/A N/A N/A N/A AFTER 

OVERFLOW ON-SHOULO NUT BE 



DC A800 OVO-8000 

4000 7FFF N/A N/A N/A OFF AFTER LOD 
8000 7FFF N/A N/A N/A N/A AFTER 

CARRY ON- SHOULD NOT BE 



DC A806 DVD-S55S 

1C71 BBE3 N/A N/A N/A N/A AFTER LOD 
5555 2DAA N/A N/A N/A N/A AFTER D 
ACCUM NOT EOUAL 5555 



**** 8B416350 

88416360 
884)6370 
88416380 
**** 88416390 
88416400 
88416410 
8B4 16420 
88416430 
8B4I6440 
88416450 
8B416460 
88416470 
88416480 
88416490 
8B4165Q0 
8B416SJ0 
88416520 
8B41653Q 
83416540 
88416550 
8841&560 
88416570 
88416560 
88416590 
8B416600 
88416610 
88416620 
88416630 
88416640 
88416650 
86*16660 
8B4l6"670 
88416680 
89416690 
83416700 
88416710 
884)6720 
684)6730 
88426740 
89416750 
89416760 
88416770 
88416780 
88416790 
89416600 
884)6810 
88416820 
88*16830 
88416840 
88416650 
884)6660 
884)6870 
884)6880 
88416890 
83416900 
884)69)0 
88416920 
8B416930 
884)6940 
89416950 
8B416960 
8B416970 
88416980 
88416990 
8B4 17000 
88417010 
8B417020 



AOORESS 
OF 
B-REG ROUTINE 

312C 0C87 



3120 0C87 



312E 0C87 



312F 0CB2 



3130 0C8D 



313 1 0CC8 



3132 0CD3 



3133 OCOE 



3134 0CE9 



3135 006A 



* 

» A-REG O-KEG Xk-1 Xk-2 XR-3 STATUS 

*******»«*»»***»»«««»»»*« •»•»•»»»•»•»«••♦*»•»»»*»* 

DC A806 DVO-5555 

* 1C71 B8E3 AJ/A N/A N/A 
» 5555 2DAA N/A N/A N/A 

* REG NOT EOUAL 2DAA 
* 
» 

DC A806 OVO-5555 

* 1C71 8BE3 N/A N/A N/A 

* 5555 20AA N/A N/A N/A 

* OVERFLOW ON-SHOULO NOT BE 



**» 8B4 
894 



N/A AFIfH 10D 
N/A AFtER C 



oFF AFTER LOO 
N/A AFTER 



OC A806 OVD-5555 

» 1C71 B8E3 N/A N/A N/A OFF 

* 5555 20AA N/A N/A N/A N/A 

* CARRY CN- SHOULD NGT BE 



DC A80C DVD-0000 

0000 0001 N/A N/A N/A OFF 

N/A N/A N/A N/A N/A C 

OVERFLOW NOT ON-ShOJLO BE 



OC A80E OVD-OOOl 

4000 0000 N/A N/A N/A OFF 

N/A N/A N/A N/A N/A 

OVERFLOW NOT ON-SHOULD BE 



DC B800 DVD-4000 

* AOOO 0000 N/A N/A N/A OFF 

* N/A N/A N/A N/A N/A 

* OVERFLOW NOT ON-ShUULO BE 



DC 8802 DVD-8000 

* COOO 0000 N/A N/A N/A OFF 

* N/A N/A N/A N/A N/A 

* OVERFLOW OFF — SHOULD BE ON 

* 

DC B804 DVD-OOOl 

* 0000 FFFF N/A N/A N/A OFF 

* N/A N/A N/A N/A N/A 

* OVERFLOW 0FF--SHCUL0 BE ON 
* 

* 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



LOO 

D 



LDD 
D 



LOD 
D 



LDD 

D 



DC B806 DVD-OOOl 

FTFF 7FFF N/A N/A N/A OFF 

N/A N/A N/A N/A N/A C 

OVERFLOW OFF — SHOULD BE ON 



UC A840 MDX 1 

N/4 N/A 0000 N/A N/A N/A 

N/A N/A FFFF N/A N/A N/A 

INDEX REG 1 NOT E CUAL FFFF WHEN MODI 
BY MINUS 1 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



LDD 
D 



LDO 
D 



LDD 

D 



AFTER 
AFTER 
FIED 



LDX 

MDX 1 



3136 0078 



DC 



A842 



* ADD +1 TO MEMORY FAILED 



MDX LONG FORM 



894 
834 
*** 8B4 
8B4 
894 
bd4 
8B4 
8B4 
8B4 
894 
884 
834 
86<> 
8B4 
8B4 
8B4 
894 
8B4 
8B4 
8B4 
894 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
834 
884 
8B4 
884 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
894 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
834 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
8B4 
BB4 



17030 

17040 

17050 

17060 

17070 

17080 

17090 

17100 

17110 

17120 

17130 

17140 

17150 

17160 

17170 

17180 

17190 

17200 

17210 

17220 

17230 

17240 

17250 

17260 

17270 

17280 

17290 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

17450 

17460 

17470 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

1762 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 



CATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4-I 
13 



CATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4-1 
13A 
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******* « e •• « 

ALJK 

' ,)f 

B-Klfc M,UJ 



3137 JOHO 



******************* 
ISS • 

IM • A-RFG Q-R 

******************* 

DC 

• N/A N/ 

• N/A N/ 

• iW>l X RTG 

• 1U INDEX 



******************** ******************** 



3138 1/09C 



3139 0DA6 



31 3A ouao 



3139 ©0E4 



31 SC ODE 4 



4130 OtOB 



313E OfoB 



3I3F U OF33 



1140 OE33 



EG XR-1 XR-2 XR-3 STATUS 

******************** mt **************** 



A844 MDX 2 LONG FORM 

A N/A FFFE N/A N/A AFTER LDX 

A N/A FFFF N/A N/A AFTER MOX 2 

2 NUT EOUAL TO FFFF AFTER MOX *l 
REG 2 



OC A846 MOX 3 

N/A N/A N/A N/A FFFF N/A AFTER LOX 

N/A N/A N/A N/A OOOO N/A AFTER MDX 2 

MOX JIO HOI CAUSE A SKIP WHEN INDEX REG 3 
»IM 10 0000 



OC A848 MOX 1 

N/A N/A FFFF N/A N/A N/A AFTER LDX 

N/A N/A 0003 N/A N/A N/A AFTER MOX X 

-ll* DID NUT CAUSE A SKIP WHEN THE SIGN 
CmANoIO TN INDEX REG 1 



OC A«<,q ftox 1 INDIRECT 

N/A N/A FFFE N/A N/A N/A AFTER LOX 

N '* V* FFF* N/A N/A N/A AFTER LDX II 

INHlKfCT MDX L-f INDEX REG 1 BY ♦! FAILED 



JC A880 SLCA-XR 1 

1000 N/A 0010 N/A N/A N/A AFTER LOX 

0000 N/A OOUO W/A N/A N/A AFTER SLCA 

ACtuM NUT ISuAL 0000 



OC AS 80 SLCA-XR 1 

OOOO N/A 0010 N/A N/A N/A AFTER LOX 

I'OOO N/A OOUO N/A N/A N/A AFTER SLAC 

INOEX MC, 1 NOT IwUAl 0000 



OC A 88* SLCA-XR 

0001 N/A FPDO N/A N/A 

"000 N/A FTC I N/A N/A 

ACLUM NOT 10UAL 8000 



N/A AFTER LOX 
N/A AFTER ASCL 



OC Aftfi4 SLCA-XR 1 

0001 N/A FTOC N/A N/A N/A AFTER LDX 

8000 N/A FFCI N/A N/A N/A AFTER LOX 

INDlx RLU 1 NOT FOUAl ffCI 



DC A888 SLCA-XR 

8000 N/A 0010 N/A N/A 

8000 N/A 0010 N/A N/A 

ACCUM NUT IOUAL 8000 



N/A AFTER LOX 
N/A AFTER SLCA 



DC A888 SLCA-XR 1 

8000 N/A O010 N/A N/A N/A AFTER LOX 

8000 N/A 0010 N/A N/A N/A AFTER SLCA 

INDEX REG 1 NOT EQUAL 0010 



83417710 

8B417720 

8B417730 

8B417740 

8B417750 

8B417760 

8B417770 

884 17780 

8B417790 

8B417800 

8B417810 

8B417820 

8B417830 

8B<tl7840 

88417850 

88417860 

8B417870 

8B417880 

8B417890 

8B417900 

8B417910 

8B417920 

8B417930 

8B4 17940 

8B417950 

8B4 17960 

8B417970 

88417980 

8B417990 

884 18000 

88418010 

8B418020 

884 18030 

88418040 

8B4180S0 

884 18060 

8B418070 

8B418060 

88418090 

88418100 

83428110 

88418120 

86418130 

88418140 

88*18150 

88418160 

88418170 

88418180 

88418190 

88418200 

88418210 

63418220 

88418230 

88418240 

88418250 

83418260 

88418270 

88418280 

884I82V0 

88418300 

83418310 

88418320 

8B4183J0 

8B418340 

88418350 

88418360 

88418370 

88418380 



litatl)lllMttt)(tt«l 




ADDRTSS 


• 




OF 


• 


6-«tG 


KUJT INI 


* 


********************* 






• 


3141 


01 6E 


* 
• 



'I************************************** ********** 



A-kEG O-KtG XR-1 Xk-2 XR-3 STATUS 
*************************************************+ 



3142 O 016E 



314 3 0E6E 



3144 0E8D 



J145 O OfcflO 



3146 C 0E80 



314 7 OEAF 



3148 OEAF 



3149 OEAF 



314A OECF 



D( A88C SLC-XR 

0000 0000 0020 N/A N/A 

OOUO 0000 0000 N/A N/A 
ACCUM NOT EQUAL 0000 



N/A AFTER LOX 
N/A AFTER SLC 



DC A88C SLC-XR 1 

OCOO 0000 0020 N/A N/A N/A AFTER LDX 

0000 0000 0000 N/A N/A N/A AFTER SLC 

REl» NUT EQUAL 0000 



DC A88C SLC-XR 

0000 0000 002 N/A N/A 

0000 OOOO 0000 N/A N/A 

INDEX RtO 1 NOT EQUAL OOOO 



OC B882 SLC-XR 

OOOO 0002 FFDF N/A N/A 

ROOO OOOO FFCI N/A N/A 

ACCUM NOT EQUAL fiOOO 



N/A AFTER LDX 
N/A AFTER SLC 



N/A AFTER LDX 
N/A AFTER SLC 



DC B882 SLC-XR 1 

OOOO 0002 FFDF N/A N/A N/A AFTER LDX 
8000 OOOO FFCI N/A N/A N/A AFTER SLC 

REG NuT EQUAL OOOO 



DC B882 SLC-XR 1 

OOOO 0002 FFDF N/A N/A N/A AFTER LDX 

8000 OOOO FFCI N/A N/A N/A AFTER SIC 

INDEX REG 1 NOT EQUAL FFCi 



* 
» 
» 

* 
* 

* 
* 



DC B884 SLC-XR 

OOOO 0002 001 F N/A N/A 

8 000 OOOO 0001 N/A N/A 

A SLC TERMINATED CY A CNF BIT 
ZERO D10 NOT TURN ON CARRY 



N/A AFTER LDD+LDX 
C AFTER SLC 
IN ACCUM BIT 



DC B884 SLC-XR 1 

OOOO 0002 001 F N/A N/A N/A AFTER LCD+LDX 

8000 OOOO 0001 N/A N/A C AFTER SLC 

ACCUM WAS NOT EQUAL TO 8000 



DC 8884 SLC-XR 1 

OOOO 0002 001 F N/A N/A V/A AFTER LDD+LDX 
BOOO 0002 0001 N/A N/A C AFT'R SLC 
A SLC TERMINATED BY A CNE IN ACCUM BIT 
ZERO DID NOT LEAVE XR 1 EQUAL 0001 



DC B885 SLC-1X 1 

OOOO 0002 001C N/A N/A N/A AFTE1 LDD+LDX 

2000 OOOO OOOO N/A N/A OFF AFTER SLC 

A SLC TERMINATED BY XR 1 GC1NG TO ZERO LEFT 
THE CARRY FF SET 



88418390 

88418400 

884 184 10 

8B41S420 

8841 G430 

88418440 

8B418<.50 

8B4I8460 

8B418«70 

6B4 18480 

88418490 

88418500 

8B418510 

8B418520 

8B4185JD 

8341B540 

8B418S50 

8B418560 

88416570 

8B418580 

8B4 18590 

83418600 

8B418610 

8B418620 

8B418630 

8B418640 

88418650 

88418660 

8B418670 

8B4 18680 

8841 8690 

98*18700 

8B4&18710 

8B418720 

8B418730 

8B418740 

8B418750 

8B418760 

8B418770 

8B418780 

8B418790 

8B418800 

8B418810 

8B418820 

884186 30 

88418840 

88418850 

8841 6860 

8B41B870 

8B418680 

83418890 

8B418900 

8B418910 

BB41B920 

8B418930 

8B416940 

8B4I8950 

8B4 18960 

8B418970 

88418980 

88416990 

8B419000 

8B419010 

834 19020 

8B4190 30 

8B419040 

884 190 SO 

88419060 



DATE 
EC NO. 



28FI 366 
415120 



01MAY66 
415I2UA 



04NQV66 
415233 



PROG ID 
PAGE 



0884- I 
14* 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PA&t 



086*-! 
I4A 



ooooooooooooooocoooocoooooooooococ 



O.OCOOCOCCCCCOOC 

w 



ccccc coococccocooc 
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************ 




ADQR 




OF 


8-kEG 


KOUT 


************ 



*******»************************».»***#**,(.**********»****$*$ 
ESS » 

* 

1NE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

*************************** t«*<*t««t«*»«>ttt«t» ************ 



314B OEEC 



314C OEEC 



314D .0F07 



314E 0F11 



314F 0F1B 



3150 0F25 



3151 0F2F 



3152 0F3A 



3153 0F3A 



315* 0F3A 



3155 0F54 



3156 0F5D 



DC B8A0 CMP A GREATER M 

* 4000 N/A N/A N/A N/A N/A 
« A GREATER THAN M CMP FAILED 

DC B8A0 CMP A GREATER M 

* 4000 N/A N/A N/A N/A N/A AFTER 

* 4000 N/A N/A N/A N/A N/A AFTER 
» ACC DISTKOYED AFTER CMP 



DC B8A1 CMP A LESS M 

* 0000 N/A N/A N/A N/A N/A 

* ACC LESS THAN M FAILS 



DC B8A2 CMP A LESS M 

* 0000 N/A N/A N/A N/A N/A 
» ACC LESS THAN M FAILS 

* 

DC B8A3 CMP A LESS M 

» 0000 N/A N/A N/A N/A N/A 

* ACC LESS THAN M FAILS 

* 

DC B8A4 CMP A LESS M 

* 8000 N/A N/A N/A N/A N/A 

* ACC LESS THAN N FAILS 

• 

DC B8A5 CMP A EQ M 

» lOuO N/A N/A N/A N/A N/A 

* ACC EO M FAILED 

DC B8C0 DCM AQ GTR M.M+1 

» 8000 0001 N/A N/A N/A N/A 

* DCM AO GREATER THAN M, M+l FAILED 



DC B8C0 DCM AO GTR M, M+l 

• 8 000 0001 N/A N/A M/A N/A 

• ACC DISTKOYED AFTER DCM 

DC B8C0 DCM AO GTR M.M+1 

• flOOO 0001 N/A N/A N/A N/A 

• J REG OISTROYED AFTER DCM 



DC B8C1 DCM AQ LESS M.M+1 

• 0000 8000 N/A N/A N/A N/A 

• DCM FAILED WHEN A .0 LESS THAN M, M+l 



DC B8C2 DCM AO EO M.M+1 

• 0000 8000 N/A N/A N/A N/A 

• DCM FAILED WHEN A ,Q EO M, M+l 



LD 
CMP 



8B419070 

8B419080 

8B4 19090 

8B419100 

88419U0 

8B419120 

8B419130 

8B419140 

88419150 

8B419160 

8B419170 

88419180 

8B419190 

8B419200 

8B419210 

8B419220 

8B4I9230 

8B419240 

8B419250 

8B419260 

8B419270 

8B419280 

8B419290 

8B419300 

8B419310 

8B419320 

8B419330 

8B419340 

88419350 

8B419360 

6B419370 

8B4I9380 

8B419390 

88419400 

8B419410 

88419420 

88419430 

88419440 

8B419450 

88419460 

8B419470 

88419480 

8B419490 

8B419500 

88419510 

88419520 

88419530 

88419540 

8B4 19550 

SB419560 

8B419570 

8B419580 

8B419590 

8843 9600 

88419610 

864 19620 

8B419630 

88419640 

88419650 

8B419660 

88419670 

8B419680 

88419690 

8B419700 

88419710 

8B419720 

8B419730 

88419740 



•**«*** 



B-REG 
******* 
3157 



***** 

ADDR 

OF 

ROUT 

***** 
0R8F 



*********** ***********************************»* t »*»m* tst 
ESS » 

* 
INE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

*************************** *************** A ******** ******** 



3158 088F 



3159 08A7 



315A 08A7 



3158 08BF 



315C 08BF 



3150 09EC 



315E 09F8 



315F 0A04 



DC 
N/A 
N/A 
INDEX 



A6MJ 
N/A 0000 
N/A FFFF 
2 CHANGEO 



1 



DC 
N/A 
N/A 
INDEX 



A660 
N/A 0000 
N/A FFFF 
3 CHANGED 



DC 
N/A 
N/A 
INDEX 



DC 
N/A 

N/A 
INDEX 



DC 
N/A 
N/A 

INDEX 



A662 
N/A 0000 
N/A 0000 
1 CHANGED 



A662 
M/A 0000 
N/A OOUO 
3 CHANGED 



A664 
N/A 0000 
N/A 0000 
1 CHANGED 



DC 
N/A 
N/A 

INDEX 



A664 
N/A OOUO 
N/A 0000 
2 CHANGED 



LDX 1 - 
0000 0000 
OOUO OCOO 



LDX 1 - 
0000 0000 
0000 0000 



LDX 2 -1 
0000 0000 
FFFF 0000 



LDX 2 -1 
0000 0000 
FFFF 0000 



LDX 3 -1 
0000 0000 
0000 FFFF 



LDX 3 -1 

0000 0000 
0000 FFFF 



N/A 
N/A 



N/A 
N/A 



N/A 
N/A 



N/A 
N/A 



AFTER 
AFTER 



AFTER 

AFTER 



AFTER 
AFTER 



LDX'S 
LDX 1 



LDX'S 
LDX 1 



LDX'S 

LDX 2 



AFTER 

AFTER 



N/A 
N/A 



AFTER 
AFTER 



N/A AFTER 

N/A AFTER 



LDX'S 
LDX 2 



LDX'S 
LOX 3 



LDX'S 

LDX 3 



DC 



A6D0 



INDEXED INST F=0 
INITIALLY XR 1 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULO HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C0 
SHORT FORM INDEXED INST FAILED (X=l) 



DC A6D2 INDEXED INST F=0 

INITIALLY XR 2 HAS CGRE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC t ABEL N6C2 
SHORT FORM INDEXEO INST FAILED - X = 2J 



DC A6D3 INDEXED INST F=0 

INITIALLY XR 3 HAS CORE LOCATION UF 

SYMBOLIC LABEL K6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C 1 
SHORT FORM INDEXED INST. FAILED (X=3) 



6B419750 

83419760 

88419770 

8B419780 

8B419790 

8B4 19e00 

BB419810 

S3419820 

85419830 

88419840 

88419850 

884 19860 

eB419870 

884-19880 

8B419690 

8B41990C 

83419910 

8B419920 

83419930 

8B419940 

8B419950 

8B419960 

83419970 

8B419980 

8B419990 

8B420000 

8B420010 

88420020 

8B420030 

8B420040 

8B420050 

83420060 

83420070 

8B420O80 

8B420090 

8B420100 

8B42O110 

8B420120 

88420130 

88420140 

8B420150 

88420160 

8B420170 

8B420180 

8B420190 

8B420200 

8B420210 

88420220 

8B420230 

8B420240 

SB420250 

8B420260 

83420270 

8B420280 

83420290 

8B420300 

8B420310 

83420320 

8B420330 

8B420340 

88420350 

88420360 

8B420370 

83420380 

88420390 

8B420400 

8B420410 

8B420420 



DATF 
EC NO. 



2Hff 866 
415120 



01MAY66 
415120A 



04NOV6G 
415233 



PROG 10 
PAGE 



08B4-1 
15 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04NOV66 
415233 



PROG ID 
PAGE 



08B4- 



111 
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************ 

ADDK 

OF 

B-RfcG ROUI 

************ 
************ 
3160 0DE4 



ESS * 

INE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

**• **** ************ *********»***********»»**»**»* # i, 
****»*****«# ** ********************************* **** 



******** 



3161 OEOB 



3162 0E50 



3163 U OAlU 



3164 0A1C 



316S 0A28 



3166 0A39 



3167 0820 



3168 ODBO 



3169 0809 



OC A880 

0000 FFFF OOOA 
0000 FFFF 0000 
CARRY ON SHOULO 



SLCA CK CARRY 
N/A N/A C AFTER 

N/A N/A OFF AFTER 
BE OFF 



*»*****# 
******** 

LDD+LDS 
STS 



OC 
0001 OUlO 
8 000 0010 
CARRY OFF, 



DC 

0001 N/A 

0002 N/A 
SLCA T=0 



A884 SLCA CK CARRY 

FFDO N/A N/A OFF AFTER 

FF01 N/A N/A C AFTER 

SHOULD BE JN 



A889 NON INCEXED SLCA 

0010 0010 0010 N/A AFTER 

N/A N/A N/A N/A AFTER 
FAILED 



OC 

0001 N/A 
0004 N/A 
INDEXED SLA 



A6D5 
0002 
N/A 
FAILED 



INDEXEO SLA 
N/A N/A N/A AFTER 
N/A N/A N/A AFTER 



DC 
0004 N/A 
0001 N/A 
INDEXEO SRA 



A6D6 INCEXED SRA 

N/A 0002 N/A N/A AFTER 
N/A N/A N/A N/A AFTER 
FAILED 



LDD+LDX 
SLCA 



LD 
SLCA 



LD+LDX 
SLA 



LDX+LD 
SRA 



DC A6F0 INDEXED BSC 
INITIALLY ACC HAS COKE LOCATION OF 

SYMBOLIC LABEL N6F1 
ACC D1STR0YED AFTER INCEXED BSC 



OC A6F1 INDIR, INDEX BSC 

N/A N/A 0001 N/A M/A N/A AFTER 

N/A N/A N/A N/A N/A N/A AFTER 

INDIRECT, INDEXEO BSC FAILED 



DC A640 STX CK ACC 
INITIALLY ACC HAS COkE LOCATION OF 

SYMBOLIC- LABEL H640 
ACC D1ST-<0YED AFTER STX 



DC A849 MOX CK ACC 

INITIALLY ACC HAS COSE LOCATION OF 

SYMBOLIC LABEL H849 
ACC DISTROYED AFTER MDX 



DC A670 ACC DECDOE 

0001 N/A 0010 N/A N/A N/A 

0000 M/A 0000 N/A N/A N/A 

FALSE OECOOE OF ACC BE 7ER0 
* EACH BIT POSITION IS TESTED 



LDX 
BSC 



8B420430 

8B420440 

8B420450 

88420460 

8B420470 

83420480 

88420490 

8B420S00 

8B420510 

88420520 

83420530 

8B420540 

BB4205S0 

8B420S60 

BB420570 

88420580 

8B420590 

8B420600 

8B420610 

8B420620 

8B420630 

8B420640 

8B420650 

8B420660 

8B420670 

6B420680 

8B420690 

8B420700 

8B420710 

8B420720 

88420730 

88*20740 

8B4207S0 

PB42C760 

8B420770 

8B420780 

8B420790 

8S4208C0 

8B420810 

8B420820 

88420830 

8B420840 

8B420850 

8B420860 

8B420870 

8B420880 

8B420890 

8B420900 

8B420910 

8B420920 

864 20930 

8B420940 

8B420950 

8B420960 

8B420970 

8B420980 

8B420990 

8B421000 

8B421010 

8B421020 

8B421030 

8B421040 

83121050 

8B121060 

88421070 

8B421080 

8B421090 

8B4211O0 



t»tSH»tl»«>*t<»t(»t*»»l*t««*(t«**t«i»» ******************************** 

ADDRESS * 

OF * 

b-REC ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 

************************************************ *****************#,,»*$,> 



316A 0018 



316B 0D23 



316C OD26 



31 60 0D3A 



316E 0D3A 



316F 0078 



3170 0600 



3171 00C6 



3172 ODOO 



3173 0E60 



3174 0F83 



DC BS07 

* 6100 0000 N/A 

* N/A N/A N/A 

* OVFLO NOT on 
• 

* 

OC B808 

* 8 000 0000 N/A 

* N/A N/A N/A 

* OVFLO NOT ON 



DVD OVFLO 
N/A N/A OFF AFTER LDD 
N/A N/A C AFTER D 



DVD OVFLO 
N/A N/A OFF AFTER LDD 
N/A N/A AFTER D 



DC B809 

» FFFF FFFF N/A 

* N/A N/A N/A 

» OVFLD ON, SHOULO BE OFF 

* 



DVO NO OVFLO 
N/A N/A OFF AFTER LDD 
N/A N/A OFF AFTER D 



OC B810 MPY-DIV ZEPO REM 

* ACC WRONG AFTER MPY-DIV TEST 
* 

* 

DC B810 MPY-TIV ZERO REM 

* Q KEG hRONG AFTER MPY-DIV TEST 
* 

* 

DC A842 MDX CK ACC 

* INITIALLY ACC HAS COkE LOCATION OF 

* SYMBOLIC LABEL N844 

* ACC DISTROYED AFTER ADD TO MEKCRY 
* 



DC A50A BSC CK ACC 

8001 N/A N/A N/A N/A N/A AFTER LD 

8001 N/A N/A N/A N/A N/A AFTER BSC 

ACC OISTROYEO AFTER BSC CONDITIONS MET 



DC A84A 

MEMORY LOC HAS ZERO 
MDX FAILED TO SKIP 



MDX MEM CK SKIP 



DC A85A MDX MEM CK NO SKP 
MEMORY LOC IS NON ZERO 
MOX SKIPEJ, SHOULD NOT HAVE 



*A 

* 
* 
* 
* 
* 



DC A88A 
0000 FFFF 0010 
7FFF N/A N/A 

CCUM NOT EO TO 7FFF 



DC 



FOOO 



SW IS NO INDEX 
0010 0010 NAF1ER LDX'S 
N/A N/A NAFTER SLC 



IMPROPER CONTROL 
OPERATION SPECIFIED, 
BIT SW 14 6N WITHOUT 
BIT Sk 8 Ok 12 ON. 
CORRECT SWS AND PUSH 
START TO CONTINUE 



8B421110 
86421120 
8B421130 

8B421140 
8B421150 
88421160 
8B421170 
8B42U80 
8B421190 
SB421200 
8B421210 
8B421220 
, 8B421230 
8B4212<0 
8B421250 
8B421260 
8B421270 
88421280 
8B421290 
BB42130Q 
8B421310 
88421320 
8B421339 
BB421340 
8B421350 
8B471360 
88421370 
8B421360 
8B421390 
83421400 
8B421410 
8B421420 
88421430 
8B421440 
8B421450 
83421460 
8S421470 
83421460 
83421490 
83421500 
8B421510 
8B421520 
8B421530 
83421540 
834^1550 
88421560 
8B421570 
88421580 
83421590 
83421600 
33421610 
86421620 
8B421630 
8B421640 
8B421650 
8B421660 
8B421670 
83421600 
83421690 
8*421700 
83421710 
83421720 
83421730 
8P421740 
A3421750 
fc a 421 7 60 
BB421770 
8B421780 



DATE 

EC NO. 



28FFB66 
415120 



01MAY66 
416120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4- 1 
16 



DATE 
EC NO. 



20FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PkOG ID 
PAUfc 



08B4- 1 
16A 



oooooooooocooococooooooooo oooco O O < 



c c 
I 
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*»*»»«»»»,4»»». »*»*«.»»»•»•••*♦«•»««*»» ******** 88421790 

***,»»»»»»»•»»»•»«»»»«**»»»•»»»»**•**»»•»♦**» 8B421800 

3175 ORG 300 8B4218iO 

012C B400 OC /&400 PID 8B421820 

a 8B421830 
«,»»»**»♦♦»*»•••••»•••••»••»•*••••••»•»»••♦*♦*»•♦** 8B421840 

* 8B421850 
» 8000 N/A N/A N/A N/A AFTER A 8B421860 
» 0000 N/A N/A N/A N/A C*OAFTfcR A 86421870 

* TEST HO* OPEkAHLN 8B421880 

* 8B421890 
***«*»*****»»•**#***•»*»»»•»»»« »»».*»;>****.»•* 8B4219O0 

»»**»***.»**********»****»**»*******»»«»•»•*»*•••»•»••*♦»•»»»*♦**»»***** 8B421910 

CORE DATA OR »LA- OPER- 8B421920 
ADDK INSTRUCTION *8EL ATILN FT OPFRANDS ♦ REMARKS 10»SEC« AT RIGHT 88421930 
«**»*»**«»**»**«**»»**********»**♦*♦»•»•»*•♦•*•»•***•••»•••»«*•♦♦»**** 8B421940 

0120 3000 XOOO OC /3000 SET SWITCHES TO RUN 8B4219S0 

012E 7001 A080 MDX G080 8B42»960 

012F 3U04 OC /3004 ERR ID ♦ ERR WAIT 8B421970 

* MDX BY 1 FAILED 8B*219eO 

0130 700? G080 MDX G081 8B421990 

0131 3005 DC /3005 ERR 10 * ERR WAIT 88422000 

» MDH BY 2 FAUED 8B422010 

0132 3006 DC /3006 ERR 10 ♦ ERR WAIT 8B422020 

* MDX BY 2 FAKED 8B422030 

01 33 7004 G081 MDX G082 8B422040 

0134 3007 DC /3Q07 ERR ID * ERR WAIT 8B422050 

* MOX BY 4 FAILED 8B422060 

0135 3008 OC /3008 ERR ID * ERR WAIT 88422070 

* MDX BY 4 FAILED S8422080 

0136 3009 DC /3009 ERR ID * EkH WAIT 88422090 

* MDX BY 4 FAILED 86422100 

0137 300A DC /300A ERR 10 * EAR WAIT 88422110 

* MDX BY 4 FAILED 8B422120 

0138 700? G082 MDX 6084 8842213Q 

0139 300B DC /30GB ERR ID ♦ ERR WAIT 83422140 

«■ MDX BY 2 FAILED 88422150 

013A 7004 G083 MDX AOCO EXIT TO NEXT ROUTINE 88422160 

013B 70FE G084 MDX G083 88422170 

013L 300C DC /300C ERR ID * ERR WAIT 88422180 

» MDX BY -2 FAILED 98422190 

013D 300D DC /300D ERR ID * ERR WAIT 89422200 

* MDX BY -2 FAILED 88422210 
013E 300E DC /300E ERR ID ♦ ERR WAST 8B422220 

* MDX BY -2 FAILED 8B422230 
« 88422240 

* TEST CF BSC SKIP WHEN IT 88422250 

* SHOULO NOT 88422260 
» 88422270 
************•*»*••***••••*•••»•••••••»•»»••*• 8B422280 

01 3F 2003 AOCO LES 3 SET C AND OF ON 38422290 

0140 4802 SSC C SK IF CARRY IS OF^ 88422300 

0141 7002 MOX GOCi 88422310 

0142 30QF DC /300V ERR ID ♦ ERR WAIT 88422120 

» BSC-CARRY FAILED 89422330 

0143 0000 NIOO DC 88422340 

0144 4801 GOCI BSC 88422350 

0145 7001 MDX G0C2 8B422360 

0146 3010 OC /3010 ERR 10 ♦ ERR WAIT 8B422370 

» aSC-CVERFLOW FAILED 88422380 

0147 4801 G0C2 BSC CK IF OF WAS RESET 8B422390 

0148 3011 OC /iOll ERR ID ♦ ERR WAIT 8B4224QO 

* OSC-CVFLW SKPD-SfcOULD 8B4224I0 
» »NOT HAVE 88422420 

0149 2000 LDS RESET CARRY TO OFF 88422*30 
014A 4802 BSC C SK IF CARRY IS OFF 88422440 
0148 3012 DC /3012 ERR ID ♦ ERR WAIT 8B422450 

* BSC-C DID NOT SKIP 8B422460 



11S1 OF ACC AHllITY TO HOLD 
ALL 7EK0S 



CORE 
ADDR 



014C 

014D 
014E 

014F 
0150 
G151 

0152 

0153 



DATA OR 



•LA- GPIR- 



1NSTRUCTIGN *riri ATIDN FT OPERANDS ♦ RCAkKS I ij ♦ S £ C = AT RIGHT 



C0F6 
4820 

3013 

C0F3 
4820 
3014 

4804 
3015 



A100 



0154 





C04A 


0155 





4bl0 


015 6 





3016 


015 7 





48CB 


0158 





7001 


0159 


e 


301? 


015A 





4804 


015B 





7001 


Oi&t 





1013 


0150 





180! 


015E 


u 


4 304 


015F 


C 


700! 


0160 


3 


3019 


0161 


o 


1801 


0162 


e 


4804 


U163 


a 


TOOl 


0164 





JQlft 


0163 


e 


1801 


0166 





4X04 


0167 





7001 


0168 


a 


3018 


0169 





1801 


016A 





4804 


0168 





7001 


C16C 


« 


oooo 


0I6D 





1801 


0I6E 





4 804 


016F 


3 


7001 


0170 





3010 


0171 





1801 


0172 





4804 


0173 





7001 


0174 





301E 



A140 



0175 1801 



5J 

0140 



,141 



9 

01*2 



GI43 



&144 



G145 



G146 



* 
G147 



LO 

BSC 
SJC 

LO 

asc 

DC 

BSC 

OC 



ID 

asc 

DC 



BSC 

MDX 

DC 

BSC 

Max 
DC 

SPA 

<*sc 

Ml»X 

OC 

SRA 
BSC 
MDX 
DC 

SRA 
BSC 
MOX 
OC 

SRA 
BSC 

MDX 

OC 

S8A 
BSC 

MDX 
OC 

SRA 
BSC 
MDX 
DC 

SRA 



N10U LO /GOOO 

SK IF ZERO 

301 3 ! ><k ID ♦ ERR NAIT 

ID ACC 10 FAILED 

100 ACC'O, R> LuAQ TO 

SK IF JtRO 

3014 tRR ID ♦ ERR WAIT 
ID ACC TC FAILED 
SK IF EVEN 

3015 ERR ID ♦ ERR WAIT 
BSC ON EVEN FAUED 

CONTAIN ALL LNES 



NI4& 
/ 30 1 6 



CI 40 
/3017 

f 

G141 

/301J- 

I 
I 
G14? 

/301V 

I 
I 

r.i«.3 

/301A 

1 
E 

G144 
/3018 

! 
E 

G145 

/301C 
1 

E 

G146 

/301D 

1 
E 
G147 

/301E 

1 



ACC. =0, RELOAD TO ONES 
SK IF MINUS 
FRK JD * ERR WAIT 
LOAD ACC. FAILED OR 
•BSC ON NEG. FAILED 



EPS ID ♦ ERR WAIT 
3SC ON ♦ SKPO- 
•SHCULD NOT HAVE 

ERR ID ♦ ERR WAIT 
BSC CN E SKPD- 
* SHOULO NOT HAVE 



ERR ID ♦ ERR WAIT 
ACC NOT = 7FFF 



ERR ID ♦ ERR WAIT 
ACC NOT = 3FFF 



ERR ID + ERR WAIT 
ACC NOT = 1FFF 



ERR ID •> ERR WAIT 
ACC NOT ■ OFFF 



ERR ID + ERR WAIT 
ACC NOT = 07FF 



ERR ID + ERR WAIT 
ACC NOT ■ 03FF 



8B422470 
8Bt224eO 
8B422490 
8B422500 
8B422510 
3B422520 
88422530 
8B422540 
88422550 
8B422560 
8B422570 
8B422580 
8B422590 
BB422600 
88-«22610 
8B422620 
8B422630 
8B422640 
8B422650 
8B422660 
83422670 
BB422680 
8B422690 
8B422700 
8B422710 
83422720 
86^22730 
8B422740 
8B422750 
B8422760 
8B422770 
8B422780 
8B422790 
8B42280Q 
88422810 
88422820 
83422830 
8B422840 
BB422850 
8B422860 
88422870 
8B422880 
88422890 
88422900 
8B422910 
B8422920 
8B422930 
8B422940 
8B422950 
88422960 
8B422970 
8B422980 
88422990 
8B423000 
8B423010 
8B423020 
SB423030 
88423040 
8B423050 
88423060 
86423070 
8B423080 
8B423090 
8B423100 
8B423U0 
88423120 
88423130 
8B423140 



DATE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
PROCESSOR-CONTROLLER FUNCTION TEST 



- PART NO. 
PAG* 



2196471 
18A 



0176 


4804 




BSC 


E 




0)77 


7001 




MDX 


G148 




0176 


301F 




DC 


/301F 


ERR ID ♦ ERR WAIT 


0179 


1801 


• 
G148 


SRA 


1 


ACC NOT = 01FF 


017A 


4804 




BSC 


E 




017B 


7001 




MDX 


G149 




017C 


3020 




DC 


/302Q 


ERR ID ♦ ERR WAIT 


0170 


1801 


* 

G149 


SRA 


1 


ACC NOT * OOFF 


017E 


4804 




BSC 


6 




0I7F 


7001 




MDX 


G14A 




0180 


3021 




DC 


/3021 


ERR ID ♦ ERR WAIT 


0181 


lbOl 


• 
G14A 


SRA 


1 


ACC NOT = 007F 


0182 


4804 




BSC 


e 




0163 


7001 




MD> 


G14B 




0184 


3022 




DC 


/3022 


ERP ID + ERR WAIT 


0185 


1601 


* 
G14B 


SRA 


1 


ACC NOT • 003F 


0186 


4804 




BSC 


F 




0187 


7001 




MOX 


G14C 




0186 


i023 




DC 


/3023 


ERR 10 ♦ ERR WAIT 


0189 


1801 


• 
G14C 


SRA 


1 


ACC NOT « 001F 


018A 


4 804 




BSC 


E 




018B 


7001 




MDX 


G140 




018C 


3024 




DC 


/3024 


ERR 10 ♦ ERR WAIT 


018D 


1601 


&140 


SRA 


1 


ACC NOT « OOOF 


016E 


4604 




BSC 


E 




018F 


7001 




MDX 


G14E 




0190 


3025 




DC 


/3025 


ERR ID ♦ ERR WAIT 


0191 


1601 


M4E 


SRA 


1 


ACC NOT « 0007 


0192 


4804 




BSC 


E 




C193 


7001 




MDX 


G14F 




0194 


3026 




DC 


/3026 


ERR ID ♦ ERR WAIT 


0195 


1301 


• 
G14F 


s«u 


1 


ACC NOT ■ 0003 


0196 


4804 




BSC 


E 




0197 


7001 




MOX 


G150 




0196 


3027 




DC 


/3027 


ERR ID ♦ ERR WAIT 


0199 


1801 


* 
6150 


SRA 


1 


ACC NOT ■ 0001 


019A 


4 804 




BSC 


E 




019B 


3028 




oc 


/3028 


ERR ID ♦ ERR WAIT 


C19C 


4820 


• 


BSC 


Z 


ACC NOT ■ 0000 


0190 


3029 




DC 


/3029 


ERR ID + ERR WAIT 


019E 
019F 


7001 
FFFF 


* 

N140 

* 


MDX 
DC 


AlBO 
/FFFF 


ACC NOT « 0000 

EXIT TC NEXT ROUTINE 



* TEST LDING OF ONES ON ONES 

CORE DATA OR *LA- OPER- 

f«!L*.J N f TRUCTI0Nl * B£L AT,0N FT OPERANDS ♦ REMARKS IO*SEO= AT RIGHT 



OlAO 
01A1 
0U2 

01A3 

01 A4 
01A5 



DATE 
tC NU. 



CU49 
482C 
4810 

302A 

C045 
4B2C 



A180 



LD 

BSC 

BSC 



LD 

esc 



N180 

♦ EZ 

/302A 

N160 

♦ EZ 



LO /FFFF 

SK CN k ,EVEN OR ZERO 

SK IF MINUS 

ERR 10 ♦ ERR WAIT 

ACC NOT * FFFF 

LD /FFFF 



28FEB66 
415120 



OI*AYo6 
415120A 



04N0V66 
415233 



8B423150 

8B423160 

8B423170 

8B423180 

83423190 

8B423200 

8B423210 

8B423220 

8B423230 

8B423240 

88423250 

8B423260 

8B423270 

8B423280 

8B423290 

8B423300 

8B423310 

8B423320 

8B423330 

8B423340 

8B423350 

8B423360 

8B423370 

8B423380 

8B423390 

8B423400 

8B423410 

8B423420 

8B423430 

6B423440 

8B423450 

88423460 

8B423470 

8B423480 

88423490 

8B423500 

8B423510 

8B423520 

8B423530 

8B423540 

8B423550 

8B423560 

88423570 

8842 3580 

8B423590 

88423600 

8B423610 

8B423620 

8B4 23630 

8B423640 

88423650 

8B423660 

8B423670 

8B423c>80 

8B423690 

8B423700 

8B423710 

8B423720 

8B423730 

8B423740 

8B42 3750 

8B423760 

8B423770 

8B423780 

8B423790 

8B423800 

8B423810 

SB423820 



PROG ID 
PAGE 



0884- 1 
16 



01A6 4810 




BSC 


_ 




01A7 302B 




OC 


/102B 


ERR ID ♦ ERR WAIT , 


01A8 1801 


* 


SRA 


1 


ACC NOT « TFFF 
SHIM «l(>nT CNE 


01A9 4804 


• 


BSC 


TEST 
E 


ABILITY L» ACC TO SHIFT 


01AA 7001 




MDX 


Giai 




01 A B 302C 




DC 


/302C 


ERR ID ♦ £kk WAIT 


01AC 1801 


# 
G181 


SRA 


1 


ACC NJT = 7FFF 


01AD 4804 




BSC 


E 




01AE 7001 




MDX 


G182 




01AF 302D 




DC 


/302D 


ERR ID ♦ ERR WAIT 


01B0 1801 


G182 


SRA 


1 


ACC NOT = 3FFF 


01 Bl 4804 




BSC 


E 




01 B2 7001 




MDX 


G1B3 




01B3 C 30ZE 




DC 


/302E 


ERR ID ♦ ERR WAIT 


01B4 1801 


* 
G183 


SRA 


1 


ACC NOT « 1FFF 


01B5 4804 




BSC 


E 




01B6 7001 




MDX 


G184 




01 67 302F 




DC 


/302F 


ERR ID ♦ ERR WAIT 


01B8 1801 


* 
G184 


SRA 


1 


ACC NOT = OFFF 


01 B9 4804 




BSC 


E 




01BA 7001 




MDX 


G185 




01BB 3030 




DC 


/3030 


ERR ID ♦ ERR WAIT 


01 BC 1801 


* 
G185 


SRA 


1 


ACC NOT « 07FF 


01 BD 4804 




BSC 


E 




01BE 7001 




MDX 


G166 




OIBF 3031 




DC 


/3031 


ERR ID ♦ ERR WAIT 


01C0 1801 


* 
G166 


SRA 


1 


ACC NOT = 03FF 


01C1 4804 




BSC 


E 




01C2 7001 




MDX 


G187 




01C3 3032 




DC 


/3032 


ERR ID ♦ ERR WAIT 


01C4 1801 


* 
G187 


SRA 


1 


ACC NOT ■ 01FF 


01C5 4804 




BSC 


E 




01C6 7001 




MDX 


G188 




01C7 3033 




Dt 


/3033 


ERR ID ♦ ERR WAIT 


01C8 1801 


G188 


SRA 


1 


ACC NOT «= OOFF 


01C9 4804 




BSC 


E 




01CA 7001 




MDX 


G189 




01CB 3034 




DC 


/3034 


ERR ID + ERR WAIT 


01CC 1801 


* 

G189 


SRA 


1 


ACC NOT * 007F 


01 CO 4804 




BSC 


E 




01CE 7001 




MDX 


G18A 




01CF 3035 




DC 


/3035 


ERR ID ♦ ERR WAIT 


01D0 1801 


* 

G18A 


SRA 


1 


ACC NOT * 00 3F 


01D1 4804 




BSC 


E 




01D2 7001 




MDX 


G18B 




01D3 3036 




DC 


/3036 


ERR ID ♦ ERR WAIT 


01D4 1801 


G18B 


SRA 


1 


ACC NOT « 00 IF 


01 D5 4604 




BSC 


E 




01D6 700i 




MDX 


G18C 




01D7 3037 




DC 


/3037 


ERR ID + ERR WAIT 


01D8 1801 


Giec 


SRA 


1 


ACC NOT «= OOOF 


01D9 4804 




BSC 


E 




01 DA 7001 




MDX 


G18D 




01DB 3038 




DC 


/3038 


ERR ID ♦ EPR WAIT 


DATE 28FEB66 


01MAY66 04N0V66 




EC NO. 415120 


415120A 415233 





8B423830 

8B423840 

8B423850 

8B423860 

8B423870 

8B423880 

8B423890 

8B423900 

8B423910 

8B42 3920 

BB423930 

8B423940 

8S«»23950 

8B423960 

884-23970 

8B423980 

8B423990 

8B424000 

88424010 

8B424020 

8B424030 

8B424040 

8B424050 

8B424060 

88424070 

8B424080 

8B424090 

8B424100 

88424110 

8B424120 

86424130 

8B424140 

8B424150 

8B424160 

8B424170 

8B424180 

8B424190 

8B424200 

8B424210 

8B424220 

88424230 

8B424240 

8B424250 

83424260 

8B424270 

8B424280 

8B424290 

8B424300 

8B424310 

8B424320 

83424330 

88424340 

8B424350 

8B42'<360 

8B424370 

88424380 

88424390 

8B424400 

8B424410 

8B424420 

8B424430 

8B424440 

8B424450 

88424460 

8B424470 

8B424480 

8B424490 

8B424500 
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01DC 

0100 
010E 
01DF 









160 1 
4804 
7001 
3039 


01E0 
01E1 
01E2 
01EJ 











1801 
4804 
7001 

303A 


01E4 
01ES 
01E6 








1801 

4804 

303d 


01E7 
01E8 






4820 
30iC 


01E9 
01EA 







7001 

FFFF 



»**•»** 
CORE 

ADDS 

*****•« 

OlEh 
01EC 
01E0 



01 EE 
OlfcF 
01F0 
OIF 1 

01F2 
01F3 

OlF'V 



******** 
DATA OR 
INSTRUC 

******** 

CC07 
4 820 
303D 

COOS 
482C 

4810 
30 3 E 

7002 

01)00 
FFFF 



* 
ss**** 

T ION * 
****** 

A 



ACC NOT • 0007 



ERR ID * ERR WAIT 
ACC NOT a 0003 



ERR 10 + ERR WAIT 
ACC NOT « 0001 



ERR 10 ♦ ERR WAIT 
ACC NOT = 0000 

ERR ID * ERR WAIT 

ACC HOI - 0000 

EXIT TO NEXT ROUTINE 



TEST ABILITY TO LOAD ZEROS 
CN TOP OF ZEROS AND ONES ON 
TOP OF ZEROS 

»******************************<•********♦**** 

********** ******** ************ ************-******** 

LA- OPER- 

e£L AT10N FT OPERANDS + REMARKS ID*SEQ= AT RIGHT 

********.**********•*******•*•************•»•****** 



* 






G180 


SR*. 


1 




BSC 


E 




MDX 


GIBE 




DC 


/3039 


si 






GIBE 


SRA 


1 




asc 


E 




MDX 


G18F 




DC 


/303A 


»■ 






G18F 


SRA 


I 




BSC 


E 




oc 


73038 


t 








BSC 


Z 




DC 


/303C 


* 








MDX 


A1C0 


N180 


DC 


/FFFF 



ICO 



ICO 
1C1 



LD 

BSC 
DC 

LD 
BSC 
8SC 
DC 

MDX 
DC 

DC 



N1C0 

Z 
/3030 

N1C1 

*EZ 

/303E 

A1D0 

/oooo 

/FFFF 



LD /OOOO 
SK CN ZERO 

ERR SD + ERR WAIT 
ACC NOT * ZERO 

LO /FFFF 

SK ON MINUS 

ERR ID * ERR WAIT 

ACC NOT « FFFF 

EXIT TC NEXT ROUTINE 



TEST EOR OPERATION 



************************ 



01F5 

01F6 
01F7 








C01C 
4 820 

303F 


oir-8 

01F9 

Q1FA 



5 



F0X9 

4820 
3040 


01F8 

01FC 
01FD 
OlFE 








C015 
F014 
4820 
3041 


01FF 
02C0 

0201 
0202 









F011 
482C 
4810 
3042 


0203 
0204 
020S 
0206 









iflOl 
FOOE 
4820 
3043 


OATE 
EC NO. 


unit 6 



AIDO LO 
BSC 
DC 

» 

EOR 
BSC 
DC 

* 

LD 
EOR 
BSC 
DC 

« 

EOR 
BSC 
BSC 
DC 

* 

SRA 
EOR 
BSC 
DC 



NIDI 

Z 

/303F 

NIDI 

I 

/304O 

N1D0 
N1D0 
I 
/3041 

N100 
♦ EZ 

/3042 

1 

N102 
Z 
/3043 



a********************* 
LD /OOOO 
SK ON ZERO 
ERR ID ♦ ERR WAIT 
ACC NOT « ZERO 
ZERO WITH /OOOO 
SK UN ZERO 
ERR ID * ERR WAIT 
EOR OF AM) FAILED 
LD /FFFF 
ZERO WITH /FFFF 

ERR 10 ♦ ERR WAIT 
EOR OF 1 AND 1 FAILED 



ERR ID ♦ ERR WAIT 
FOR OF 1 AND FAILED 



ERR 10 * ERR WAIT 



01MAV66 
415120A 



04N0V66 
415233 



88424510 
8B424520 

8B424530 
8B424540 
BB4245S0 
8B42456Q 
88424570 
8B424580 
88424590 
8B424600 
88424610 
88424620 
88424630 
8B424640 
8B424650 
8B424660 
88424670 
8B424680 
8B424690 
88424700 
88424710 
88424720 
86424730 
88424740 
8B424750 
88424760 
8B424770 
88424780 
8B4247O0 
88424800 
88424810 
88424820 
8B424830 
8S424840 
88424850 
8S424S60 
88424870 
8B42488G 
86424890 
§8424900 
88424910 
88424920 
8B424930 
88424940 
8B424950 
88424960 
8B424970 
8b424980 
88424990 
88425000 
8B425010 
8B425020 
8B42503O 
88425040 
8B425050 
8B425060 
8B425070 
8B425080 
88425090 
8B425100 
884251<0 
8B425120 
8B425130 
88425140 
8B425150 
8B425160 
88425170 
88425180 



PROG ID 
PAGE 



0207 





C009 


0208 





FOO? 


0209 





482C 


020A 





4810 


020 B 





3044 


020C 





1801 


020 D 





F005 


020E 





4 820 


C20F 





3045 


0210 





7003 


0211 





FFFF 


0212 





OOOO 


0213 





?FFF 





LD 


N1D0 




EOR 


N101 




BSC 


+ EZ 




BSC 


- 




DC 


/3044 


* 








SRA 


1 




FOR 


N102 




BSC 


z 


* 


DC 


/3045 


MDX 


AltO 


NIDO 


DC 


/FF^ 


NIDI 


DC 


/OOOO 


N1D2 


DC 


/TFFF 









*********************** 


0214 


00 


C400021F 


A1E0 


LD 


L 


MiEi 


0216 





4820 




BSC 




2 


0217 





3046 


* 


DC 




/3046 


0218 


00 


C400021E 


LD 


L 


fslEO 


021 A 





F003 




EOR 




N1E0 


021 B 





4820 




BSC 




7 


02 1C 


Q 


3047 




DC 




/J047 


02 ID 





7002 




MDX 




A1F0 


02 16 





02i£ 


N1E0 


DC 




N1E0 


021F 





OOOO 


N1E1 

* 
* 
* 
***** 


DC 




/ OOOO 












TEST 








****<«* ************ 


0220 


03 


C480022C 


A1F0 


LD 


; 


MF2 


0222 





4820 




BSC 




I 


C223 





3046 


"& 


OL 




/3G«»8 


0224 


00 


C480022B 




LD 


I 


N1F1 


0226 





F004 




EOR 




N1F1 


0227 





4820 




BSC 




z 


0228 





3049 


#' 


OC 




/3049 


022 9 





7003 




mx 




A200 


022 A 





OOOO 


N1F0 


DC 




/OOOO 


022B 





022B 


N1F1 


OC 




N1F1 


022C 





022A 


N1F2 
* 

* 


DC 




N1F0 












TEST 








if 
* 
*** *» 






INDI 








****************** 


******************************************* 


CORE 




DATA OR 


*LA- 


OPER- 






ADDR 




INSTRUCTION 


*BEL 


AT I ON 


FT 


OPERANDS 


***********s ******************* ************ 


0220 


00 


4C000231 


A200 


3SC 


L 


G200 


022F 





304A 


Sf 


DC 




/304A 


0230 





3048 


♦ 


DC 




/304B 


0231 





C03A 


G200 


LD 




N200 


0232 


00 


4C040236 




BSC 


L 


G201,E 


0234 





304C 




DC 




/304C 



EOR OF 1 AND FAILED 



ERR ID + ERR WAIT 

EOR OF AND 1 FAILED 



ERR ID ♦ ERR WAIT 

EOR OF AND 1 FAILED 

EXIT TC NEXT ROUTINE 



TEST OF ABILITY TO SET 
f BIT TO ONE 

*»***&***********«***** 
LD /OOOO 
SK ON ZERO 
ERR ID ♦ ERR WAIT 
WRONG LOCATION LOADED 
LD CiNlEOI 

SK ON ZERO 
ERR ID + ERR WAIT 
WRONG LOCATION LOADE 
EXIT TO NFXT ROUTINE 



OF INDIRECT ADDRESSING 

*********************** 
LD /OOOO 
SK CN ZERO 
ERR ID + ERR WAIT 
WRONG LOCATION LOADED 
LD CIN1F1J 
ZERO WITH CIN1F1J 

ERR ID * ERR WAIT 
feRONG LOCATION LOADED 
EXIT TO NEXT ROUTINE 



OF BSC LONG FORM AND 
RECT OPERATION 

■***«<!*********«******«* 

********* ** ****«:**«*# ****** 

*■ REMARKS ID + SEQ= AT RIGHT 

********* ************** ****** 

ERR ID ♦ ERR WAIT 
BSC DID NOT BRANCH 
ERR ID ♦ ERR WAIT 
BSC SKPD-SHQULD BRNCH 

BR IF NOT EVtN 
ERR ID + ERR WAIT 
BSC E DID NOT BRANCH 



08B4- 1 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



8B425190 
8B425200 
8B425210 
8B425220 
83425230 
88425240 
8B425250 
8B425260 
8B425270 
83425280 
88425290 
8B425300 
8B425310 
8B425320 
8B425330 
83425340 
8B425350 
8B425360 
8B425370 
8B4253B0 
86425390 
8B425400 
8B425410 
8E425420 
88425430 
8B425440 
8B425450 
8B425460 
8B425470 
8B425480 
8B425490 
8B425500 
8B425510 
88425520 
8B425530 
8B425540 
8B425550 
88425560 
8B425570 
8B'»255B0 
8B425S90 
88*25600 
88425610 
88425620 
8B425630 
8B475640 
SB425650 
88425660 
88425670 
85425680 
8B425690 
8B425?00 
(5B425710 
SB425720 
8B425730 
88425740 
8B425750 
8B425760 
8B425770 
8B425780 
8B435790 
8B425800 
8B425810 
8B425820 
8B425830 
8B425840 
8B425850 
8B425860 
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0235 


304D 


£ 


DC 




/3040 


02 36 00 
0238 


4CO8023A 
304E 


G201 

* 

* 
G202 

* 


BSC 
DC 


L 


G202,* 

/304E 


0239 


304F 


DC 




/304F 


02 3 A 00 
023C 


4C2002 3E 
3050 


BSC 

oc 


L 


G203.Z 
/3050 


023D 


3051 


DC 




/3051 


0?3fc 00 

0240 

0241 


4C100241 

7001 

3052 


G20 3 

V154 

J 

G204 

* 

* 
G205 

* 

* 


BSC 
MDX 
DC 


L 


V154,- 

G204 

/3052 


0242 

0243 00 
0245 


2003 

4C020247 
3053 


LDS 
BSC 

DC 


L 


3 

G205.C 
/3053 


0246 


3054 


DC 




/3054 


024 7 00 

0249 


4C01024B 
3055 


BSC 

DC 


L 


G208tC 
/3055 


024A 


3056 


DC 




/3056 


024 B 00 
024 
024E 


4C0I024E 
1001 
305 7 


G208 
V168 


BSC 
MDX 
DC 


L 


V168.0 

G206 

/3057 


024F 
0250 00 
0252 
025 3 


2000 

4C020253 
7001 
3058 


G206 

V170 

* 
G207 

V174 

* 
G209 

* 


LDS 

asc 

MDX 

DC 


L 




V170.C 
G207 
/3058 


0254 00 
0256 
025 7 


4C0 10257 

7001 

3059 


BSC 
MDX 
OC 


L 


V174.C 

G209 

/3059 


0258 

0259 00 
0258 


C014 

4C18025D 
305A 


LD 

BSC 

DC 


L 


N201 
G20A, f- 
/>05A 


025C 


3056 


* 
G20A 

V180 


DC 




/305B 


0250 
025 E 00 

0260 

0261 


COOE 

4C160^6l 
7001 
305C 


LD 
BSC 
MDX 
DC 


L 


N200 
V180.+- 
G200 
/305C 


0262 

0263 00 
C265 
026 6 


COOB 

4C180266 
7001 
305D 


0200 

V184 

* 

C20B 


LO 
BSC 
MDX 
OC 


L 


N202 
V134,*- 
G208 
/305D 


026 7 00 
0269 


4C80026F 
305E 


BSC 

DC 


" 


N203 
/305t 


026A 


305F 


* 

G20C 

N200 

N201 

N202 

N203 

* 


DC 




/305F 


026 B 
026C 
C260 
026 E 
026F 


7004 
FFFF 
0000 
0001 
026B 


MDX 

DC 

DC 

OC 

DC 




A240 
/FFFF 

/oooo 

/0001 
C20C 






* 






te: 


PATE 
EC NU. 


28FtB66 
415120 


01MAY66 
415120A 


04NUV66 
415233 



ERR ID ♦ ERR WAIT 
BSC SKPO-SHOULO BRNCH 
BR IF NOT PLUS 
ERR 10 ♦ ERR WAIT 
BSC - DIO NOT BRANCH 
ERR 10 ♦ ERR WAIT 
BSC SKPO-SHOULO BRNCH 

ERR 10 ♦ ERR WAIT 
BSC 2 DID NOT SKIP 
ERR 10 ♦ ERR WAIT 

BSC SKPD-SHOULD BRNCH 
BR IF NOT MINUS 

ERR ID * ERR WAIT 
BSC SKPO-SHOULO NOT 
SET C AND OF ON 
8R IF CARRY IS ON 
ERR 10 ♦ ERR WAIT 
SSC C DID NOT BRANCH 
ERR 10 ♦ ERR WAIT 
6SC SKPD-SHOULD BRNCH 
BR IF OF ON 
ERR ID ♦ ERR WAIT 
BSC DID NOT BRANCH 
ERR 10 ♦ ERR WAIT 
BSC SKPO-SHOULO BRNCH 
BR IF OF ON 

ERR 10 ♦ ERR WAIT 
BSC BRNCD-SHOULD NOT 

BR IF CARRY IS OFF 

ERR 10 ♦ ERR WAIT 
BSC BRNCO-SHOULO NOT 
BR IF OF ON 

ERR ID ♦ ERR WAIT 
BSC 8RNC0-SH0ULD NOT 

E8 ON ZERO 
ERR 10 ♦ ERR WAIT 
BSC ♦- DIO NOT BRANCH 
ERR ID ♦ ERR WAIT 
BSC SKPD-SHOULD BRNCH 



ERR 10 ♦ ERR WAIT 
9SC 8RNCHE0-SH0JL0NT 



ERR ID ♦ ERR WAIT 
BSC BRNCHED-SHCULDNT 

ERR ID ♦ ERR WAIT 

INDIRECT BSC FAILEO 

ERR 10 * ERR WAIT 

INDIRECT BSC FAILEO 

EXIT TO NEXT ROUTINE 



TEST SHORT AND LONG FORM 



83425870 

8B425880 

8B425890 

8B425900 

8B425910 

3B42592Q 

8B425930 

8B425940 

8B425950 

8B425960 

8B425970 

8B425980 

8B42 5990 

8B426000 

8B426010 

8B426020 

88*26030 

88426040 

88426050 

8B426060 

8B426070 

83426080 

38426090 

83426100 

88426110 

88426120 

88426130 

83426140 

88426150 

8B426160 

88426170 

88426180 

8B426190 

8B426200 

83426210 

8B426220 

8B426230 

8B426240 

83426250 

8B426260 

83426270 

8B426280 

8B426290 

8B426300 

88426310 

88426320 

8B426330 

8B426340 

88426350 

SB426360 

8B426370 

8B426380 

8B426390 

33426400 

8B426410 

88426420 

88426430 

88426440 

89426450 

8B426460 

88426470 

88426430 

8B426490 

8B426S00 

8B426510 

83426520 

88426530 

88426540 



PROG ID 
PAGE 



SSI 



*********** *******4»************************** 
************ ********************* ************************************** 

CORE OATA OR *LA- OPER- 

ADDR INSTRUCTION *BtL ATION FT OPERANDS ♦. REMARKS ID*SEQ* AT RIGHT 

********************************•*******************************»»*,»** ** 



0270 
02 71 
02 72 

0273 
0274 
0275 
0276 
0277 



0278 00 
027A 



4002 
0271 
3060 

0000 
COFE 
F0F8 
4820 
3061 

44080270 
3062 



0278 3063 



027C 
02 70 
027E 
027F 

0280 
0281 



027A 
0000 
COFE 
FOFC 
4820 
3064 



0282 





C04A 


0283 





004A 


0284 





C04A 


0285 





CC48 


0286 





F046 


0287 





4820 


0288 





3065 


0289 





C049 


028A 





4820 


028B 





704 D 


028C 





C044 


0280 





0045 


028E 





1810 


02 8F 


00 


D4000001 


0291 





61FF 


0292 


00 


C4000001 


0294 





4820 


C295 





7010 


0296 





C03D 


029 7 





D033 


029 8 


00 


P4000F81 


029A 


00 


D4000FEO 


029C 


00 


04000FF4 


029E 





0837 


029F 





E338 


02A0 





F037 



A240 
N240 



* 
N241 



VIAC 

* 

* 
N242 

N243 



8SI 
DC 

OC 

DC 

LO 

EOR 

BSC 

OC 

8SI 
DC 

DC 

DC 

DC 

LD 

EOR 

BSC 

OC 



N241 
N240 
/3060 

/OOOO 
N241 
N240 
Z 

/3061 

N243,* 
/3062 

/3063 

VIAC 

/OOOO 

N243 

N242 

I 

/3064 



STORE ADDRESS CF I REG 

STORE ADDRESS CF I REG 

ERR 10 ♦ ERR WAIT 

3SI SKPC-SHO'JLD BRNCH 

RETURN ADDR FOR MAIN PROG 

LO RETURN ADDR 

ZE'iO IS kETUSN ACOR 

ERR ID ♦ ERR WAIT 
6SI NOT STORED I REG 
STORE ADDR OF I REG 
ERR ID ♦ ERR WAIT 
BSI ♦ DID NCT BRANCH 
ERR ID + ERR WAIT 
BSI SKPD-SHOULD BNCH 

RETURN ADOR FOR MAIN PROG 



ERR 10 ♦ ERR nAIT 
BSI NOT STORE I REG 



TEST CF INSTR RECUIRED FOR 
ERROR CONTROL 



******************************* *************** 



A900 



G902 



LD 

STO 

LO 

LO 

EOR 

3SC 

OC 

LD 

esc 

MOX 

LD 

STO 

SRA 

STO 

LDX 

LD 

BSC 

MDX 

LO 

STO 

STO 

STO 

STO 

XIO 

AND 

EOR 



F911 

F912 

F913 

F912 

F911 

I 

/3065 

F918 

I 

A280 

F916 

F918 

16 

/00U1 

-1 

/0001 

I 

G901 
F919 
F903 
N8C2 
F004 
F007 
F922 
F923 



LO A NUMBER 



ERR ID ♦ ERR WAIT 

STORE FAILED 

CK FIRST PASS SW 1/0002) 

IS SW ON 

YES GO TO NEXT ROUTINE 

GET 0002 

STORE /0002 

CLEAR ACC 

ZERO WITH /000 1 

LD XR I WITH -1 

ZERO IN 1800 -1 FOR 1130 

ZERC FCR 1800 

1130 CPU 

MOO P-C LD /0240 

STO /0240 THIS IS AREA, 

* FUNCTION AND MOOIFIER 

* FOR REAOING DATA ENTRY 

* SWITCHES IN 1800 
SENSE SENSE/PROG SWS 
IGNORE CE SwS. I/FFOO) 
ZERO WITH /FFOO 



F923 

*********************************************************************** 

CORE OATA OR *LA- OPER- 

AOOR INSTRUCTION *BEL ATION FT OPERANDS ♦ REMARKS 10>SfcC= A" RIGHT 

***************************** ***************«***<.******** ** ************ 

02A1 00 4C1802AE BSC L G900,*- BRANCH ON ZERO 

02A3 F034 EOR F923 

02A4 3066 DC / 3066 ERROR 10 ♦ ERR WAIT 



08B4- 1 
20 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



8B426550 
83426560 
83426570 
88426580 
88426590 
8B426600 
88426610 
8B426620 
8B426630 
8B426640 
88426650 
83426660 
83426670 
83426680 
83426690 
83426700 
88426710 
8B426720 
8B426730 
83426740 
8B426750 
86426760 
88426770 
88*26780 
88426790 
83426800 
8B42t>810 
83426820 
8B426830 
88426840 
83426850 
8B426860 
83426870 
88426880 
83426890 
33426900 
83426910 
8B426920 
83426930 
83426940 
8B426950 
8B426960 
83426970 
88426980 
83426990 
8B42 7000 
88427010 
8842 7020 
8B427030 
88427040 
3342705O 
88427060 
8B427070 
8B427080 
8B42709O 
rta^.27100 
8^27110 
88427120 
8B427130 
8B427140 
8B427150 
8B427160 
8B427170 
8B427180 
8Ph27190 
83427200 
8B427210 
88427220 



PROG 10 
PAGE 



08B4- 1 
20A 



oooooooooooooooooocooooooooooooooc 



0,CCCOCOCCCCOCOCOCCOOCCCCCOCOOOCOC( 



IOM MAINTINANXF DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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I9M MAINTENANCE OIAG.TSUC PR'JGRAM FOR THE 1300 SYSTEM 



PROCESSOR-CON T ROLLER TUNCT10N IfST 



PART NO. 
PAGE 



2196471 
2U 



02 A 5 





70F8 


* 
* 


MOX 




G902 


02A6 





C02b 


G90 1 


LO 




F920 


02A7 





002 3 




STO 




F903 


02Ad 


00 


04000F8I 




STO 


L 


N8C2 


02AA 


00 


D 400 OF ED 




STO 


L 


F004 


02AC 


oo 


O'.OOOFf 4 




STO 


L 


F007 


02Afc 





OS IB 


0900 


XIO 




F902 


02AF 





C022 




LO 




F917 


0280 





FOIF 




EOR 




F915 


IV B I 


oo 


4C 1 802 36 




rtSC 


L 


X001,»- 


026} 





F01C 




t OR 




F915 


026'. 





3067 


* 


DC 




/3067 


U2B5 





/OF 8 


* 


MOX 




G900 


02B6 





(001 


X001 

* 


DC 




/3001 


02 nr 





C013 


4 


LO 




F903 


02 Bd 





F01C 




EOR 




F920 


02U9 


00 


4C1802C1 




SSC 


L 


G9Q4,*- 


0263 





081A 


G903 


XIO 




F922 


023C 





E01B 




ANO 




F92 3 


0260 


00 


4C1802CI 




9SC 


L 


G904,*- 


028T 





3068 




DC 




/3068 



02C0 





70FA 




MOX 


G903 


02CI 





60 3 


0)04 


XIO 


F902 


02C2 





COOF 




LO 


F917 


02C3 


00 


4C1802C7 




SSC 1 


X003,4- 


02 C 5 





3069 


* 


OC 


/3069 


02C6 





70FA 


* 


MOX 


G904 


02C7 





3002 


X003 

* 


DC 


/3002 


02 C 8 





7010 


« 


MOX 


A280 


02CA 




0000 




BSS ( 




02CA 





0202 


F90 2 


DC 


F917 


02C8 


u 


0240 


F90 3 


OC 


/024O 


02CC 





02CC 


F904 


OC 


F904 


*VCD 





02CE 


F91 I 


OC 


F912 


02 Ct 





0000 


F912 


OC 


/OOOO 


02CF 





0000 


f 91 3 


OC 


/OOuO 


02U0 





IMF 


F915 


DC 


/FFFF 


0201 





0U02 


F916 


OC 


/0002 


0202 





0000 


F91 7 


DC 


/OOOO 


02 3 





0000 


f 91 8 


OC 


/COOO 


0204 





0240 


F919 


OC 


/0240 


020b 





3A00 


F92 


DC 


/3A00 


0206 





oooo 


f <3.'2 


OC 





02 f) 7 





0760 




OC 


/0760 


02 M 





rroo 


T923 


OC 


/FFuO 








S!,"t 


j«te>t!utitttt« 








* 



SENSE /PROG SWS NOT 

* EOUAL TO /FFOO 
REPEAT TEST 

1130 CPU LO /3A00 
STO /3A00 THIS IS 

* AREA, FUNCTION' ♦ 

* MODIFIER F01 READING 

* OATA ENTRY SWITCHES 
TEST OATA ENTRY SWS 

* FOR /FFFF 

BRANCH ON ZERO 

ERR 10 ♦ ERR WAIT 
OATA ENTRY SWS NOT 
EQUAL TO /FFFF 

SET SENSE/PROG AND 
OATA ENTRY SWS TO 
ZEROS AND PUSH START 
CK FOR 1130 (3AOO-U30) 

XFER IF 1130 

TEST SENSE/PROG SWS 

IGNORE CE SwS. I/FFOO! 

BRANCH IF CK 

ERR 10 ♦ ERR WAIT 

ScNSE/fROG SWS NOT 

* EOUAL TO /OOOO 
REPEAT TEST 

TEST DATA ENTRY SWS 

* FOR /OOOO 
BRANCH ON ZERO 
ERR 10 ♦ ERR WAIT 
OATA ENTRY SWITCHES 

* NCT EQ /OOOO 

SET 81 T SWITCHES AS 

* DESIRED FOR RUN 

* ANO PUSH START 
EXIT TO NEXT ROUTINE 



EQUAL /3A00 IN 1130 



* 

tt»*t 
*4* ** 

* 



1800 READ SIT SWS CONSTANT 
1130 READ HIT SWS CONSTANT 
SENSE SENSE/PRCG CON 



***«*«*** ************* 
*»**s***s****<-*******« 



BEGIN1NG OF SECTION OF 
PROGRAM USING COMMON ERROR 
CONTRCL ROUTINE 

t*»«tt*«ttt««tt«tt«t«ttM«imi<iti«tttt 

*****««*****i*4*****************»******* 



IEST OF SRA OPERATION 



89427230 
83427240 
8B427250 
8B427260 
8B427270 
8B427280 
8B427290 
8B427300 
8B427310 
8B427320 
8B427330 
3B427340 
83427350 
8B427360 
83427370 
88427380 
83427390 
8B427400 
88427410 
8B427420 
83427430 
8842744 
86427450 
83427460 
88427470 
83427480 
88427490 
89427500 
8B427510 
8S427520 
8B427530 
88427540 
8B427550 
3B427560 
88427570 
8B427580 
8842 7590 
8B42 7600 
8B427610 
8B427620 
83427630 
89427640 
88427650 
8B427660 
8B427670 
88427680 
8B42 7690 
83427700 
88427710 
8B427720 
8B427730 
8 842 7740 
8B427750 
8B42 7760 
38427770 
89427780 
8842 7790 
83427800 
88427810 
8942,320 
88427830 
88427840 
88427850 
88427860 
8B427870 
9B427880 
8B42 7890 
86427900 



********i*>*******4»*****t*4*****************« 
************ **********»*.,** ************************ ******************** 

CORE DATA OR *LA- OPER- 

AOOR INSTRUCTION *BEL ATION FT OPERANDS * REMARKS ID*SE0= AT RIGHT 

4* ********** ***** *«*«»«* ****** ** ******** *« *** *************** ************ 



0209 





C039 


02DA 





1810 


0208 


00 


4C1802E0 


0200 


oo 


'.'.00 OF 8 3 


020F 





306A 


02EO 


00 


44OO0F0E 


02E2 





70F6 


02 E 3 





C030 


02E4 





180F 


02E5 





F02F 


02E6 


00 


4C1802EB 


02 E 8 


00 


44000F83 


02 E A 





306B 



02E8 00 44O00F0E 
02E0 70F5 



02 EE 





C027 


02EF 





1801 


02F0 





F026 



02F1 00 4C1802F6 

02F3 00 4400GF83 

02F5 306C 

02F6 00 -.40O0F0E 

02F8 70F5 



02F9 





COID 


02FA 





1801 


02Fb 





F01C 


02FC 


00 


4C180301 


02FE 


00 


44000F33 


0300 





3060 


0301 


00 


440C0FDE 


0303 





7CC5 


0304 





COOF 


0305 





1801 


0306 





1802 


0307 





1804 


0308 





1808 


0309 





FOOB 


030A 


00 


4C18030F 



030C GO 44000F83 

030E 306E 

030F 00 44000F0E 

0311 70F2 



A280 



u280 



LD 

SRA 

BSC 

3SI 

OC 

Bsl 

MDX 



N2 30 

16 

G280, *- 

FOOO 

/306A 

F005 

A280 



BRANCH UN ZERO 

SRA 16 PAILFC 

ERR 10 

CK LCCK CN ERROR 

LOOP 



0312 





7006 


0313 





FFFF 


0314 





8000 


0315 





0001 


0)16 





AAAA 


031 I 





5555 


0318 





2AAA 



*#**********4***fft*******?4i.;.***************** 

A281 LO N281 LO /80Q0 

SRA 15 NOW A=/0001 

E0<* N282 ZEWC WITH /OOO 1 

8SC L G291,*- BRANCH ON ZfcRO 

6SI L FOOO SRA 15 FAKED 

OC /3063 ERR 10 

G281 SSI L F005 CK LOCK ON ERROR 

MDX A281 LOOP 

********************************************** 

A282 LD »J283 LO /AAAA 

SRA 1 NOW A=/5555 

FOR N284 ZFRC WITH /5555 

BSC L G282,*- BRANCH CN ZERO 

BSI L FOOO SRA 1 FAILEO 

OC /306C ERR 10 

G232 BSI L F005 CK LCCK ON ERROR 

MOX A282 LOOP 

**********J ******** ***** ************* ********* 

A28J LO N284 LD Z5555 

SRA 1 NOW A=/2AAA 

EOR N285 ZERO WITH /2AAA 

3SC L 0283,*- BRANCH CN ZERO 

BSI L FOOO SRA 1 FAILEO 

OC /3060 ERR 10 

G283 8S1 L F005 CK LtjCK ON ERRCR 

MOX A283 LOUP 

4*?****444*44****4******* 

LD /3000 

NOW A- /4000 

A= /1000 

A^/0100 

A = /OOOl 

ZERO talTH /OOOl 

BRANCH ON ZERO 

COMB SRA FAILEO 

ERR ID 

CK LOCK ON ERRCR 

LOOP 

EXIT TO NFXT ROUTINE: 



***^***$****4****** 



A284 



G284 



LO 

SRA 

SRA 

SRA 

SRA 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

OC 

DC 

OC 

DC 

OC 

OC 



N2B1 
I 

2 
4 

8 

N282 

G284,* 

FOOO 

/306E 

F005 

A284 

A2C0 

/FFFF 

/8000 

/OOOl 

/AAAA 

/S555 

/2AAA 



N280 
N281 
N282 
N283 
N284 
N285 
* 

4 

**********A******** ********************<***** 
***************************************************4******t ************ 

CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS ♦ REMARKS IO<SES= AT T.1GHT 

#****♦****»* ******* »***«*«***»««»*****«**«»«***************** ********** 

0319 C029 A2C0 LO N2C0 LD /OOOO 



TEST OF ANO FUNCTION 



89427910 
83427920 
33427930 
83427940 
3842/950 
83427960 
8342 79 .-0 
39427980 
59427990 
33428000 
3942 8010 
33423020 
9B42F030 
13423040 
^423050 
ifl42 8060 
1342 30 70 
33428080 
3B428090 
*9423100 
83-.28110 
33428120 
39428130 
33428140 
39423150 
83428160 
33423170 
33428180 
83428190 
33428200 
39428210 
33428220 
3342fa230 
89423240 
83428250 
8B428260 
89423270 
39426260 
33428290 
83428300 
89428310 
£342^320 
83428330 
83428340 
8B428350 
83428360 
33428370 
83428380 
83423390 
39428400 
■3B423410 
9342C420 
33423430 
33 42 34 4 
3342< : >450 
83423460 
89428470 
83428480 
89428490 
83428500 
83428510 
89428520 
83428530 
89428540 
3B428550 
8B428560 
89428570 
88428580 



DATE 
EC NU. 



28Ff B66 
415120 



01MAY66 
4 15120A 



04NOV66 
415233 



PROG 10 
PAGE 
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21 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04NOV66 
415233 
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031A 





E028 




AND 




N2C0 


031B 


00 


4C180320 




BSC 


L 


G2C0.+- 


031D 


00 


44000F83 




SSI 


L 


FOOO 


OiZF 





306F 




DC 




/306F 


0320 


00 


44000FDE 


G2C0 


BSI 


L 


F005 


0322 





70F6 




MOX 




A2C0 








**?..*****************»** 


0323 





COIF 


A2C4 


LD 




N2C0 


0324 





E01F 




AND 




N2C2 


0325 


00 


4C18032A 




BSC 


L 


G2C4 t *- 


0327 


00 


44000F83 




BSI 


I 


FOOO 


0329 





3070 




OC 




/3070 


032A 


00 


44000FDE 


G2C4 


BSI 


j 


F005 


032C 





70F6 




MOX 




A2C4 








*«*5»**************!F**** 


U32D 





C016 


A2C8 


LO 




N2C2 


032E 





E014 




AND 




N2C0 


032F 


ou 


4C180334 




BSC 


L 


G2C8t+- 


0331 


00 


44000F83 




BSI 


L 


FOOO 


0333 





3071 




Ot 




/3071 


0334 


00 


440QGFDE 


G2C8 


BSI 


L 


F005 


0336 





70F6 




MDX 




A2C8 








*•*,******«*** **********; 


0337 





COOC 


A2CC 


to 




N2C2 


0338 





EOOB 




AND 




N2C2 


0339 





FOOA 




EOR 




N2C2 


033A 


00 


4C18G33F 




BSC 


L 


G2CC+- 


013C 


00 


44000F83 




BSI 


L 


FOOO 


033E 





3072 




OC 




/3072 


033F 


00 


44000FDE 


G2CC 


BSI 


L 


F005 


0341 





70F5 




MOX 




A2CC 


0342 





7002 




MDX 




A300 


0343 





0000 


N2C0 


DC 




/GOOD 


0344 





FFFF 


N2C2 

• 
* 
• 
***** 


DC 




/FFFF 












TEST 








******************< 


#»*»*S****»***»* ***********»*»******* ¥ ****»* 


CORE 




DATA OR 


*IA- 


OPER- 






AODR 




INSTRUCTION 


*B£L 


ATION 


FT 


OPERANDS 1 


*************************************** ****! 


0345 





C020 


MOO 


LD 




N300 


0346 





E81F 




OR 




N300 


034 7 


00 


4C18034C 




BSC 


L 


G300.+- 


034 9 


00 


44000F8 3 




BSI 


L 


FOOO 


034B 





3073 




DC 




/3073 


034C 


00 


44000FDE 


G300 


BSI 


L 


F005 


034E 





70F6 




MDX 




A300 








***** 


******* 


********** 


034F 





C016 


A 302 


LD 




N300 


0350 





E816 




OR 




N302 


0351 





F015 




EOR 




N302 


0352 


00 


4C180357 




BSC 


L 


G302.+- 


0354 


OU 


440U0F83 




3SI 


L 


FOOO 


0356 





3074 




DC 




/3074 


035 7 


00 


44000FDE 


G302 


BSI 


L 


F005 


0359 





70F5 




MDX 




A302 








**»*»?*#**********#*****« 


035A 





COOL 


A304 


LO 




N302 


035B 





E80B 




JR 




N302 


035C 





FOOA 




EOR 




N302 


0350 


00 


4C180362 




esc 


L 


G304, ♦- 


035F 


00 


44000F83 




SSI 


L 


FOOO 


0361 





3075 




DC 




/3075 


0362 


00 


44000FDE 


G304 


SSI 


L 


F005 


0364 





70F5 




MDX 




A304 


036 5 





7002 




MDX 




AD40 


DATE 




2BFEB66 


01MAV66 04N0V66 


EC NO 


a 


415120 


4151«!0A 415233 



AND /OOOO 
BRANCH ON ZERO 
AND OF AND FAILED 
ERR ID 

CK LOCK ON ERROR 
LOOP 
******-**************** 
LD /OOOO 
LD /FFFF 
BRANCH ON ZERO 
AND OF AND I FAILED 
ERR ID 

CK LOCK ON ERROR 
LOOP 

*****#,<*6 ******* ****** 

LD /FFFF 
AND /OOOO 
BRANCH ON ZERO 
AND OF 1 AND FAILED 
ERR ID 

CK LOCK ON ERROR 
LOOP 
********************** 

LD /FFFF 

AND /FFFF 

ZERO WITH /FFFF 

BRANCH ON ZERO 

AND B 1 AND 1 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



OF OR FUNCTION 



+ REMARKS ID+SEQ=- AT RIGHT 

**************************** 

LO /OOOO 

OR /OOOO 

BRANCH ON ZERO 

OR OF AND FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 
****************** $*** 

LO /OOOO 
OR /FFFF 
ZERO WITH /FFFF 
BRANCH ON ZERO 
OR OF AND 1 FAILED 
ERR ID 

CHECK LOOP SWITCH 
LOOP 
********************** 

LD /FFFF 

OR /FFFF 

EOR IN /FF»"F 

BRANCH ON ZERO 

OR OF 1 AND 1 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



8B428590 

8342 6600 

8B42B610 

8B428620 

8B428630 

8B428640 

8B42B650 

8S428660 

8B428670 

83428680 

8B42 8690 

83428700 

88428710 

8B428720 

8B428730 

8B428T40 

88428750 

8S42 8760 

8B428770 

8B428780 

88428790 

8B42 880Q 

8B428810 

8B428820 

88428830 

8B428840 

8B428850 

88428360 

88428870 

8B428880 

8B428890 

8B428900 

8B428910 

8B428920 

8B428930 

8B428940 

8B428950 

88428960 

8B428970 

8342698? 

8B426990 

8B429000 

8B429010 

8B429020 

8B429030 

88429040 

8B429050 

6B429060 

8B429070 

83429080 

8B429090 

8B429100 

88429110 

88429120 

8B429130 

8B429140 

83429150 

8B429160 

8B429170 

8B429180 

83429190 

83429200 

8B429210 

83429220 

8B429230 

8B429240 

8B429250 

83429260 



PROG ID 
PAGE 



0366 

0367 



******* 

CORE 

ADDR 

******* 

0368 

0369 
036A 
036B 
036C 00 
036E 00 
0370 
0371 

0373 

0374 

0375 
03 76 00 
0378 00 
03TA 
037B 00 

0370 
C3?E 
03 7F 
0380 



TEST OF RTE 16 OPERATION 



OOOO N300 DC /OOOO 
FFFF N302 DC /FFFF 

* 

* 

************************** '„**•*•*****•*****••* 
******************************************************* 

*LA- OPER- 
ION *BEL ATION FT OPERANDS + REMARKS ID+SEO* AT RIGHT 

*********************************** ******************** 





00 



********* 
DATA OR 
INSTRUCT 

********* 

C016 

18D0 

C015 

1800 

4C180?71 

44000F83 

3076 

44000FB2 

70F4 

1800 

FOOA 

4C1 80378 

44000F83 

3077 

44000FDE 

70EA 

7002 

OOOO 

FFFF 



A340 



0381 

0382 

0383 

0384 00 
0386 00 

0388 

0389 00 
0388 
038C 
0380 
038E 00 

0390 00 
0392 
039 3 00 
039 5 



08B4- 1 
22 



0396 

0397 

0398 00 
039A 00 
039C 
039D 00 
039F 
03A0 
03A1 00 
03 A 3 00 
03A5 
03A6 00 
03A8 

03A9 
03AA 

03AB 00 
03AD 00 
03AF 



DATE 
EC NO. 



C055 

18A0 

F0S4 

4C180389 

44000F83 

3078 

44000FB2 

70F5 

18D0 

F04A 

4C180393 

44000F83 

3079 

44000FDE 

70EB 

C042 

18A0 

4C180390 

44000F83 

307A 

44000FDE 

70F6 

1800 

4C1803A6 

44000F83 

307B 

44000FDE 

70ED 

C030 

188F 

4C1803BO 

44000F83 

307C 



28FEB66 

415120 



G340 



G342 



LO 

RTE 

LD 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BS! 

DC 

BSI 

MDX 

MDX 

DC 

DC 



N340 

16 

N341 

16 

G340,*- 

FOOO 

'3076 

FOOE 

A340 

16 

N341 

G342.+- 

FOOO 

/3C77 

F005 

A34C 

A380 

/OOOO 

/FFFF 



LD /OOOO 

PLACE /OOOO IN REG 

LD /FFFF 

NO* A*/0U00 0=/FFFF 

BkANCH ON ZERO 

ALL THRU U FAILED 

ERR ID 

CK LOCK ON ERRCR 

LOOP 

NOW A=/FFFF 0=/0000 

ZERO WITH /FFFF 

BRANCH ON ZERO 

ALL 1 THRU FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



TEST OF SRT OPERATION 



N340 
N341 

* 

* 

*«*•*******************************«.********* 

A380 LD N380 LD /8000 

SRT 32 NOW A=/FFFF Q=/FFFF 

EOR N381 EOR IN /FFFF 

BSC L G380.+- BRANCH ON ZERO 

BSI L FOOO SRT 32-A REG FAILED 

DC /3078 ERR ID 

G380 BSI L FOOE CK LOCK ON ERROR 

MOX A380 LOOP 

RTE 16 NOW A=/FFFF Q=/0000 

EOR N381 EOR IN /FFFF 

BSC L G382*+- BRANCH CN ZERO 

BSI L FOOO SRT 32-0 REG FAILED 

DC /3079 ERR ID 

G382 BSI L F005 CK LOCK ON ERROR 

MDX A380 LOOP 

********************************************* 



A384 



G384 



G386 



LD 
SRT 
BSC 
BSI 

DC 

BSI 

MDX 

RTE 

BSC 

SSI 

DC 

BSI 

MDX 



N382 LD /4000 

32 NOW A=/0000 Q=/0000 

G384,+- BRANCH ON ZERO 

FOOO SRT 32-A REG FAILED 

/307A ERR ID 

F005 CK LOCK ON ERROR 

A384 LOOP 

16 NOW A=/0000 0=/0000 

G386,»- BRANCH ON ZERO 

FOOO SRT 32-0 REG FAILED 

/307B ERR ID 

F005 CK LOCK ON ERROR 

A384 LOOP 



********************************************* 



A388 



LD 
SRT 
BSC 
BSI 

DC 



N383 

25 

G388,*- 

FOOO 

/307C 



LD /S555 

NOW A=/0000 C=/0000 

BRANCH ON ZERO 

SRT 15-A REG FAILEO 

ERR ID 



01MAY66 
415120A 



04N0V6& 
415233 



8B42 9270 
8B429280 
BB429290 

8B429300 
8B429310 
8B429320 
8B429330 
8B429340 
3B429350 
83429360 
6B429370 
8B429380 
8B429390 
8B429400 
8B429410 
8B429420 
8S429430 
8B429440 
8B429450 
8B429460 
8B429470 
8B429480 
8B429490 
3B429500 
83429510 
8B429520 
83429530 
88429540 
89429550 
8842 t >560 
88429570 
8B429580 
8B429590 
83429600 
88429610 
8B429620 
8B429630 
8B429640 
8B429650 
8B429660 
8B429670 
88429680 
83429690 
884297C0 
8B429710 
83429720 
88429730 
8S429740 
8B429750 
88429760 
8S429770 
8B429780 
83429790 
8B429800 
8B429810 
8B429820 
8B429830 
8B429840 
8B429850 
8B429860 
8B429870 
8B429880 
8B429890 
8B429900 
8B429910 
8B429920 
8B429930 
83429940 
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0360 00 4',G0OFB2 
03B2 70F6 



03B3 
03B4 



1800 
F026 



G388 BSI t FOOE 
MDX A388 

RTE 16 

EOR N384 

BSC I GJbA.-f- 

B S I L F 000 

DC /307D 

G38A BSI L F005 

MDX A 3 88 .__. 

***•**»**«*•****•********»*»* ***************,» 

CORE OATA OR *LA- OPER- 

ADDR INSTRUCTION *BEL ATICN FT OPERANDS ♦ REMARKS ID*SEQ= AT RIGHT 

naun n r t.\ *• . ** « »■ . ~ . . _._ 



03B5 On 4C1803BA 
03B7 00 44000F83 
03B9 3070 
03BA Ou 44000F0E 
03BC 70EC 



CK LOCK CM ERROR 

LOOP 

NOW A=/AAAA Q=/0000 

ZERO WITH /AAAA 

BRANCH CN ZERO 

SRT 15-C REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



03BD 
OIBt 
03BF 
03C0 
03C1 
Q*C2 
03C3 



C01C 
1880 
1882 
1884 
1886 
1838 
188A 



A38C 



03C4 00 4C1803C9 
03C6 00 44000F83 
03C8 3076 
03C9 00 M0OOFB2 
03CB 70F1 
OiCC 18D0 
03CD FOOE 
03CE 00 4C1803D3 
0300 00 4400OF83 
03D2 307F 
03D3 00 440U0FD6 
0301. 70E7 



G38C 



S38E 



03D6 

0307 

0308 
03D9 
C3DA 
0308 
03 DC 



7006 
8000 

FFFF 
4000 
5555 
AAAA 
0001 



LD 

SRT 

SRT 

SRT 

SRT 

SRT 

SRT 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

nc 

oc 

DC 

DC 

oc 

DC 



N383 



2 

4 

6 

8 

10 

G38C f +- 

FOOO 

/307E 

FOOE 

A38C 

16 

N385 

G38E,*- 

FOOO 

/307F 

F005 

A38C 

A3C0 

/8000 

/FFFF 

/4000 

Z5555 

/AAAA 

/0001 



LO Z5555 

NOW A=/5555 Q=/0000 

NOW A-/1555 Q=/4000 
/0I55 /5400 

/0005 /5550 

/OOOO /0555 

/OOOO /0001 

BRANCH ON ZERO 

SERIES SRT FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW A=/0001 Q=/0000 

ZERO WITH /0001 

BRANCH ON ZERO 

CERSES SRT FAILED 

ERR ID 

CK COCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



03DD C035 

03DE 18D0 

03DF C032 

03E0 18CF 

03E1 Ji F034 

03E2 00 4C1803E7 

03E4 00 44000F63 

03E6 3080 

03E7 00 44000FB2 

03E9 70F3 

03EA 18D0 

03fcB F02B 

OJEC 00 4C1803F1 

OJEF 00 44000F83 

03F0 3081 

03FS 00 44U00FDE 

03F3 70E9 



N380 
N361 
N382 

N383 
N384 
N385 

• 
* 
* 



TEST OF RTE OPERATION 



A3C0 



G3C0 



G3C2 



LD 
RTE 

LD 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

esi 
oc 

BSI 

MDX 



N3C1 LD /AAAA 

16 NOW A=/0000 C=/AAAA 

N3C0 NOW A=/5555 Q= 'AAAA 

1*> NOW A=/5554 Q=/AAA8 

N3C4 ZERO WITH /5554 

G3C0t»- BRANCH ON ZERO 

FOOO RTE 15-Q TO A FAILED 

/3080 ERR ID 

FOOE CK LOCK ON ERROR 

A3C0 LOOP 

16 NOW A=/AAAB Q=/5554 

N3C5 ZERO WITH /AAAB 

G3C2.+- BRANCH CN ZERO 

FOOO RTE 15-A TO FAILED 

/3081 ERR 10 

F005 CK LOCK ON ERROR 
LOOP 



A3C0 ,,„„.. 

**•***••**«*******« ************* ***»*****»**„; 
******* ******* ******************»»«*»,»*»»** *»**$,<.,» ****************** 

CORE DATA OR *LA- OPER- 

ADOR INSTRUCTION *fifc L AT ION FT OPERANDS ♦ REMARKS ID + SEO= AT RIGHT 

******************* ■*********************************************$**» * 4 + 

03F4 C020 A3C4 LD N3C3 LD /8000 

03F5 18D0 RTE 16 NOW A=/XXXX Q*/8000 



CATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



8B429950 

8B429960 

8&429970 

8B429980 

8B429990 

8B430000 

88430010 

8B430020 

8B43003C 

8B430040 

8B430050 

8B430060 

8B430070 

8B430080 

8B430090 

89430100 

3B430110 

8B430120 

8B430130 

8B430140 

8B430150 

8B430160 

88430170 

88430180 

83430190 

88430200 

8B430210 

88430220 

8B430230 

88430240 

8B430250 

8B430260 

88430270 

88430200 

8B430290 

8B430300 

8Bi30310 

86*30320 

8B430330 

8B430340 

8843035Q 

88430360 

CG430370 

88430380 

8B430390 

8B430400 

8B430410 

8B430420 

8B430430 

8B430440 

8B430450 

8B430460 

8B430470 

8B430480 

8B430490 

8B430500 

8B430510 

88430520 

8B430530 

8B430540 

8B430550 

8B430560 

8B430570 

8B430580 

88430590 

8B430600 

8B430610 

8B430620 



PROG ID 
PAGE 



08B4-1 
23 



03F6 C01D 




LO 




N3C2 


LD /OOOO 


8B430630 




03F7 18C0 




RTE 







YJw A = /0000 0=/8000 


8B430640 




03F8 18C1 




RTE 




1 


/OOOO /4000 


8B430650 




03F9 18C2 




RTE 




2 


/OOOO /1000 


8B430660 




03FA 18C3 
03FB 18C4 




RTE 

RTE 




3 
4 


/OOOO /0200 
/OOOO /0020 


8B430670 
86430680 




03FC 18C5 




RTE 




5 


/OOOO /0002 


83430690 




03FD 18C6 




RTE 




6 


/0400 /OOOO 


89430700 




03FE )8CA 




KTE 




10 


/OO01 /OOOO 


83430710 




03FF F018 




EOR 




N3C6 


ZtRC WITH /OOOl 


8B430720 




0400 00 4C180405 




BSC 


1 


G3C4.+- 


BKANfH ON ZERO 


8B430730 




0402 00 44000F83 




BSI 


L 


FOOO 


SFRJES RTE FAILED 


83450740 




0404 3082 




DC 




/3082 


ERR ID 


8B430750 




0405 00 44000FB2 


G3C4 


SSI 


L 


FOOE 


CK LOCK ON ERROR 


8B430760 




0407 70EC 




MDX 




A3C4 


LOOP 


8B430770 




0*08 18D0 




RTE 




16 


NOW A=/0000 Q=/0001 


88430780 




0409 00 4C1804GE 




BSC 


L 


G3C6 t +- 


BRANCH UN ZERO 


8B430790 




0408 00 44000F63 




BSI 


L 


FOOO 


SERIES RTE FAILED 


8B430600 




040D 3083 




OC 




/3083 


ERR ID 


88430S10 




040E 00 44000FDE 


G3C6 


BSI 


L 


FOO^ 


CK LOCK ON ERROR 


8B430820 




0410 70E3 




MDX 




A3C4 


LOOP 


83430830 




0411 7007 




MDX 




A400 


EXIT TO NEXT ROUTINE 


8B430840 




0412 5555 


N3C0 


DC 




/5555 




8B430850 




0413 AAAA 


N3C1 


DC 




/AAAA 




8B430860 




0414 OOOO 


N3C2 


OC 




/OOOO 




8B430870 




0415 8000 


N3C3 


DC 




/8000 




8B430880 




0416 5554 


N3C4 


DC 




Z5554 




6B43089O 




0417 AAAS 


N3C5 


DC 




/AAAB 




8B430900 




04 18 000 1 


N3C6 

* 


DC. 




/0001 




8B430910 
8B430920 






* 






TEST 


OF SLA OPERATION 


8B430930 






* 










8B430940 






* * * ******* 


********** ****#**#***********#$$$$$ 


88430950 




C419 00 C40004BD 


A400 


LD 


L 


N-»OQ 


LD /FFFF 


86430960 




041 B 1800 




RTE 




16 


NO* As/XXXX C=/FFFF 


8B430970 




041C 00 C40004BO 




LD 


L 


N400 


LD /FFFF 


8B430980 




041E 1010 




SLA 




16 


NOW A=/0000 0=/FFFF 


BB430990 




041F 00 4C020424 




BSC 


L 


G40<;,c 


BR ON CARRY 


8B431000 




0421 00 44000F83 




BSI 


L 


FOOO 


SLA 16-CARRY FAILED 


88431010 




0423 3085 




DC 




/3085 


ERR ID 


8B431020 




0424 00 44000FB2 


G404 


3SI 


L 


FOOE 


CK LOCK ON ERROR 


88431030 




0426 70F2 




MDX 




A4U0 


LOOP 


8B431040 




0427 00 fC18042C 




BSC 


L 


G400.+- 


BRANCH ON ZERO 


8B431050 




0429 00 440G0F83 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


88431060 




042B 3084 




DC 




/3084 


ERR ID 


8B431070 




042C 00 44000FB2 


G400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B431080 




042E 70EA 




MDX 




64 00 


LOOP 


8B431090 




042 F 18D0 




RTE 




16 


NOW A=/FFFF 0^/0000 


8B431 100 




0430 00 F40004BD 




EOR 


L 


N400 


ZERO WITH /FFFF 


8B431110 




0432 00 4C180437 




BSC 


L 


CA06,t- 


BRANCH ON ZERO 


8B431120 




0434 00 44000F83 




BSI 


L 


FOOO 


SLA 16-AFFECTfcD C REG 


88431130 




0436 3086 




DC 




/3086 


ERR ID 


88431140 




043 7 00 4-.O0OFDE 


G40 6 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B431150 




0439 70DF 




MJJX 




A400 


LOOP 


83431160 






*■****************..!:*****#*****«:***$»£$,» *»,,*,,£$ 


88431170 




****************** ****»***»*,,** ***## *» **»**»********»*»»»„*» s # , t ,„.»,.„,,,. 


8B431180 




CORE DATA OR 


*LA- 


OPER- 








8B431190 




ADOR INSTRUCTlUN 


*BEL 


ATION 


FT 


OPERANDS * 


REMARKS ID+SEG- M RIGHT 


8B431200 




*** ******************** *******§;** 


i^*************************^^**^^^ 


8B4312I0 




Of3A 00 C40004C2 


A408 


LO 


L 


N405 


LD /OOOO 


8B431220 




043C 18D0 




RTE 




16 


NOW A=/XXXX 0=/0000 


8B431230 




043D 00 C40004C3 




LO 


L 


N406 


/FFFE /OOOO 


8B431240 




043F 1010 




SLA 




16 


/OOOO /OOOO 


8B-»31250 




0440 00 4C020443 




BSC 


L 


G407.C 


BR ON CARRY 


8B431260 




0442 7003 




MDX 




G40C 




8B431270 




0443 00 44000F83 


G407 


BSI 


L 


FOOO 


SLA 16- CARRY FAILED 


8B451280 




0445 3088 




OC 




/3088 


ERR ID 


8B431290 




0446 00 44000FB2 


G40C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B431300 
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415120A 415233 
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044 8 70F1 




MOX 




A408 


LOOP 


0449 00 4C18044E 




BSC 


L 


G408, ♦ - 


BRANCH ON ZERO 


044ft Ou 44000F83 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


044D *087 




DC 




/3087 


ERR ID 


044 E 00 44000FB2 


G408 


8SI 


L 


FOOE 


CK LOCK ON ERROR 


0460 70E9 




MDX 




A408 


LOOP 


0451 1800 




RTE 




16 


NOW A*/0000 C=/0000 


0452 00 4C130457 




BSC 


L 


G40E.+- 


BRANCH ON ZERO 


0454 OU 44000F83 




BS1 


L 


FOOO 


SLA 16-AFFECTED REG 


0456 3089 




DC 




/3089 


EPR ID 


0457 00 44000FDE 


G40E 


BSI 


1 


F005 


CK LOCK ON ERROR 


0459 70E0 




MDX 




A408 


LOOP 




»*»*«.»«** ***»#*»**»*»»**««*»***»»**»* **»**»»* 


045A C067 


B400 


ID 




N405 


ID /OOOO 


0458 1800 




RTE 




16 


NOW A-/XXXX Q*/0000 


045C C063 




LO 




N403 


LD /AAAA 


0450 1001 




SLA 




1 


NOW A = /5554 Q=/0000 


045E 00 4C020463 




BSC 


L 


H402.C 


BRANCH CN CARRY 


0460 00 44000F63 




BSI 


L 


FOOO 


SLA 1-CARRY FAUtD 


0462 308B 




DC 




/308B 


ERR 10 


0463 00 44000FB2 


H402 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0465 70F4 




MDX 




B400 


LOOP 


0466 F05A 




EOR 




N404 


ZERO WITH Z5554 


0467 03 4C18046C 




BSC 


L 


H400t+- 


BRANCH ON ZERO 


0469 00 44000F83 




b.,1 


L 


FOOO 


SLA 1-A REG FAILED 


046B 308A 




DC 




/308A 


ERR ID 


046C 00 44000FB2 


H40 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


046E 70EB 




MDX 




B400 


LOOP 


046F 18D0 




RTE 




16 


NOW A*/0000 Q=/5554 


0470 00 4C1 80475 




BSC 


L 


H404,*- 


8RANCH ON ZERO 


0472 00 44000F83 




BSI 


L 


FOOO 


SRA 1-AFFECTED REG 


047i 308C 




DC 




/308C 


ERR ID 


0475 00 44000FDE 


H4C4 


BSI 


L 


F005 


CK LOCK ON ERROR 


0477 70E2 




MDX 




B400 


LOOP 




• ****»»»«•**•**,*•* ***»*»«.♦*»*»»$*»»*»*«»$»»* 


0478 C049 


B406 


LO 




N405 


LD /OOOO 


0479 1800 




RTE 




16 


NOW A-/XXXX Q»/0000 


047A C044 




LD 




N402 


LD /5555 


047B 1001 




SLA 




1 


NOW A* /AAAA Qb/OOOO 


04 7C 00 4C02047F 




BSC 


L 


H407tC 


BR ON CARRY 


047E 7003 




MDX 




H405 




047F 00 44000F83 


H40 7 


BSI 


L 


FOOO 


SLA 1-CARRY FAILED 


04 8 1 308E 




DC 




/308E 


ERR ID 


0482 00 44000FB2 


H405 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0484 70Fi 




MDX 




B406 


LOOP 


0485 F03A 




EOR 




N403 


ZERO WITH /AAAA 


0486 00 4C18046B 




BSC 


L 


H406 t +- 


BRANCH ON ZERO 


0488 00 44000F83 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


04 8 A 3080 




OC 




/308D 


ERR 10 


0488 00 44000FB2 


H406 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0480 70EA 




MDX 




B406 


LOOP 


048E 1800 




RTE 




16 


NOW Ai/OOOO q=/aaaa 


046F 00 4C180494 




BSC 


L 


H408t+- 


BRANCH ON ZERO 


0491 00 44000F83 




BSI 


L 


FOOO 


SCA 1-AFFECTED REG 


049 3 308F 




DC 




/308F 


ERR ID 


0494 00 44000FDE 


H408 


BSI 


L 


F005 


CK LOCK ON ERROR 


0496 70E1 




MDX 




B406 


LOOP 




*»»»*»««»«*»»»*,,»»,«», *»**»**» n*,**^**,*^ 


****************»»*»***»»»*»**•****»***»♦* 


**»*«*t*** »*»»**«♦*♦***»**»»» 


CORE DATA OR 


*LA- 1 


OPER- 








AOOR INSTRUCTION 


♦BEL , 


ATION 


FT 


OPERANDS 


♦ REMARKS ID*SEO= AT RIGHT 


»*******»*»*******» 


i«it.ttt(««it)«j t >.it. 


********* ******** ************ 


0497 C02A 


B40A 


LD 




N4 05 


LD /OOOO 


0498 1800 




RTE 




16 


NOW A=/XXXX G«=/0G00 


0499 C024 




LD 




M401 


LD /0001 


049A 6101 




LDX 


1 


1 




049 B 6204 




LDX 


2 


4 




049C 6303 




LDX 


3 


3 




DATE 28FE866 


01MAY66 04N0V66 




EC NO. 415120 


415120A 415233 





8B431310 

8B431320 

8B431330 

8B431340 

6B431350 

8B431360 

8B431370 

8B431380 

8B431390 

8B43H0Q 

8B431410 

8B431420 

8B431430 

8B431440 

8B431450 

8B431460 

8B431470 

8B431480 

8B431490 

8B431500 

8B431510 

8B431520 

8B431530 

8B431540 

8B431550 

8B431560 

8B431570 

8B431580 

8B431590 

8B431600 

8B431610 

8B431620 

8B431630 

BB431640 

8B431650 

8B431660 

8B431670 

BB431680 

88431690 

8B431700 

88431710 

8B431720 

8B431730 

8B431740 

8B431750 

88431760 

8B431770 

8B431780 

8&4_1790 

8B^31800 

8B431810 

8B431820 

8B431830 

88431840 

88431850 

8B431860 

88431870 

8B431880 

88431890 

8B431900 

88431910 

8B431920 

83431930 

8B431940 

8B431950 

88431960 

8B431970 

8B431980 



PROG ID 
PAGE 



08B4- 1 
24 



049D 


1000 




SLA 







NOW A=/0001 0=/0000 


8B431990 




049E 


1100 




SLA 




1 


/0002 /OOOO 


8B4320O0 




049F 


1002 




SLA 




2 


/0008 /OOOO 


8B432010 




04 AO 


1200 




SLA 




I 


/ooeo /oooo 


6B432020 




04 A 1 


1006 




SLA 




6 


/2000 /OOOO 


8B432030 




04A2 


1300 




SLA 




i 


/OOOO /OOOO 


8B432040 




04 A 3 00 


4C0204A8 




BSC 


i 


H4 0D.C 


BRANCH ON CARRY 


8B432050 




04A5 00 


44000F83 




BSI 


I 


FOOO 


COMB SLA-CAKRY FAILED 


8B4J2060 




04A7 


3091 




DC 




/3091 


ERR ID 


8B432070 




04A8 00 


44000FB2 


H400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B432080 




04AA 


70EC 




MDX 




B40A 


LOOP 


8B432090 




04AB 00 


4C1804B0 




BSC 


L 


H4 0A,*- 


BRANCH CN ZERO 


8B432100 




04AD CO 


44000F83 




BSI 


L 


FOOO 


COMB SLA-A REG TAILED 


8B432110 




04AF 


3090 




DC 




/3090 


ERR ID 


8B4 3«120 




04B0 00 


44000FB2 


H40A 


BSI 


L 


FOOC 


CK LOCK ON IRRCR 


8B432130 




04B2 


70E4 




MDX 




B40A 


LOOP 


8B432140 




04B3 


18D0 




RTE 




16 




8B432150 




04B4 00 


4C1804B9 




BSC 


L 


H40C.+- 


BRANCH ON ZERO 


88432160 




04B6 00 


44000F83 




BSI 


L 


FOOO 


COMB SLA-AFFECTED 


8B432170 




04B8 


3092 




DC 




/3092 


ERR ID 


8B432180 




04 B9 00 


44000FDE 


H40E 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B432190 




04BB 


70DB 




MDX 




B40A 


LOOP 


8B432200 




04BC 


7007 




MDX 




A440 


EXIT TO NEXT ROUTINE 


8B432210 




04BO 


FFFF 


N-.00 


DC 




/FFFF 




8B432220 




04BE 


0001 


N401 


DC 




/0001 




8B432230 




04BF 


5555 


N402 


DC 




/5555 




8B432240 




04C0 


AAAA 


N403 


DC 




/AAAA 




8B432250 




04C1 


5554 


N404 


DC 




/5554 




83432260 




04C2 


OOOO 


N405 


DC 




/OOOO 




8B432270 




04C3 


FFFE 


N406 

* 
* 
• 


DC 




/FFFE 

TEST 


OF SLT OPERATION 


8B-.32280 
8B432290 
8B432300 
8B432310 








************* ****»♦*****»♦»**♦*»*»****»****** 


8B432320 




04C4 


C07E 


A440 


LD 




N440 


LD /0001 


8B432330 




04C5 


1800 




RTE 




16 


NOW A=/XXXX 0-Q=/0001 


83432340 




04C6 


C070 




LO 




N441 


LO /OOOO 


8B432350 




04C7 


10A0 




SLT 




32 


/OOOO 0=/0000 


8B432360 




04C8 00 


4C0204CD 




BSC 


L 


G44^,C 


BRANCH ON CARRY 


8B432370 




04CA 00 


44000F83 




6SI 


I 


FOOO 


SLT 32-CARRY FAILED 


8B432380 




04CC 


3094 




DC 




/3094 


ERR ID 


8B432390 




04CD 00 


44000FB2 


&442 


BSI 


L 


FOOfc 


CK LOCK ON ERROR 


8B432400 




04CF 


70F4 




MDX 




A440 


LOOP 


8B432410 




04D0 00 


4C1804D5 




BSC 


L 


G440,+- 


BRANCH ON ZERO 


8B432420 




04 02 00 


44000F8 3 




BSI 


L 


FOOO 


SLT 32-A REG FAILED 


' 8B432430 




04D4 


3093 




DC 




/3093 


ERR ID 


8B432440 




04D5 00 


44000FB2 


G440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B432450 




0407 


70EC 




MDX 




A440 


LOOP 


8B432460 




04D8 


18D0 




RTE 




16 


NOW A«/0000 C=/0000 


8B432470 




04 09 00 


4C1804DE 




BSC 


L 


G443.+- 


BRANCH CN ZERO 


8B432480 




04DB 00 


44000F83 




BSI 


L 


FOOO 


SLT 32-0 REG FAILED 


8B432-.90 




04D0 


3095 




DC 




/3095 


ERR ID 


BB432500 




04DE 00 


44000FDE 


G<-4 3 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B432510 




O4E0 


70E3 




MDX 




A440 


LOOP 


8B432520 








xtttttttntt ******************* ***t** t + *m*. 


834325 30 




♦**«t»»*»>»»»»««»** t »», M ,»»„,„»,^ # , < ,„ n , t , tn , t#M>tM($t(>t)1(ttttt 


8B432540 




CORE 


DATA OR 


*LA- 


OPER- 








8B432550 




ADOR 


INSTRUCTION 


*BEL 


ATION 


FT 


OPERANOS ♦ 


REMARKS ID+SEO* AT RIGHT 


8B432S60 




**»*****»***•*»*•***»** »»♦****»»»*»***»»»*♦**»»»****»*»»»*»♦»*»»♦**»»»» 


88432570 




04E1 


C063 


A444 


LD 




N442 


LD /FTFF 


8B432580 




04E2 


18D0 




RTE 




16 


NOW A=/XXXX C=/FFFF 


8B422590 




04E3 


C060 




LD 




|>I441 


LD /OOOO 


8B432600 




04E4 


1090 




SLT 




16 


NOW A=/FFFF Q=/0000 


8B432610 




04 E 5 00 


4C0204E8 




BSC 


L 


C446.C 


BR ON CARRY 


88432620 




04E7 


7003 




MDX 




G447 




88432630 




04E8 00 


44000F83 


G446 


BSI 


L 


FOOO 


SLT 16-CARRY TAILED 


8B432640 




04EA 


3097 




DC 




/3097 


ERR ID 


8B432650 




04 EB 00 


44000FB2 


G44 7 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B432660 




DATE 


28FEB66 


01MAY66 04N0V66 




PROG ID 
PAGE 


08B4- 1 
24A 


EC NO. 


415120 


415 12QA * 


15233 





OOOOOOOOOOOOOOOOOOOOO 000000 000 o o c 



OIOCOOOCOOOOOOOOOOCOOOCCOOOCOOOCOOC 
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04EG 
04EE 
04EF 
04F1 
04F3 
04 F 4 
U4F6 
04F7 
04F8 
04FA 00 
04FC 
04FD 00 
0*FF 






00 
00 



00 





00 




00 



00 






0500 

0501 

0502 
050 3 
0504 00 

0506 

0507 00 

0509 
Q50A 00 
050C 
0500 
050E 

0510 00 
0512 
0513 
0515 
0516 
0517 
0518 00 
0S1A 00 
051C 
051D 00 
05 IF 

*« ***** 
CORE 
AOOR 
»* »*»< « 
0520 
0521 
0522 
0523 
0524 
0525 
052 6 
052 7 

052 8 

0529 00 
0526 00 
0520 
052 E 00 

0530 

0531 00 
0533 00 

0535 

0536 00 

0538 

0539 
053A 00 
0S3C 00 

053 E 
053F 00 

0541 

0542 



70F3 

F056 

4C1804F4 

44000F63 

3096 

44000FB2 

70FA 

18D0 

4C1804FD 

44000F83 

3098 

44000FDE 

70E1 

C045 

18D0 

C041 

108F 

4C020507 

7003 

44Q00F83 

309A 

44000FB2 

70F3 

F039 

4C180513 

44QG0F63 

3099 

44000F82 

70EA 

18D0 

F030 

4C18051D 

44Q0CT83 

3098 

44000*06 

70C* 

»* i < - ,<***** 
DATA OR 
INST ft"' I ION 

C022 

1800 

C021 

1080 

1081 

1085 

1087 

1089 

108A 

4CQ2052E 

44000F83 

3090 

44000FB2 

70EF 

4C180536 

44000F83 

309C 

44000FB2 

70E7 

18D0 

4C18053F 

4400 OF 8 3 

309E 

44000FDE 

700E 

7006 



G444 



G44 3 



***** 
A44A 



MDX 

EOR 

dSC 

SSI 

DC 

BS1 

MDX 

RTE 

BSC 

SSI 

DC 

BSI 

MDX 



A444 

N442 

G444,+- 

FOOO 

/3096 

FOOE 

A444 

16 

G448,*- 

FOOO 

/3098 

F005 

A444 



G44C 

G44 



G44A 



G44E 

***** 

** ** 
*LA- 
<BfL 

'. *»* 
B44C 



******************* 

LD 

RTE 

LD 

SLT 

BSC 

MDX 

8SI 

DC 

BSI 

MDX 

EOR 

8SC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N443 

16 

N441 

15 

G44C.C 

G44D 

FOOO 

/309A 

FOOE 

A44A 

N444 

G44A t +- 

FOOO 

/3099 

FOOE 

A44A 

16 

N445 

G44Et*- 

FOOO 

/309B 

F005 

A44A 

****<****<********* 
**********«<******* 
OPER- 
ATION FT Of I RANDS * 

***********.}»*<,;*** 



H44 3 



H44 



LD 

RTE 

LD 

SLT 

SLT 

SLT 

SLT 

SLT 

SLT 

BSC 

BSI 

DC 

BSI 

MDX 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 



N440 

16 

N441 



1 

5 

7 

9 

10 

H443tC 

FOOO 

/309D 

FOOE 

B440 

H440,< 

FOOO 

/309C 

FOOE 

B440 

16 

H444,+- 

FOOO 

/309E 

F005 

B440 

A480 



LOOP 

ZERO WITH /FFFF 
BRANCH ON ZERO 
SLT 16-A REG FAILED 
ERR ID 

CK LOCK ON ERROR 
LOOP 

NOW A=/0000 Q=/0000 
BRANCH ON ZERO 
SLT 16-0 REG FAILED 
ERR ID 

CK LOCK ON ERROR 
LOOP 
********************* 

LD /5S55 

NOW A=/XXXX 0=/5555 
/OOOO Z5555 
/2AAA /3000 

BR ON CARRY 

SLT 1S-CARRY FAILED 

ERR ID 

CK LOCK CN ESROS 

LOOP 

ZERO WITH /2AAA 

BRANCH ON ZERO 

SLT 15-A REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW A=/8Q00 G=/000G 

ZERO WITH /800O 

BRANCH ON ZERO 

SL T 15-Q REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 
******* » ««*****#***** 
******* <.,*******t*** ****** 

REMARKS ID+SEQ= AT RIGHT 
to *** • ********* *********** 
LO /0001 



NOW A=/XXXX 
LD /OOOO 
NOW A=/0000 
/OOOO 



C=/0001 



Q=/0001 
/0002 
/0040 
/2000 
/OOOO 
/OOOO 



/OOOO 

/OOOO 

/0040 

/OOOO 
BR ON CARRY 
COMB SLT-CARRY FAILED 
ERR ID 

CK LOCK Ori ERROR 
LOOP 

BRANCH ON ZERO 
COMB SLT-A REG FARE 
ERR ID 

CK LOCK ON ERROR 
LOOP 

NOW A=/0000 0=/0000 
BRANCH ON ZERO 
COMB*SLT-Q REG FAILE 
ERR ID 

CK LOCK ON ERROR 
LOOP 
EXIT TO NEXT ROUTINE 



8B432670 
8B432680 
8B432690 
8B432700 
8B432710 
8B432720 
88432730 
8B432740 
8B432750 
8B432760 
8B432770 
8B432780 
8B432790 
8B432800 
8B432810 
8B432820 
8B432830 
8B432840 
8B432850 
3B432860 
8B432870 
88432880 
89432890 
86432900 
8B432910 
8B432920 
88432930 
8B432940 
8B432950 
8B432960 
8<3432970 
8B432980 
8B432990 
88433000 
8B433010 
8B433020 
83433030 
8B433040 
83433050 
8B433060 
88433070 
88433080 
8S43309Q 
8B433100 
88433110 
8B433120 
8B433130 
88433140 
8B433150 
8B433160 
8B433170 
8B433180 
8B433190 
88433200 
8B433210 
8B433220 
8B433230 
8B433240 
8B433250 
8B433260 
8B433270 
8B433280 
8B433290 
8B433300 
8B433310 
8B433320 
8B433330 
8B433340 



DATE 



NO. 



tf&fIS 6 



01MAY66 
415120A 



888J 6 



F33 



ID 



O.B£l 



054 3 





0001 


N44 


DC 




/0001 




8B433350 




0544 





OOOO 


N44 1 


DC 




/OOOO 




8B433360 




0545 





FFFF 


N44 2 


DC 




/FFFF 




8B433370 




r >46 





5555 


N443 


oc 




/5555 




8B433380 




0547 





2AAA 


N444 


OC 




/2AAA 




8B433390 




054 8 





8000 


N44 5 

* 
* 
* 


DC 




/8000 

TEST 


OF STO OPERATION 


8B433400 
8B433410 
8B433420 
SB433430 










«¥****«***«*********«********«**»********»*** 


8B433440 




0549 





C019 


A480 


LD 




N4 80 


LD /OOOO 


834334i>0 




054 A 





001A 




STO 




N487 


STO /OOOO 


8B433460 




0548 





C018 




LD 




N481 


LD /FFFF 


S9433470 




054 C 


9 


C018 




LD 




N4fe2 


LD /OOOO 


8B433480 




0540 


00 


4C1 80552 




BSC 


L 


G480.+- 


BRANCH CN ZERO 


88433490 




054F 


00 


44000F83 




BSI 


L 


FOOO 


STO ZEROS FAILED 


8B433500 




0551 





309F 




DC 




/309F 


EPR ID 


68433510 




0552 


00 


44000FDE 


G480 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B433520 




0554 





70F4 




MDX 




A48C 


LOOP 


8B433530 










********************************************* 


8B433540 




0555 





COOE 


A482 


LD 




N481 


LO /FFFF 


8B433550 




0556 





000 E 




STO 




N482 




8B433560 




0557 





coos 




LD 




N480 


LD /OOOO 


8B433570 




0558 





COOC 




LD 




N462 


LD /FFFF 


8B433S80 




055 9 





FOQA 




EOR 




N481 


ZERO WITH /FFFF 


88433590 




055A 


00 


4C18055F 




BSt 


L 


G482.+- 


BRANCH ON ZFRO 


88433600 




055C 


00 


4400 0F83 




SSI 


I 


FOOO 


STO ONES FAILED 


8B433610 




055E 





30A0 




DC 




/30A0 


ERR ID 


8B433620 




055F 


00 


440QQFOE 


G482 


BSI 


t 


F005 


CK LOCK ON ERROR 


3B4 3 3630 




0561 





70F3 




MDX 




A4 82 


LOOP 


8B433640 




05o2 





7003 




MDX 




A4C0 


EXIT TO NEXT RCUTINE 


8B433650 




0563 





OOOO 


N480 


DC 




/OOOO 




8B433660 




0564 





FFFF 


N481 


DC 




/FFFF 




8R433670 




0565 





FFFF 


N482 

* 
* 

* 


OC 




/FFFF 

TEST 


CF STS CPERATION 


S8433680 
88433690 
8B433700 
8B433710 










*********** **********J,i*4«>****************S.S# 


8BA33720 




** *»4**3*** ********** **»******!»*****«■« *<i* 4 < 


■♦*******«.«*** ******* ******* 


&t-,}:tso 




CORE 




DATA OR 


*LA- 


OPER- 








6B4??7^ti 




ADOR 




INSTRUCTION 


*BEL 


ATION 


i FT 


OPERANDS « 


• REMARKS 10*SE0= AT RIGM 


CB&'Jl'TMJ 




************ *»«.*******(*«:******************************** ****** '****»?* 


884^3 760 




0566 





2000 


A4C0 


LDS 







SET C AND OF OFF 


8B433?70 




0567 


c 


285B 




STS 




N4C0 




884331*80 




0568 





C05A 




LD 




N4C0 




8B433790 




0569 


00 


4C18056E 




BSC 


I 


G4CG.+- 




88433300 




056 B 


00 


4 400 OF 83 




BSI 


L 


FOOO 


STS BAILED TO STORE 


8B433810 




056D 





30A1 




DC 




/30A1 


ERR ID 


8B433820 




056 E 


00 


44000FDf 


G4C0 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B433830 




0570 





70F5 




MDX 




A4C0 


LOOP 


88433840 










********************************************* 


8B433850 




0571 





COFF 


A4C2 


LD 




A4C2 




83433860 




0572 





2003 




LDS 




3 




8B433870 




0573 





2 84F 




STS 




N4C0 




8B433880 




0574 





FOFC 




EOR 




A4C2 




8B433890 




0575 


00 


4C18057A 




BSC 


L 


H4C3.+- 


BRANCH CN ZFRO 


8B433900 




0577 


00 


440001 83 




asi 


L 


FOOO 


ACC GO\t AFT LDS-STS 


88433910 




05 79 





30A3 




DC 




/30A3 


ERR ID 


83433920 




057A 


00 


4C02057D 


H4C3 


BSC 


L 


H4C2,C 


BR IF CARRY IS NO 


8B433930 




057C 





7003 




MDX 




G4C2 




88433940 




057D 


00 


44000F83 


H4C2 


BSI 


I 


FOOO 


STS NOT CLEAR CARRY 


8B433950 




057F 





30A2 




DC 




/30A2 


ERR ID 


8S433960 




0580 


00 


44000F62 


G4C2 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B433970 




0582 





70EE 




MDX 




A4C2 


LOOP 


8B433980 




0583 


00 


4C010586 




BSC 


L 


H4C4.C 


BR IF CARRY IS ON 


8B433990 




0585 





7003 




MDX 




G4C4 




88434000 




0586 


00 


44000F83 


H4C4 


BSI 


L 


FOOO 


STS NOT CLEAR OVERFLW 


8B434010 




0588 





30A4 




DC 




/30A4 


ERR ID 


8B434020 




DATE 
EC NC 




28FEB66 
415120 


OIK AY 66 
415120A 


04N0V66 




PROG ID 


0684- 1 


I. 


415233 




PAGE 


25A 
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05B9 


00 


44000F 62 


G4C4 


BSI 


L 


FOOE 


C* LOCK ON ERROR 


83434030 




058B 





70E5 




MDX 




A4C2 


LOOP 


83434040 




058C 





C036 




LO 




N4C0 




8B434050 




0580 





F036 




EOk 




N4CI 




8B434060 




05b E 


00 


4ClisOS93 




BSC 


L 


G4C6.+- 


BRANCH CN ZERO 


8B434070 




0590 


00 


4400 OF 83 




BSI 


L 


FOOO 


STS FAILED TO SI ORE 


88434080 




0592 





30A5 




DC 




/30A5 


ERR ID 


8B434090 




0593 


00 


44000FDE 


G4C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B434100 




059 5 





70DB 




MOX 




A4C2 


LOOP 


8B434110 










»*»****(. ************** ************ <■***«******* 


8B434120 




0596 





2002 


A4C8 


LOS 




2 


SET C CN OF OFF 


8B434130 




059 7 





2S2B 




STS 




N4C0 


SET /0002 IN N4C0 


8B434140 




0598 





282C 




STS 




N4C2 


SET /0002 IN N4C2 


8B434150 




0599 





C029 




LD 




N4Co 


LO /0002 


83434160 




C59A 





F02B 




EOR 




N4C3 


ZERO WITH /0002 


3B434170 




059B 


00 


4C1BQ5AQ 




BSC 


L 


G4C8,*- 


BRANCH ON ZERO 


BB434180 




059D 


00 


44000F83 




8S1 


L 


FOOO 


STS FAILED TO STORE 


8B434190 




059F 





30 A 6 




DC 




/30A6 


ERR ID 


8S43420C 




05AU 


00 


44000FU2 


&4C8 


BSI 


L 


FOOE 


CK LOCK ON ERRCR 


8B434210 




05A2 





7UF3 




MOX 




A4C8 


LOOP 


83434220 




05A3 





C021 




LO 




N4C2 


LD /0002 


8S434230 




05A4 


00 


4C1805A9 




BSC 


L 


G4CA,*- 


BRANCH ON ZERO 


8B434240 




05A6 


00 


4 *oo or 8 3 




BSI 


L 


FOOO 


STS NOT CLEAR CARRY 


88434250 




05A8 





30A7 




DC 




/30A7 


ERR 10 


88434260 




05A9 


00 


44000FOE 


C4CA 


BSI 


L 


F0C5 


CK LOCK ON ERROR 


8B434270 




05AB 





70EA 




MDX 




A4C8 


LOOP 


8B434280 










»***« 


************** ************* a>************ 


8B434290 




05AC 





2031 


A4CC 


LOS 




1 


SET C-OFF OF - CN 


8B434300 




05A0 





2815 




STS 




N4C0 


SET /0001 IN N4C0 


8B434310 




05AE 





2616 




STS 




N4C2 


SET /0001 IN N4C2 


68434320 




05AF 





C013 




LD 




N4C0 


LO /0001 


8S434330 




05B0 





F016 




FOR 




N4C4 


ZERO WITH /0001 


8B ,34340 




05B1 


00 


4C1805B6 




BSC 


L 


G4CC,«- 


BRANCH ON ZERO 


8B434350 




05B3 


00 


<*4000F83 




8SI 


L 


FOOO 


STS FAILED TO STORE 


8B434360 




05B5 





30A8 




DC 




/30A8 


ERR ID 


8B434370 




05B6 


00 


44QO0F82 


1,40 C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B434380 




05B8 





70F3 




MOX 




A4CC 


LOOP 


8B434390 




05 B9 





COOB 




LD 




N4C2 


LO /0001 


8B434400 




05BA 


00 


4C1805BF 




BSC 


L 


G4CD,*- 


BRANCH ON ZERO 


8B434410 




05BC 


00 


44000F83 




BSI 


L 


FOOO 


STS NOT CLEAR OVERFL 


8B434420 




05BE 





30A9 




DC 




/30A9 


ERR 10 


8B434430 




05BF 


00 


44000FDE 


G4C0 


BSI 


L 


F005 


CK LOCK ON ERROR 


88434440 




05C1 





70EA 




MOX 




A4CC 


LOOP 


8B434450 




05C2 





7005 




MDX 




A500 


EXIT TO NEXT ROUTINE 


8B434460 




05C3 





0003 


N4C0 


DC 




/0003 




8B434470 




05C4 





0003 


N4C1 


OC 




/0003 




8B434480 




05C5 





OOOO 


N4C2 


DC 




/OOOO 




8B434490 




05C6 





0002 


N4C3 


DC 




/0002 




8B434500 




05C7 





0001 


N4C4 

• 
• 
• 


DC 




/0001 

TEST 


OF BSC OPERATION 


8B434510 
8B434520 
8B434530 
8B434540 










**«*«**«***««*4 *»«***** ******** ************** 


8B434550 




•ft************************************* ******************************** 


8B434560 




CORE 




DATA OR 


»LA- 


OPER- 








8B434570 




AODR 




INSTRUCTION 


• BEL 


ATION 


FT 


OPERANDS ♦ 


REMARKS ID+SEQ- AT RIGHT 


8B434560 




*********»»#*** ********************************************************* 


8B434590 




05C8 





2003 


A500 


LDS 




3 


SET C ANO OF ON 


8S434600 




05C9 


00 


C400065C 




LD 


L 


N500 


LD /8001 


3B434610 




05CB 





482F 


• 


BSC 




O+EZC 


SK IF OF OFF, PLUS, EVEN, 
* ZERO OR CARRY OFF. 


8B434620 
8B434630 




05CC 





700 3 




MDX 




G500 




8B4 34640 




05C0 


00 


4400 OF 83 




BSI 


L 


FOOU 


BSC SKPC-SHOULO NOT 


8B434650 




05CF 





30AA 




OC 




/30AA 


ERR ID 


8B434660 




0500 


00 


44000FDE 


G500 


BSI 


L 


F005 


CK LOCK ON ERROR 


88434670 




05D2 





70F5 




MDX 




A500 


LOOP 


8B434680 










************************ 


********************* 


8B434690 




0503 





2003 


A502 


LDS 




3 


SET C ♦ OF ON 


8B434700 




DATE 




28FEB66 


01MAY66 


04NOV66 




PROG 10 


0BB4- 1 


EC NO 


. 


415120 


415120A 


♦15233 




PAGE 


26 



0aD4 


00 


C400065D 




LD 


L 


N501 


LD /OOOO 


8B434710 




0506 





481B 


* 


BSC 




-0C + 


SK IF MINUS, OF OFF, CARRY 
*OFF OR PLUS 


8B434720 
8B434730 




05D7 





7003 




MDX 




G502 




BB434740 




05D8 


00 


44000FB3 




BSI 


L 


FOOO 


BSC SKPC-SHOULD NOT 


8B434750 




ObDA 





30AB 




DC 




/30AB 


ERR ID 


8B434760 




05DB 


00 


44000FDE 


G50? 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B434770 




05DD 





70F5 




MDX 




A502 


LOOP 


8B434780 










«-************•*******•**•*****••********•**** 


8B434790 




05DE 





2003 


A504 


LOS 




3 


SET C AND OF ON 


8B434800 




05DF 





C07E 




LD 




N502 


LD /8000 


8B434810 




05E0 





2809 




STS 




N507 


SET /0003 IN N507 


8B434820 




05E1 





4815 




BSC 




0-E 


SK IF OF OFF, MUNIS OR EVEN 


8B434830 




05E2 





7001 




MDX 




G504 




684,34840 




05fc3 





7003 




MDX 




G505 




8B434850 




05E4 


00 


44000F83 


G504 


BSI 


L 


FCOO 


BSC FAILEO TO SKIP 


8B434860 




05E6 





30AC 




DC 




/30AC 


ERR ID 


8B434670 




0i>E7 


00 


44000F62 


G505 


BSI 


L 


FOOE 


CK LOCK CN ERRCR 


8B434880 




05E9 





70F4 




MDX 




A504 


LOOP 


8B434890 




05EA 





2000 


N50 7 


LDS 







SET C + OF OFF 


8B434900 




05EB 





4801 




BSC 







SKIP IF OVERFLOW IS OFF 


88434910 




05EC 





4801 




BSC 









8B434920 




05E0 





7001 




MDX 




G506 




8B434930 




05EE 





7003 




MDX 




G507 




8B434940 




05EF 


00 


44000F8 3 


G506 


BSI 


L 


FOOO 


BSC NOT CLEAR CVERFLW 


8B434950 




05F1 





30AD 




DC 




/30A0 


ERR ID 


8B434960 




05F2 


00 


44000F0t 


G507 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B434970 




05F4 





70E9 




MDX 




A 504 


LOOP 


8B434980 










********************************************* 


8B434990 




05F5 





2000 


A508 


LOS 







SET C ANO CF OFF 


8B435000 




05F6 





C068 




LD 




N503 


LO /0001 


8B435010 




05F7 





482A 


* 


BSC 




C + Z 


SK IF CARRY CFF, PLUS 
* OR ZERO 


8B435020 
88435030 




05F8 





7001 




MDX 




G508 




8B435040 




05F9 





7003 




MDX 




H508 




8B435050 




05FA 


00 


44000F83 


G508 


BSI 


L 


FOOO 


BSC FAILED TO SKIP 


8B435060 




05FC 





30AE 




DC 




/30AE 


ERR ID 


8B435070 




05F0 


00 


44000FDE 


H508 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B4350B0 




05FF 





70F5 




MDX 




A508 


LOOP 


8B435090 










********************************************* 


8B435100 




0600 





2003 


A50A 


LDS 




3 


SET C AND OF ON 


88435110 




0601 





C05A 




LO 




N500 


LD /8001 


8B435120 




0o02 


00 


4C0F0613 


* 


BSC 


L 


G50A.+0CE 


BR CN NCT PLUS, OF ON, 
* CARRY ON OR NOT EVEN 


8B435130 
8B435140 




0604 





7001 




MDX 




H50A 




88435150 




0605 





7007 




MOX 




J50A 




8B435160 




0606 


00 


4400 0F83 


H50A 


BSI 


L 


FOOO 


BSC FELL THRU 


8B435170 




0608 





30AF 




OC 




/30AF 


ERR ID 


834351B0 




0609 


00 


44000FB2 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B435190 




060B 





70F4 




MDX 




A50A 


LOOP 


6B435200 




060C 





7006 




MOX 




G50A 




8B435210 




06 OD 


00 


44000F83 


J50A 


BSI 


L 


FOOO 


BSC SKPC-SHOULD BRNCH 


8B435220 




060F 





30B0 




DC 




/3080 


ERR ID 


8B435230 




0610 


00 


44000FB2 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B435240 




0612 





70ED 




MDX 




A50A 


LOOP 


8B435250 




0613 





F048 


G50 i 


EOR 




N500 


ZERO WITH /8001 


8B435260 




0614 





4 820 




BSC 




Z 


SK CN ZERO 


8B435270 




0615 





7001 




MOX 




H50B 




8B435280 




0616 





7003 




MDX 




K50B 




8B435290 




0617 


00 


44000F83 


H50B 


BSI 


L 


FOOO 


ACC DISTPOYEO AFTER BSC 


8B435300 




0619 





3170 




OC 




/3170 


ERR ID 


8B435310 




061A 


00 


44000FDE 


K50B 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B435320 




061 C 





7000 




MOX 




A50C 


EXIT TO NEXT ROUTINE 


6B435330 










♦♦is***************************************** 


8B435340 




*********************************************************************** 


88435350 




CORE 




DATA OR 


*LA- 


OPER- 








8B435360 




AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS + 


REMARKS ID+SEO* AT RIGHT 


88435370 




**************************************************** S*********,******** 


8B435380 




GATE 




28FEB66 


01MAY66 


04N0V66 




PROG ID 


08B4-1 


EC NO. 


415120 


415120A 


415233 




PAGE 


26A 



oooooooooooooooooooooooooooooooooc 



OJOOOOOOCOOCCOCOCOCOOCOOOCOCOOOOOOC 
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0610 


2003 


ASOC 


IDS 




3 


SET C ♦ OF ON 


06 IE 


C041 




LD 




NS04 


LD /0OO4 


061F 00 


4C300623 




BSC 


L 


G5QC-Z 


BR NOT MINUS OR NOT ZERO 


0621 


7002 




MOX 




H50C 




062 2 


7003 




mdx 




J50C 




062 3 


700A 


GSOC 


MDX 




K50C 


, 


0624 00 


44000F83 


HbOC 


BSI 


L 


FOOO 


BSC FELL THRU 


0626 


3US1 




DC 




/30B1 


ERR ID 


0627 00 


44000FDE 




BSI 


i 


F005 


CK LOCK ON ERROR 


0629 


70F3 




MDX 




A50C 


LOOP 


062A 


7006 




MOX 




ASOE 




06?B 00 


440QOF83 


J50C 


BSI 


t 


FOOO 


BSC SKPD-SHOULD BRNC 


062 


3082 




DC 




/30B2 


ERR ID 


06 2 E 00 


4400CF0E 


KSOC 


BSI 


1. 


F005 


CK LOCK ON ERROR 


0630 


70EC 




MDX 




ASOC 


LOOP 


0631 


2000 


ASOE 


LOS 







SET C AND OF OFF 






«» ( *»t«.-»tt»*»»«i*« **»*********#*** ********** 


0632 


2003 , 




IDS 




3 


SET C AND OF ON 


063 3 


C02S 




LO 




N500 


LD /8001 


0634 00 


4C3F0618 


* 
* 


asc 


L 


G50E.+E0CZ 


- BR ON NOT PLUS, NOT EVEN, 
»0F, CARRY, NOT ZERO OR 
♦ NOT MINUS 


0636 


7008 




MDX 




hsoe 




0637 


700? 




MDX 




J50E 




063 8 00 


"QOGF83 


G50E 


BSI 


L 


FOOO 


BSC BRNCHED-SHOULDNT 


063* 


30B3 




DC 




/30B3 


ERR SO 


0e3B 00 


44000FD6 




BSI 


I 


POOS 


CK LOCK ON ERROR 


063 D 


70F3 




MUX 




A50E 


LOOP 


063 E 


7006 




MDX 




8500 




063F 00 


44G0QF 83 


J50E 


BSI 


i. 


FOOO 


BSC SKPD-SHOULDNT 


0641 


30B4 




DC 




/30B4 


ERR ID 


0642 00 


44000FDE 


H50E 


BSI 


1 


F005 


CK LOCK ON ERROR 


0644 


706C 




MOX 




A50E 


LOOP 






****»*******«.#********.************«.******««#♦ 


064 5 


2003 


6500 


LDS 




3 


SET C AND OF ON 


0646 


C018 




LD 




N503 


LD /0001 


0647 


48D8 




BSC 




♦ 


SK ON PLUS 


064 8 


700C 




MDX 




S501 




G64 9 


281? 




STS 




N505 


SET /0003 IN N505 


064 A 


C0..6 




LD 




N505 


LD /0003 


064 a 


FOlfe 




EOR 




N506 


ZERO WITH /0003 


064 C 00 


40180658 




asc 


I 


S503 f «- 


BRANCH ON ZERO 


064 F. 00 


4'»000f 8 3 




BSI 


L 


FOOO 


BSC ♦ CLEARED OVFLW 


0650 


3065 




DC 




/30B5 


ERR ID 


065.1 00 


440.. 0' DC 




BSI 


L 


F005 


CK LOCK ON ERROR 


06 S3 


70FI 




MDX 




8500 


LOOP 


0654 


7001 




CDX 




A540 


EXIT TO NEXT ROUTINE 


06S!> 00 


44000FS3 


S501 


BSI 


L 


FOOO 


BSC FAILED TO SKP 


0657 


3086 




DC 




/30B6 


ERR ID 


065 8 00 


44000F0E 


S503 


BSI 


1 


F005 


CK LOCK ON ERROR 


06 5 A 


70EA 




MDX 




9500 


LOOP 


065 B 


7007 




MDX 




A540 


EXIT TO NEXT ROUTINE 


06 «<C 


8001 


N500 


DC 




/8001 




0650 


0000 


N501 


DC 




/oooo 




065 E 


8000 


N50Z 


DC 




/8000 




065F 


0001 


N503 


DC 




/OOO! 




066 


0004 


N504 


DC 




/0004 




0661 


0000 


N505 


DC 




/OOOO 




066 2 


0003 


N506 

• 


ec 




/0003 





• TEST OF BSI OPERATION 

« 

************* ******************* ************* 
******•*•***•«*******»«*»•**••*************************»*********,*«**** 
CORE OATA OR »LA- OPER- 

ADOK INSTRUCTION *BEL AT ION FT OPERANDS + REMARKS IO+SEC* AT RIGHT 

**************** *»*«•»* ******** ************************ **************** 

0663 2003 A540 LOS 3 SET C AND OF ON 



DATE 
EC NO. 



28FEB66 01MAV66 
415120 415120A 



04N0V66 
415233 



8B43S390 

8B435400 
8B435410 

88435420 

8B435430 

88435440 

88435450 

8B435460 

8B435470 

3B435480 

8B435490 

88435S00 

8B435510 

8B435520 

8B435S30 

8B435540 

8B435550 

88435560 

8B435570 

8B435580 

88435590 

8B435600 

8B435610 

8B435620 

8B435630 

8B435640 

88435650 

8B433660 

8B435670 

SB435680 

8B435690 

8B435700 

8B435710 

8B435720 

8B435730 

88435740 

8B435750 

88435760 

8B435770 

8B435780 

88435790 

88435800 

8B435810 

8B43502O 

8B435830 

8B435840 

8B435850 

8B435860 

8B435870 

8B435880 

8B43589© 

8B435900 

8B435910 

8B435920 

8B435930 

8B435940 

8B435950 

8B435960 

8B435970 

8B435980 

8B435990 

8B436000 

8B436010 

8B436020 

8B436030 

8B436040 

8B436050 

8B436060 



PROG ID 
PAGE 



08B4-1 
27 



0664 00 


f400070B 




LD 


L 


N540 


LD /8001 


8S436070 




0666 00 


442F0678 




BSI 


L 


G540.EC0 


+Z BR CN NOT EVEN, CARRY, OF, 


8B4 36080 




066 8 


7001 




MUX 




H540 


* NCT PLUS OR NOT ZERO 


8B436090 




066 9 


7007 




MOX 




J540 




8B436100 




066A 00 


44000F83 


H540 


BSI 


L 


FOOO 


BSI FELL THRU 


8B436110 




066 C 


30B7 




DC 




/30B7 


ERR ID 


8B436120 




0660 00 


44000FB2 




SSI 


L 


FOOE 


CK LOCK ON fcRROk 


8B436130 




066F 


70F3 




MOX 




*540 


LOOP 


8B436140 




0670 


7016 




MDX 




AS 4 


EXIT TO NEXT ROUTINE 


8B436150 




0671 00 


44000F83 


J540 


BSI 


L 


FOOO 


BSI SKPD-SHOULD BRNCH 


8B436160 




067 3 


308 8 




DC 




/30B8 


ERR ID 


8B436170 




06 74 00 


44000FB2 




BSI 


L 


FCOE 


CK I OCX ON ERROR 


8B436180 




067 3 


70CC 




MDX 




A540 


LOOP 


8B436190 




067? 


7001 




MDX 




G54Q+1 


SK TO WORD AFTER G540 


88436200 




0678 


0000 


G540 


DC 




/OOOO 




88436210 




0679 00 


2C00O7OC 




STS 


t. 


N541 


STORE /0002 IN N54I 


8B436220 




0673 00 


C«»00070C 




LD 


L 


N541 


LD /0002 


8B436230 




C67D 00 


F4000700 




EUR 


L 


N542 


ZERO WITH /0002 


8B436240 




067F 00 


4C180684 




BSC 


L 


G542,*- 


BRANCH ON ZERO 


8B436250 




0681 00 


44Q00F63 




BSI 


L 


FOOO 


BSI NOT CLEAR OVERFLOW 


8B436260 




0683 


3089 




DC 




/30B9 


ERR ID 


8B436270 




0664 00 


44000FDt 


G54 2 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B436280 




0686 


70DC 




MDX 




4540 


LOOP 


8B436290 








********************************************* 


89436300 




068 7 00 


C400070D 


AS44 


LD 


I 


N542 


LD /0002 


8B436310 




0689 00 


443006^8 




BSI 


i. 


G544,?- 


SK CN NOT ZERO OS 


8B436320 




0o8B 


7001 




MOX 




H544 


* NCT MINUS 


8B436330 




06 6C 


700? 




MDX 




J 544 




88436340 




0680 00 


44QO0F33 


H544 


BSI 


L 


FOOO 


BSI DID NOT BRANCH 


88436350 




068F 


303A 




DC 




/30BA 


ERR ID 


8B436360 




0690 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERRCR 


8B436370 




0692 


70F4 




MDX 




A 5 44 


LOOP 


8B436380 




0693 


7008 




MDX 




A 546 


EXIT TO NEXT ROUTINE 


88436390 




0694 00 


4400GF83 


J544 


BSI 


L 


FOOO 


BSi SKPO-SHOULD BRNC 


88436400 




0696 


308B 




DC 




/30SB 


ERR ID 


88436410 




0697 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


88436420 




0699 


TOED 




MDX 




A544 


LOOP 


8B436430 




069A 


7001 




MDX 




A546 


EXIT TO NEXT ROUTINE 


8B436440 




069 B CI 


0000 


GS4 4 


DC 




/OOOO 




8B436450 








***#**£*****&*«.* **i»**-*******$i|,****,5,**at»*$*** 


83436460 




069C 


C071 


A546 


LD 




N543 




8B436470 




069D 00 


442G06A1 




BSI 


L 


G546.Z 


8R WHEN NOT ZERO 


85436460 




069F 


700C 




MDX 




J546 




6B436490 




06A0 


7008 




MDX 




H54& 




8B436500 




06A1 


0000 


G546 


DC 




/OOOO 




88436510 




06A2 00 


44000F83 




8S1 


L 


FOOO 


BSI BRNCHD-SHOULD NO 


SB436520 




06A4 


30BC 




DC 




/30BC 


ERR ID 


88436530 




06A5 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


88436540 




06A7 


70F4 




MDX 




A546 


LOOP 


88436550 




06A8 


7006 




MDX 




A548 


EXIT TO NEXT ROUTINE 


88436560 




06A9 00 


44000F83 


H546 


BSI 


L 


FOOO 


BSI SKPD-SHOULD NOT 


8B436570 




06AB 


30BD 




DC 




/30BD 


ERR ID 


83436580 




06AC 00 


44000FDE 


J546 


3S1 


L 


F005 


CK LOCK ON ERROR 


8B436590 




06 A E 


TOED 




MDX 




A546 


LOOP 


8B436600 








***********$$**£*#*********»*<■********$****** 


8B436610 




********* S-************t ****************»**<. *<**********************<,*».* 


8B436620 




CORE 


DATA OR 


*LA- 


OPER- 








88436630 




ADDR 


INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


+ REMARKS ID+SEQ= AT RIGHT 


8843 664 




«»»«t***»»t*»*«j»M»«t4tt»t»»**««t»«»t»;«t«»tHt**»t*«*»«»**t< ******* 


SB436650 




06AF 


C05B 


4548 


LD 




N540 




88436660 




0680 00 


441C06BA 




BSI 


L 


G548,- 


BR WHEN NOT Ml'iUS 


86436670 




06B2 


700B 




MDX 




H548 




88436680 




06B3 00 


44000F83 




BSI 


L 


FOOO 


BSI SKP-ON COND TRUE 


8B436690 




06B5 


30BF 




DC 




/30BF 


ERR ID 


8B436700 




06B6 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


88436710 




06B8 


70F6 




MDX 




A548 


LOOP 


8B436720 




06B9 


7007 




MDX 




A54A 


EXIT TO NEXT ROUTINE 


8B436730 




06BA 


0000 


G548 


DC 




/OOOO 




8B436740 




DATE 
EC NO. 


28FEB66 


01MAY66 04N0V66 




PROG ID 
PAGE 


0884- 1 


415120 


415120A 415233 




27A 
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06bB 00 


44000F8 3 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


88436750 




OtibD 


30BF 




OC 




/30BF 


ERR iD 


8B436760 




06BE 00 


«iOOOFDE 


H54 8 


esi 


L 


F005 


CK LOCK ON ERROR 


8B436770 




O&CO 


70EE 




MDX 




A54S 


LOOP 


8B436780 








******************* ********$** *************** 


8B436790 




06C1 


C04B 


A54A 


LD 




N542 




8B436800 




06C2 00 


4408C6CC 




SSI 


L 


G54A, ♦ 


BR WHFN NOT PLUS 


8B436810 




0oC4 


700B 




MDX 




H54A 




8S436820 




06C5 00 


4400 0F83 




BSI 


L 


FOOO 


SSI SKPD ON COND TRUE 


8B436830 




06C7 


JOCO 




DC 




/30C0 


ERR 10 


8B436840 




06C8 00 


44000FDE 




BSJ 


L 


F005 


CK LOCK ON ERROR 


8B436850 




06CA 


70F6 




MDX 




A54A 


LOOP 


8B43&860 




06C3 


7007 




MDX 




A54C 


EXIT TO NEXT ROUTINE 


8B436870 




06CC 


0000 


GS4A 


OC 




/oooo 




83436880 




06CD Ou 


4400 OF 8 3 




BSI 


t 


FOOO 


SSI BRNCHD-SHOULD NOT 


8B436890 




06CF 


30C1 




DC 




/30C1 


ERR ID 


8B436900 




0600 00 


44UU0I DE 


H5'iA 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B4 36910 




06D2 


70EE 




MOX 




A54A 


LOOP 


8B436920 








********************************************* 


38436930 




06D3 


C039 


A54C 


LD 




N542 




8B436940 




06D4 00 


4404 060 E 




dSI 


L 


G54C.E 


BR WHEN NOT EVEN 


8B436950 




06D6 


fCUB 




MDX 




H54C 




8B436960 




0607 CO 


'.400 OF 8 3 




BSI 


I 


FOOO 


BSI SKPD ON COND TRUE 


8B436970 




0609 


J0C2 




DC 




/30C2 


ERR ID 


8B436980 




060A 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


8B436990 




06DC 


70F6 




MDX 




A 5 40 


LOOP 


8B437000 




06DO 


7007 




MOX 




A54E 


EXIT TO NEXT ROUTINE 


88437010 




060E 


0000 


G54C 


DC 




/OOOO 




8B437020 




Q6DF 00 


44000F83 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


8B437030 




06E1 


30C3 




DC 




/30C3 


ERR ID 


88437040 




Q6E2 00 


4*000FDfc 


H54C 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B437050 




06E4 


70EE 




MDX 




A54C 


LOOP 


88437060 








********************************** *********** 


8B437070 




06fc5 


20oO 


A54E 


LOS 







SET C AND OF OFF 


8B437080 




06E6 00 


44O206F0 




BSI 


L 


G54F.C 


BR IF CARRY IS ON 


88437090 




06F8 


7U0B 




MDX 




H54E 




8B437100 




C6E9 no 


44000F83 




BSI 


L 


FOOO 


BSI SKPD ON COND TRUE 


8B437110 




06E8 


30C4 




DC 




/30C4 


ERR ID 


8B437120 




Oe.EC 00 


44000FOE 




BSI 


L 


F005 


CK LOCK ON ERROR 


8B437130 




06EE 


70F6 




MDX 




A54E 


LOOP 


8B437140 




06EF 


7007 




MDX 




A54F 


EXIT TO NEXT ROUTINE 


66437150 




06F0 


0000 


G54E 


DC 




/OOOO 




8B437160 




06F1 00 


4400 0F83 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


8B437170 




06F3 


30C5 




DC 




/30C5 


ERR ID 


8B437180 




06F4 00 


44000FDE 


H54E 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B437190 




06F6 


70EE 




MDX 




A54E 


LOOP 


8B-»37200 








******* »*«*»t. ****************** ************** 


8B437210 




06F7 


2000 


A54F 


LDS 







SET C AND OF OFF 


8B437220 




06F8 00 


4401C703 




BSI 


L 


G54F.0 


BR ON OVERFLOW 


8B437230 




06FA 


700C 




MOX 




H54F 




8B437240 




06FB 00 


44000F83 




BSI 


L 


FOOO 


BSI SKPC ON COND TRUE 


8B437250 




06F0 


30C6 




DC 




/30C6 


ERR ID 


8B437260 




06FE 


30C6 




OC 




/30C6 


ERR 10 


8B437270 




06FF 00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


8B437280 




0701 


70F5 




MDX 




A54F 


LOOP 


8B437290 




0702 


700C 




MDX 




A580 


EXIT TO NEXT ROUTINE 


8B437300 




0703 


0000 


G54F 


DC 




/OOOO 




88437310 




0704 00 


441MJ0F83 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


8B437320 




0706 


30C7 




DC 




/30C7 


ERR ID 


8B437330 




0707 00 


44000FDE 


H54F 


BCI 


L 


F005 


CK LOCK ON ERROR 


8B437340 




0709 


70ED 




MDX 




A54F 


LOOP 


8B437350 




070A 


7004 




MDX 




A580 


EXIT TO NEXT ROUTINE 


8B437360 




070B 


8001 


N540 


DC 




/8001 




8B437370 




070C 


0000 


N541 


DC 




/OOOO 




8B437380 




0700 


0002 


N542 


DC 




/0002 




8B437390 




070E 


0000 


N543 

• 
• 


DC 




/OOOO 

TEST 


OF LOD OPERATION 


8B437400 
88437410 
8B437420 




DATE 


2eFtB66 


01MAY66 


04NQV66 




PROG ID 


08B4-1 


EC NO. 


415120 


41S120A 


415233 




PAGE 


28 









* 










8B437430 










********************************************* 


8B437440 




*********************** ******* 


* ***************** -***********»********** 


8B437450 




CORE 




DATA OR 


*LA- 


OPER- 








8B437460 




ADDR 




INSTRUCT ION 


*BEL 


ATION 


FT 


OPERANDS 


+ REMARKS I0 + SEQ= AT R 1 GnT 


8B437470 




******************************* ***** ************************* ********** 


8B437480 




070F 





C838 


A580 


LDD 




N581 


LDD A=/0000 0=/0000 


8B437490 




0710 


00 


4C180715 




BSC 


L 


G580.+- 


BRANCH ON ZERO 


8B437500 




C712 


00 


44000F83 




BSI 


L 


FOOO 


1 DD-A REG INCORRECT 


8B437510 




0714 





30C8 




DC 




/30C8 


ERR ID 


8B437520 




0715 


00 


44000FB2 


G580 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B437530 




0717 





70F7 




MDX 




A580 


LOOP 


8B437540 




0718 





1800 




RTE 




16 




8B437550 




0719 


00 


4C18071E 




BSC 


L 


G582.+- 


BRANCH ON Z^RC 


8B437560 




071B 


00 


44000F83 




BSI 


L 


FOOO 


LDD-C PEG INCORRECT 


8B437570 




0710 





30C9 




DC 




/30C9 


ERR ID 


SB437'580 




07 IE 


00 


44000FDE 


G582 


SSI 


L 


F005 


CK LOCK ON ERROR 


8Bh37590 




072 





70EE 




MDX 




A580 


LOOP 


8B437600 










************* 


***■ ****** ******** *************** 


BB437610 




0721 





C828 


A584 


LDD 




J583 


LD A=/FFFF Q=/FFFF 


8B437620 




0722 





F028 




EDR 




N584 


ZERO WITH /FFFF 


8B437630 




0723 


00 


4C 180728 




BSC 


L 


G584,+- 


BRANCH CN ZERO 


8B437640 




0725 


00 


44000F83 




BSI 


L 


FOOO 


LDD-A REG INCORRECT 


8B437650 




0727 





30CA 




DC 




/30CA 


ERR ID 


8B437660 




0728 


00 


44000FB2 


G584 


BSI 


L 


FOOE 


tK LOCK ON ERROR 


8B437670 




072A 





70F6 




MDX 




A584 


LOOP 


8B437680 




0723 


a 


18D0 




RTE 




16 


NOW A=/FFFF C=/0000 


eB437690 




072C 





F01E 




EOR 




N584 


ZERO WITH /FFFF 


8B437700 




07ZD 


00 


4C180732 




BSC 


I 


G586t+- 


BRANCH ON ZERO 


8B437710 




072F 


00 


44000F83 




BSI 


L 


FOOO 


LDD-Q REG INCORRFCT 


8B437720 




0731 





30CB 




DC 




/30CB 


ERR ID 


8B437730 




0732 


00 


44000FDE 


G586 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B437740 




0734 





70EC 




MDX 




A564 


LOOP 


8B437750 










************************# ************ ******** 


8B437760 




0735 





C813 


A58B 


LDD 




N582 


LD A^/0000 0=/FFFF 


8B437770 




0736 


00 


4C 1607 3B 




BSC 


I 


G588.+- 


BRANCH ON ZERO 


8B437780 




0738 


00 


44000F83 




BSI 


L 


FOOO 


LDD ODD-A REG FAILED 


8B437790 




073A 





^OCC 




DC 




/30CC 


ERR ID 


8B437800 




073B 


00 


44000FB2 


G588 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B437810 




073D 





70F7 




MDX 




A588 


LOOP 


8B437820 




073E 





18D0 




RTE 




16 


NOW A=/FFFF 0=/0000 


8B437830 




073F 


00 


4C 180744 




BSC 


L 


G58A.+- 


BRANCH ON ZERO 


8B437840 




0741 


00 


44000F83 




BSI 


L 


FOOO 


LDD-ODD-Q REG FAILED 


8B437850 




074 3 





30CD 




DC 




/30CD 


ERR ID 


8B437860 




0744 


00 


44000FDE 


G58A 


BSI 


L 


F005 


C< LOCK ON ERROR 


8B437870 




0746 





70EE 




MDX 




A588 


LOOP 


88437880 




0747 





7004 




MDX 




A5C0 


EXIT TC NEXT ROUTINE 


8B437890 




0748 




OOOO 




6SS 


E 






8B437900 




074 8 





OOOO 


N581 


DC 




/OOOO 




8B437910 




074 9 





OOOO 


N5B2 


DC 




/OOOO 




88437920 




074 A 





FFFF 


N583 


DC 




/FFFF 




8B437930 




074 B 





FFFF 


N584 

* 
* 
* 


DC 




/FFFF 

TEST 


OF STD OPERATION 


8B437940 
8B437950 
88437960 
8B437970 










********************************************* 


8B437980 




*********************************************************************** 


8B437990 




CORE 




DATA OP 


*LA- 


OPER- 








8B438000 




ADDR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


♦ REMARKS ID+SEO= AT RIGHT 


8B438010 




*************************************** * **** ****** ***** **** ************ 


8B438020 




074 C 





C84B 


A5C0 


LDD 




N5C1 


LD A«/0000 0«/0000 


6B438030 




0740 





D84E 




STD 




N5C5 




88438040 




074 E 





C04D 




LD 




N5C5 


LD A=/0000 0=/0000 


8B438050 




074F 


00 


4C180754 




BSC 


L 


G5C0.+- 


BRANCH ON ZERO 


88438060 




0751 


00 


4400 OF 8 3 




BSI 


L 


FOOO 


STD-EA INCORRECT 


88438070 




0753 





30CF 




OC 




/30CF 


ERR ID 


8B438080 




0754 


00 


44000FB2 


G5C0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B438090 




0756 





70F5 




MDX 




A5C0 


LOOP 


8B438100 




DATE 




28FEB66 


01MAY66 04N0V66 




PROG ID 


0884- 1 
28A 


EC NC 


1. 


415120 


415120A 415233 




PAGE 



oooooooooo.oooooooooooooooooooooooc 



OlOOCCCCCCCCCCCCCCCCOCCCCCCCCCOCOOC 
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219*471 
294 



0757 





C045 


0758 


00 


4C18Q75D 


073* 


00 


440Q0F83 


07SC 





30CF 


©75D 


m 


4«|OOUFOE 


075F 





70EC 


0760 





C037 


0761 





D03A 


0762 





D03A 


076* 





C836 


0764 





0837 


0765 





C036 


0766 





F033 


0767 


ou 


4C1807£C 


0769 


00 


44000f83 


07*8 





3000 


07«C 


01) 


44000F&2 


076E 





70F1 


C76F 





CG2D 


0770 





F029 


0771 


00 


4C180776 


077i 


00 


44U0UF83 


0776 





3031 


0776 


00 


44000FOI: 


0778 





70S 7 


0779 





C020 


077A 





Du21 


077B 





0021 


077C 





0021 


0770 





C81A 


077E 





081E 


Q7#F 





C018 


0780 





C01C 


078! 


00 


4C180786 


0783 


OU 


44Q00f-B3 


0785 





3032 


0786 


00 


««(0O0Fb2 


0788 





70? 


0789 





C014 


078A 





FOUf 


0788 


OU 


4C1R079U 


0780 


00 


44300^83 


076F 





40D3 


0790 


00 


4400UFDI 


0792 





70E6 


079 3 





Cooo 


0794 





0008 


0795 





DOOR 


0796 





7008 


0798 




0000 


0798 





0000 


0799 





0000 


079A 





FFFF 


079B 





FFFF 


079C 





FFFf 


0790 





FFFF 


079E 





FFFF 



G5C2 



LO N5C6 LD /FFFF 

BSC L G5C2,*- BRANCH ON ZERO 

BSI L FOOO STD-EA+1 INCORRECT 

DC /30CF ERR ID 

SSI L F005 CK LOCK ON ERROR 

MOX A5C0 LOOP 



****************** ************** t** ********** 



&5C4 



&5C4 



&5C6 



LD 

STC 

STO 

LDD 

STO 

LO 

EUR 

asc 
asi 

DC 

BSI 
MDX 
LD 

EOR 
BSC 

BSI 
DC 

BSI 

no* 



N5C1 LD /OOOO 

N5C5 STORE /OOOO 

N5C6 STORE /OOOO 

N5C3 LD A»/FFFF Q=/FFFF 

N5C5 STORE /FFFF AND /FFFF 

N5C5 LO /FFFF 

N5C3 ZERO WITH /FFFF 

G5C4.+- BRANCH ON ZEPO 

FOOO STD-EA INCORRECT 

/3000 ERR ID 

FOOE CK LOCK ON ERROR 

A5C4 LOOP 

N5C6 LD /Ull 

N5C3 

G5C6t*- BRANCH ON ZERO 

FOOO STO-EA-H INCORRECT 

/30D1 ERR IB 

FOOi CK LOCK ON ERROR 

A5C4 LOOP 



************************************* ****®*** 



ASC6 



Gi-ce 



G5CA 



N5C1 



HiCi 



LO 

sic 

STO 
STO 
LOD 
STO 

LD 
LO 

asc 
asi 
oc 

BSI 
MDX 
LO 
EOR 

asr 

BSI 
DC 

asi 

MDX 

LD 

STO 

STC 

MOX 

BSS 

OC 

oc 

DC 

oc 

DC 
DC 
DC 



N5C3 

N5C!> 

N5C6 

N5C7 

N5C1 

N5C6 

N5CI 

HbCb 

GbC8,+- 

FOOO 

/30D2 

FOOt 

A5C8 

N5CT 

N5C3 

G5CA. *- 

FOOO 

/3003 

FL'05 

ASCR 

NbCJ 

met* 

N5C7 
A600 

/OOOO 
/OOOO 
/FFFF 
/FFFF 
/FFFF 
/FFFF 
/FFFF 



LD /FFFF 
STORE /FFFF 



LD Ao/OGOO O'/OOOO 

STORE IN N5C6 ♦ N5C7 

LD /OOOO 

LO /GOOO 

BRANCH CN ZERO 

SID-ODD-EA INCORRECT 

ERR ID 

CK LOCK ON ERROR 

LQ1P 

LD /FFFF 

ZERO KITH /FFFF 

BRANCH ON ZERO 

STD-0DD-EA«1 LOADED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

LO /FFFF 



EXIT TO NEXT ROUTINE 



TEST OF LDX OPERATION 



******* 
CORE 
ADDR 
******* 

079F 00 



DATE 
EC NO. 



********* 
DATA OR 
INSTRUCT 

********* 

650007A2 



N5C5 
N5C6 
N5C7 

* 
* 

************************************* ******** 
*************** **************************************** 

*LA- OPER- 
ION *BEL AT10N FT 0>ERANDS ♦ REMARKS ID*SEQ« AT RIGHT 
#****»♦*»***«»»»**»»»*»»*»«****•»*•»***»»**»*******»*** 

A6Q0 LOX LI G600 LD XR 1 KITH AOOR OF G600 



28FFB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



80438110 

8B438120 

6B43813Q 

8B436140 

3B438150 

384 3 8160 

88438170 

8B438IB0 

8B438190 

86438200 

8B43821C 

8B438220 

68438230 

8B438240 

8B438250 

8843)8260 

8B438270 

8B433280 

88438290 

88438300 

8B438310 

8B438320 

8B438330 

3B438340 

88438350 

8B43 8360 

SB438370 

8B43838Q 

8B438390 

83438400 

89438410 

88438420 

88438430 

88438440 

08438450 

BB43S460 

8B438470 

88438480 

8B438490 

88438500 

83438510 

88438520 

88438530 

BB43 8540 

88438550 

8B438560 

8B438570 

88438580 

8B438590 

88438600 

8B438610 

8B438620 

8B438630 

88438640 

8843 8650 

88438660 

8B438670 

83438680 

88438690 

88438700 

88438710 

83438720 

8B433730 

8B438740 

88438750 

8B438760 

88438770 

83433780 



PROG ID 
PAGE 



08B4-1 
29 



07AI 





7003 




MDX 




H600 






8B438790 




07A2 


00 


44000F83 


G600 


BSI 


L 


FOOO 


TAG REG BIT 7 FA1LEC 




8B438800 




07A4 





3004 




OC 




/30D4 


ERR ID 




SB438810 




07A5 


00 


44000FDE 


H600 


BSI 


L 


F005 


CK LOCK ON ERROR 




8B438820 




07A7 


c 


70F7 




MDX 




A600 


LOOP 




8B438830 










******************* ************************** 




8B43B840 




07A8 


00 


660007Afa 


A602 


LOX 


12 


G602 


LO XR 2 WITH ADDR OF 


G602 


8B438850 




07AA 





7003 




MDX 




HA02 






8B438860 




07A8 


00 


44000F83 


G602 


SSI 


I 


F00"> 


TAG REG BIT 6 FAILED 




38438870 




07AD 





30D5 




OC 




/30D5 


ERR ID 




3B438880 




07AE 


00 


44000FDE 


H60 2 


SSI 


L 


F0U5 


CK LOCK ON ERROR 




8B438890 




07BO 





70F7 




MDX 




A60Z 


LOOP 




88438900 










********************************************* 




8B438910 




07B1 





6100 


A604 


LOX 


i 





LO DISP=0 TO XR 1 




88438920 




0782 


00 


C 50008 1C 




LO 


11 


N601 


LO ADDR OF N601 + XR 


1 


8B438930 




07B4 


a 


F067 




EOR 




N601 


ZERO WITH ADDR OF N601 


8B438940 




07B5 


00 


4C18Q76A 




BSC 


I 


6604, f- 


BRANCH ON ZERO 




8B438950 




0787 


00 


44000F83 




li S I 


L 


FOUO 


IX 1 NOT LOADED 




8B43 8960 




0789 





30D6 




DC 




/3006 


ERR ID 




8B43 8970 




07BA 


00 


44000FDE 


G604 


3Si 


L 


F005 


CK LOCK ON ERROR 




8B438980 




07BC 





70F4 




MDX 




A604 


LOOP 




8B438990 










********************************************* 




3B43900Q 




07BD 


o 


6200 


A&06 


LOX 


2 





ID DISP-0 TO XR 2 




86439010 




Q7B6 





COSF 




LO 




N603 


LD /FFFF 




8B439020 




07BF 


00 


C&00081C 




LO 


12 


HbOl 


LD ADOR OF N6.0 1 ♦ XR 


2 


8B439030 




07C1 





F05A 




EOR 




HbOl 


2ER0 WITH ADDR OF N601 


8B439040 




07C2 


GO 


4C1807C7 




BSC 


L 


G606t-»- 


BRANCH ON ZERO 




86439050 




07C4 


oc 


".4000F83 




SSI 


L 


FOOO 


XR 2 NCT LOADED 




SB439060 




07C6 





3007 




DC 




/30D7 


ERR ID 




8B439070 




07C7 


00 


440&GrOE 


G&06 


BSI 


L 


F005 


CK LOCK ON ERROR 




8B439080 




07C9 





70F3 




MDX 




A606 


LOOP 




8B439090 










******************* **** 


>***«- ********** ******** 




8B439100 




07CA 





6300 


AfcQB 


LDX 


3 





LD DISP=0 TO XR 3 




BB439110 




07C8 





C052 




LO 




N603 


LD /FFFF 




3B439120 




OTCC 


00 


C700081C 




LD 


L3 


N601 


LO ADDR OF N60 1 + XR 


3 


8B439130 




07CE 





F04D 




EOR 




HbOl 


ZERO WITH ADDR OF N&01 


8B439140 




07CF 


00 


4C18Q7D4 




BSC 


L 


GfaOS. ♦- 


BRANCH ON ZERO 




8B439150 




0701 


00 


4400QF83 




BSI 


L 


FOOO 


XR 3 NOT LOADED 




88439X60 




0703 





3008 




DC 




/30D8 


ERR ID 




88439170 




0?D4 


00 


44000POE 


&608 


BSI 


L 


F005 


CK LOCK ON EKROR 




88439180 




07D6 





70F3 




MDX 




A608 


LOOP 




88439190 










********************************************* 




8B4 39200 




07D7 





6 IFF 


A60A 


LDX 


1 


-1 


LD XR 1 WITH -1 




8B439210 




0708 





C045 




LD 




N603 


LD /llll 




8B439220 




07D9 


00 


C5GO081C 




LO 


LI 


N601 


LD ADDR OF N601 ♦ XR 


1 


8B439230 




07DB 





F03F 




EOR 




N600 


ZERO WITH ADDR OF N600 


8.B439240 




07 DC 


00 


4C1807E1 




BSC 


I 


G60A,*- 


BRANCH ON ZERO 




8B439250 




07DE 


00 


44000F83 




8S1 


L 


FOOO 


XR 1 NCT LOADED 




8B439260 




07E0 





30D9 




DC 




/3009 


ERR ID 




8B439270 




07E1 


00 


44000F0E 


G60A 


BSI 


L 


F005 


CK LOCK ON ERROR 




8B439280 




07E3 





70F3 




MDX 




A60A 


LOOP 




8B439290 










»**»»♦»»»♦*«.«»**»»»»***»*****»* »**♦**■""******♦ 




8B439300 




07E4 





62FF 


A60C 


LOX 


2 


-1 


LD XR 2 WITH -I 




8B439310 




07E5 





C038 




LD 




N603 


LD /FFFF 




8B439320 




07E6 


00 


C600081C 




LD 


LZ 


NbOl 


LD ADDR OF N60 1 ♦ XR 


2 


8B439330 




07E8 





F032 




IV* 




N600 


ZERO WITH ADDR OF N600 


8B439340 




07E9 


00 


4C1807EE 




BSC 


I 


GfcOCt*- 


BRANCH ON ZERO 




8B439350 




07EB 


00 


44000F83 




bs: 


L 


FOOO 


XR 2 NOT LOADED 




8B439360 




07ED 





300A 




OC 




/300A 


ERR ID 




8B439370 




07EE 


00 


44000FDE 


G60C 


BSI 


L 


F005 


CK LOCK ON ERROR 




8B439380 




07F0 





70F3 




MDX 




A60C 


LOOP 




8B439390 










***************************** *^*^****^******* 




8B439400 




07F1 





63FF 


A60E 


LOX 


3 


-1 


LO XR 3 WITH -1 




8B439410 




07F2 





C028 




LD 




N603 


LD /FFFF 




BB439420 




07F3 


00 


C700081C 




LD 


L3 


N601 


LO ADDR OF N601 ♦ XR 


3 


8B439430 




07F5 





F025 




EOR 




N600 


ZERO WITH ADDR OF N600 


88439440 




07F6 


00 


4C1B07FB 




BSC 


L 


G60Et*- 


BRANCH CN ZERO 




83439450 




07F8 


00 


44000FR3 




BSI 


L 


FOOO 


XR 3 NOT LOADfcD 




8B439460 




OATE 




28FFB66 


01MAY66 


04N0V66 






PROG ID 
PAGE 


08B4-1 
29A 


EC NO. 


415120 


415H0A 


415233 
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07FA 





30Db 




OC 




/30DB 


ERR ID 


88439470 


07FB 


oc 


1 44000FDE 


G60E 


BS1 


L 


FOOS 


CK LOCK ON ERROR 


88439480 


07FD 





70F3 




MDX 




A60E 


LOOP 


38439490 








******* ************************************** 


8B439500 


07FE 


oc 


» 65000001 


S600 


Lf5X 


LI 1 


LD XR 3 WITH *1 


88439510 


C800 





C01D 




LO 




N603 


LD /FFFF 


8B439520 


0801 


oc 


) C500081C 




LD 


11 N601 


LD ADDR OF N601 * XR I 


8B439530 


0803 





F019 




EUR 




N602 


ZERO WITH ADDR Of N602 


88439540 


0804 


O'j 


I 4C1&08U9 




8SC 


i 


J600, ♦- 


BRANCH ON ZERO 


8B439550 


0806 


on 


I 44000F83 




8SI 


i 


FOOO 


LONG FORM LDX-FAILEO 


88439560 


0808 





30DC 




DC 




/3UDC 


ERR ID 


8B439S70 


0809 


00 


44000FDE 


J6U0 


SSI 


L 


»-005 


CK LOCK ON ERROR 


8B439580 


oboe 





70F2 




MDX 




S6 00 


LOOP 


8B439590 








**s* ******* 


4 4 "S 


t**&***4***********************^* 


88439600 


080C 


00 


6780Q81E 


B602 


LDX 


u 


1 N603 


LO XR J WITH /TFFF 


8B439610 


080E 





C010 




LD 




N&04 


LD /0001 


88439620 


080F 


00 


CToooaic 




LD 


Li 


I N601 


LD ADOR OF N60 1 + XR 3 


8B439&30 


0811 





F009 




EOR 




N600 


ZERO WITH ADDR OF N600 


8B439640 


oai2 


00 


4CI80817 




BSC 


L 


J602t+- 


BRANCH ON ZERO 


83439650 


0814 


00 


44000F83 




8S1 


L 


FOOO 


INDIRECT LDX FAILED 


8B439660 


0816 





300D 




DC 




/300D 


ERR ID 


8B43967C 


0817 


Ou 


44000FDE 


J602 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B439680 


0819 





70F2 




MDX 




B602 


LOOP 


8B439690 


081 A 





7005 




MDX 




£640 


EXIT TO NEXT ROUTINE 


8E439700 


0818 





081B 


N600 


DC 




N600 




8B439710 


081C 


a 


081C 


N601 


DC 




N6Gl 




8B439720 


08 ID 





081D 


N602 


DC 




N602 




8B439730 


08 IE 





FFFF 


IV 603 


DC 




/FFFF 




8B439740 


OttlF 





0001 


N604 

* 
• 
• 


DC 




/0001 

TEST 


OF STX OPERATION 


8B439750 
8B439760 
89439770 

8B439780 








**«*«.*****»**** ************************ ****** 


8B439790 


************ ************* ****** *#******»******** *********************** 


8B439800 


CORE 




DATA OR 


*LA- 


OPER- 








SB439810 


ADOk 




INSTRUCTION *8tL 


ATIC** 


FT 


OPERANDS < 


RFMARKS ID*SEQ= AT RIGHT 


8B439820 


* ***«*«!***»***«*»****** ****,> **********************- ****** ******** ****** 


8B439830 


0820 





C06D 


A&40 


LD 




N644 


LD /FFFF 


8B439840 


0821 





0069 




SIO 




N640 


SAVE 


8B439850 


0822 





COFF 


HMO 


LO 




M640 


LO /COFF 


8B439860 


082 3 


c 


6867 




STX 




N640 


STORE INST REG AT N640 


8B439870 


0924 





FOFO 


IK 64 

• 


EOR 




H640 


CK THAT ACC WAS NOT 
» RESET BY STX 


8B439880 
8B439890 


0825 


00 


4C18082D 




BSC 


L 


G640.+- 


BRANCH ON ZERO 


38439900 


0827 


00 


44000F83 




BSI 


L 


FOOO 


ACC GONE AFTER STX 


8B439910 


0829 





3167 




OC 




/3167 


ERR 10 


8B439920 


082A 


00 


4400CFB2 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


88439930 


082C 





70F3 




MDX 




A640 




8B439940 


0820 





C05D 


C6*0 


LD 




N&40 


CK THAT STX STOREO CORECT 


8B439950 


082E 





F05D 




EOR 




N642 




8B439960 


0S2F 


00 


4C180834 




BSC 


L 


&641,+- 


BRANCH ON ZERO 


8B439970 


08 21 


00 


44000F83 




BSI 


L 


FOOO 


I CTR NOT STORED 


BB439980 


0833 





30Dfc 




DC 




/30DE 


ERR ID 


83439990 


0834 


00 


44000FDE 


&641 


BSI 


L 


F005 


CK LOCK ON ERROR 


88440000 


0836 





70E9 




MDX 




A640 


LOOP 


8B440010 








********************************************* 


8B440020 


0837 





C056 


*642 


LD 




N644 


LD /FFFF 


8B440030 


0838 





D052 




STO 




N640 


SAVE 


8B440040 


0839 





6100 




LDX 


1 





LD XR 1 WITH /OOOO 


8B440050 


083A 





6950 




STX 


1 


N640 


STORE CIXR 1) AT N640 


8B440060 


0835 





C04F 




LD 




N640 


LD CIN640I 


8B440070 


08 3C 


00 


4C180841 




BSC 


L 


G642t+- 


BRANCH ON ZERO 


8B440080 


083E 


00 


44000F83 




BSI 


I 


FOOO 


XR 1 NOT Si OREO 


8B440090 


0840 





30DF 




DC 




/30DF 


ERR ID 


8B440100 


084 1 


00 


44000FDE 


56*2 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B440110 


0843 





70F3 




MDX 




A642 


LOOP 


8B440120 








************»»***»»*******#***»*****»******** 


8B440130 


0844 





C049 


A644 


LD 




N644 


LO /FFFF 


8B440140 


DATE 




28FEB66 


0l*AV*6 04WOV66 
4I5120A 415233 




PROG ID 
PAGE 


EC NO 


* 


415120 





08B4-1 
30 



0845 


0045 




STO 




N640 


SAVE 


8B440150 




0846 


6200 




LDX 


2 





LD XR 2 WITH /OOOO 


»B440160 




0847 


6A43 




STX 


2 


N640 


STORE CIXR 2) AT N640 


8B440170 




0848 


C042 




LO 




N640 


ID CIN640) 


8844QI80 




084 9 00 


4C18084E 




8SC 


L 


G644.+- 


BRANCH ON ZERO 


8B440190 




QS4B 00 


44000F83 




BSI 


I 


FOOO 


XR 2 NOT STORED 


8B440200 




084D 


30E0 




DC 




/3OE0 


ERR ID 


8B440210 




084E 00 


44Q0UFDE 


&64 4 


asi 


L 


► 005 


CK LOCK ON ERROR 


88440220 




0850 


70F4 




MDX 




A644 


LOOP 


8S-*40230 








******************** v ************************ 


8B440240 




0851 


C03C 


A646 


LD 




N644 


LD /FFFF 


83440250 




0852 


D038 




STO 




N640 


SAVE 


8B4<,0260 




0853 


6 300 




LDX 


3 





LD XR 3 WITH /OOOO 


83440270 




0854 


6B36 




STX 


3 


M640 


STORE CiXR 3) AT N640 


8B440280 




0855 


C035 




LD 




N640 


LD CIN64Q) 


83440290 




0b5o 00 


4C18085B 




BSC 


L 


C646.+- 


BRANCH ON ZERO 


8B440300 




085 8 00 


44000F"3 




BSI 


L 


FOOO 


XR 3 NOT STORED 


8B440310 




085A 


30E1 




DC 




/30E1 


ERR ID 


8B440320 




0o5B 00 


440QOFDE 


G64 6 


esi 


L 


FOOS 


CK LOCK ON ERROR 


8B440330 




085D 


70F3 




MDX 




A646 


LOOP 


8B440340 








******************************* ************** 


89440350 




085E 


C02E 


A 64 8 


LD 




N643 


LD /OOOO 


83440360 




085F 


D02B 




STO 




N640 


SAVE 


83440370 




0860 


61FF 




LDX 


i 


-1 


LD XR 1 WITH /FFFF 


88440380 




0861 


6929 




STX 


1 


N640 


STORE CUR 1} AT N640 


83440390 




0862 


C028 




LD 




N640 


LD CCNi.40! 


8B440400 




0863 


F02A 




EOR 




N644 


ZERO WITH /FFFF 


8B440410 




0864 00 


4CX80869 




BSC 


L 


G648t ♦- 


BRANCH ON ZERO 


88440420 




0866 00 


44QQ0F83 




BSI 


L 


FOOO 


XR 1 NOT STORED 


8B440430 




086 8 


30E2 




DC 




/30E2 


ERR ID 


8B440440 




0869 00 


44000FDE 


G648 


BSI 


i. 


F005 


CK LOCK ON ERROR 


8B440450 




0868 


70F2 




MDX 




A648 


LOOP 


83440460 








*** *****#************************** ********** 


8B44U470 




086C 


C020 


A64A 


LD 




N643 


LD /OOOO 


89440480 




0860 a 


D01D 




STO 




N640 


SAVE 


8B440490 




086E 


62FF 




LDX 


2 


_ « 


LD XR 2 WITH /FFFF 


8B44OS00 




086F 


6A1B 




STX 


2 


N640 


STORE C(XR 2) Al N640 


88440510 




C870 


C01A 




LD 




N640 


LD CIN640) 


8B440520 




0871 


F01C 




EOR 




N&44 


ZERO WITH /FFFF 


8B44053C 




0872 00 


4C180877 




BSC 


L 


G64A.+- 


BRANCH CN ZERO 


8B440540 




08 74 00 


44000F83 




BSI 


L 


FOOO 


XR 2 NOT STORED 


83440550 




0876 


30£3 




DC 




/30E3 


ERR ID 


8B440560 




0877 00 


44000FDE 


G64A 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


8B440570 




0879 


70F2 




MDX 




A64A 


LOOP 


8B440580 








******************************* ************** 


89440590 




087A 


C012 


A64C 


LD 




N643 


LO /OOOO 


8B440600 




087B 


DOOF 




STO 




N640 


SAVE 


8B440610 




087C 


63FF 




LDX 


3 


-1 


LD XR 3 WITH /FFFF 


8B440620 




08 7 


6B0D 




STX 


3 


N640 


STORE CIXR 3) AT N640 


8B440630 




087E 


COOC 




LD 




N640 


LD CIN640) 


8B440640 




087F 


FOOE 




EOR 




N644 


ZERO WITH /FFFF 


89440650 




0880 00 


4C180885 




BSC 


L 


G64C.+- 


BRANCH ON ZERO 


8B440660 




0882 00 


44000F83 




SSI 


L 


FOOO 


XR 3 NOT STOREO 


8B440670 




0884 


30E4 




DC 




/30E4 


ERR ID 


8B440680 




0885 00 


44000FDE 


G64C 


BSI 


L 


F005 


CK LOCK ON ERROR 


89440690 




0887 


70F2 




MDX 




A64C 


LOOP 


89440700 




0888 


C004 




LD 




N643 


LD /OOOO 


8B440710 




0889 


DOC J 




STO 




N640 


RESTORE N640 TO /OOOO 


86440720 




088A 


7004 




MDX 




A660 


EXIT TO NEXT ROUTINE 


8B440730 




088B 


0000 


N64 


DC 




/OOOO 




89440740 




08 8 C 


0824 


N642 


DC 




K640 




8B440750 




088D 


0000 


N64 3 


DC 




/OOOO 




8B440760 




088E 


FFFF 


N644 


DC 




/FFFF 




88440770 








************* ******************************** 


88440780 




******************************* ************* ******** t * ft »*»»»* 4 » >t » # »» it » 


8B440790 




CORE 


DATA, OR 


*LA- 


OPER- 








88440300 




AODR 


INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


♦ REMARKS 1D»SEQ= AT RIGHT 


88440810 




************ *************************************»*******»»»****»»,»»*» 


88440820 




DATE 


28FEB66 


01MAY66 04N0V66 




PROG ID 


08B4- 1 
30A 


EC NO. 


415120 


415120A 415233 




PAGE 
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088F 6100 


A66C 


1 LOX 


1 


LD XR 1 WITH /OOOO 


0890 6200 




LOX 


2 


LO XR 2 WITH /OOOO 


0891 6300 




LOX 


3 


LD XR 3 WITH /OOOO 


0892 6 IFF 




LOX 


1 -1 


LD XR 1 WITH /FFFF . 


0893 6A44 




STX 


2 N660 


CK FOR OISTRUCTION OF 


0894 C043 




LO 


N660 


OTHER INDEXES 


0895 00 4C18089A 




8SC 


L G660 t +- 


BRANCH ON ZERO 


0897 00 44000F63 




SSI 


L FOOO 


XR 2 CHANGED 


0899 3157 




OC 


/3157 


ERR ID 


089A 00 4400UFB2 


G660 


BSI 


L FOOE 


CK LOCK ON ERROR 


089C 70F2 




MDX 


A66U 


LOOP 


0890 683A 




STX 


3 N660 


STORE CIXR 3) AT N660 


089E C039 




LO 


N660 


LD CIN660) 


089F 00 4C1808A4 




asc 


L G661,*- 


BRANCH ON ZERO 


08A1 00 44000F33 




BSI 


L FOOO 


XR 3 CHANGED 


08A3 3158 




DC 


/?158 


ERR 10 


08A4 00 44000FOE 


G661 


BSI 


L F0O5 


CK LOCK ON ERROR 


08A6 70E8 




MDX 


A660 


LOOP 




*t*t»»te*«t*»»»»» ( »(,» tt ( M , Mt ,^j„ 4tHrtM 


08A7 6100 


A602 


LOX 


1 


LO XR 1 WITH /OOOO 


08A& 6200 




LOX 


2 


LD XR 2 WITH /OOOO 


08A9 6300 




LOX 


3 


LO XR 3 WITH /OOOC 


08AA 62FF 




LDX 


2 -I 


LD XR 2 WITH /FFFF 


08AB 692C 




STX 


1 N660 


STORE CIXR 11 AT N660 


08AC C02B 




LO 


N660 


LD C(N660) 


08A0 00 4C1808B2 




BSC 


L G662 t +- 


BRANCH ON ZERO 


08AF 00 44000F83 




BS! 


L FOOO 


XR 1 CHANGED 


08B1 3159 




DC 


/3159 


ERR ID 


08B2 00 44000FB2 


G662 


BSI 


L FOOE 


CK LOCK ON ERROR 


08B4 70F2 




MDX 


A662 


LOOP 


08B5 6B22 




STX 


3 N660 


STORE C(XR 3 AT N660 


08B6 C021 




LD 


N660 


LD CIN660) 


08B7 00 4C1808BC 




BSC 


L G663t*- 


BRANCH ON ZERO 


08B9 00 44000F83 




BSI 


L FOOO 


CK LOCK ON ERROR 


08BB 315A 




DC 


/315A 


ERR 10 


08BC 00 44000FDE 


G663 


BSI 


L F005 


CK LOCK ON ERROR 


08BE 70E8 




MDX 


A662 


LOOP 




******************* ************************** 


08 BF 6100 


A664 


LOX 


1 


CK OISTRUCTION OF 


08C0 6200 




LDX 


2 


OTHER INDEXES 


08C1 6300 




LDX 


3 


XR'S HAVE /OOOO 


08C2 63FF 




LDX 


3 -1 


LD XR 3 WITH /FFFF 


08C3 6914 




STX 


1 N660 


STORE CIXR 11 AT N660 


08C4 C013 




LD 


N660 


LD CIN660) 


08CS 00 4C1808CA 




BSC 


L G664.+- 


BRANCH ON ZERO 


08C7 00 44000F83 




BSI 


L FOOO 


XR 1 CHANGED 


08C9 3156 




DC 


/315B 


ERR 10 


08CA 00 44000FB2 


G664 


BSI 


L FOOfc 


CK LOCK ON ERROR 


08CC 70F2 




MDX 


A664 


LOOP 


08C0 6A0A 




STX 


2 N660 


STORE CUR 2) AT N660 


08CE C009 




LO 


N660 


LO CCN660) 


08CF 00 4C1808D4 




BSC 


L G665t+~ 


BRANCH ON ZERO 


0801 00 44000F83 




BSI 


L FOOO 


XR 2 CHANGED 


0803 315C 




DC 


/315C 


ERR 10 


0804 00 44000F0E 


G665 


BSI 


L F005 


CK LOCK ON ERROR 


0806 70E8 




MOX 


A664 


LOOP 


0807 7001 




MDX 


A670 


EXIT TO NEXT ROUTINE 


0808 0000 


N660 


DC 









******* a****************************^^,^,,, 


0809 6110 


A670 


LDX 


1 16 


LD XR 1 WITH /0010 


080A COIO 




LD 


N670 


LOAO ONE 


080B 00 4C1808E4 


G671 


BSC 


L G67Q.+- 


NOT 8R FOR CORRECT OP 


0800 1001 


G672 


SLA 


1 




080E 71FF 




MDX* 


1 -1 


-1 FROM CIXR 11 


080F 70F8 




MDX 


G671 




08E0 00 44000F0E 




BSI 


L F005 


CK LOCK ON ERROR 


08 E2 70F6 




MDX 


A670 


LOOP 


08E3 7006 




MDX 


A680 


EXIT TO NEXT ROUTINE 


OATE 28FEB66 


01MAY66 04NOV66 




EC NO. 415120 


415120A 415233 





8B440830 

8B440840 

88440850 

88440860 

88440870 

8844 0880 

8B440890 

88440900 

83440910 

8B440920 

8B440930 

8B440940 

88440950 

88440960 

8B440970 

8B440980 

8B440990 

6S441000 

88441010 

8B441020 

8B441O30 

8B441040 

88441050 

83441060 

83441070 

8B441080 

8B441090 

8B44110Q 

88441110 

88441120 

8B441130 

8B441140 

83441150 

8B441160 

8B441170 

8B441180 

8B44H90 

8B441200 

8B44I210 

8B441220 

8B441230 

86441240 

8B441250 

8B441260 

83441270 

83441280 

83441290 

8B441300 

8B441310 

8B441320 

8B44133C 

83441340 

83441350 

8B441360 

8B441370 

8B441380 

8B441390 

8B441400 

83441410 

8B441420 

8B441430 

8B441440 

8B441450 

83441460 

83441470 

83441480 

83441490 

8B441500 



PROG ID 
PAGE 



0834- 1 
91 



08E4 00 44000F83 


G670 BSI 


I 


FOOO 


WRONG OECOOE OF ZERO 


08E6 3169 




DC 




/3169 


FRR ID 


03E7 00 44000FB2 




BSI 


L 


. FOOE 


CK LOCK ON ERROR 


08 E9 70EF 




MOX 




A670 


LOOP 


08EA 70F2 




MDX 




G672 




G8E8 0001 


N67C 

* 


1 DC 




1 






* 
* 






TEST 


CF ACD CPERATION 




»«»»t»»t»»«tt*t«» t t t , t< „ (t , # j ( ************** 


•♦*♦***»**************»*******»*********«,,,**„», «» # , t ,„ ¥ ,, #t , # ^ 


COtfE DATA OR 


*LA- 


OPER- 








ADDR INSTRUCTION *8£L 


ATION FT OPERANDS 


♦ REMARKS lD*<iFQ= AT 


«*»**m*»*»»*»*t»*»t«t«****«*»t»*»t****»t******t»«»»»««»»»;,»i», 


08EC 2002 


A680 


LDS 




2 


SET CARRY ON 


08 ED C C06E 




LO 




N680 


LD /FrFF 


08EE 806E 




A 




N681 


A /OOOO 


08EF 00 4C0108F2 




asc 


L 


G68Q.C 


CK FOR OVERFLOW CN 


Q8F1 "> 7003 




MDX 




H680 


OVERFLOW IS OFF 


08F2 3 440QOF83 


G680 


BSI 


L 


FOOO 


OVERFLOW IS ON 


08F4 30E5 




DC 




/30E5 


ERR ID 


08F5 00 44000FB2 


H68 


BSI 


L 


FOOE 


CK LOCK CN ERROR 


08F7 70F4 




MDX 




A660 


LOOP 


08F8 F063 




EDR 




N680 


CK IF ADD IERO 


08F9 00 4C1808FE 




BSC 


L 


G682,+- 


* CHANGED ACC 


08FB 00 4400OF83 




BSI 


I 


FOOO 


ADD 1 AND FAILEO 


08FD 30E6 




DC 




/30E6 


ERR ID 


08FE 00 44000FDE 


G682 


BSI 


L 


F005 


CK LOCK OH ERROR 


0900 70EB 




MDX 




A6S0 


LOOP 




******************************* » #t#t fH^, #tt 


0901 2000 


A&84 


LOS 







SET C AND OF OFF 


0902 C059 




LD 




N680 


LO /FFFF 


0903 805A 




A 




N682 


A /0001 


0904 00 4C020909 




BSC 


I 


G634.C 


CK IF CARRY OCCURED 


0906 00 44000F83 




SSI 


L 


FOOO 


CARRY fvCT CN 


0908 30E7 




DC 




/30E7 


ERR ID 


0909 00 44000FB2 


G684 


BSI 


L 


Fooe 


CK LOCK ON ERROR 


090 8 70FS 




MDX 




A684 


LOOP 


090C 00 4C180911 




BSC 


L 


G686 t +- 


8RAKCH ON ZERO 


090E OU 44000F83 




BSI 


L 


FOOO 


ADD FFFF+0001 FAILED 


0910 30C8 




DC 




/30E8 


ERR ID 


0911 00 44000FDE 


G686 


BSI 


L 


F005 


CK LOCK ON ERROR 


0913 70E0 




MDX 




A684 


LOOP 




»»»«*«n**»***»»»**«*«»**,*, M ,,„, t ,„ <$(ttt 


0914 2000 


A688 


LDS 







SET C AND OF OFF 


0915 C046 




LD 




N&80 


LO /FFFF 


0916 8045 




A 




N680 


A /FFFF 


0917 00 4C02091C 




BSC 


L 


G688,C 


BR ON CARRY 


0919 00 44000F83 




BSI 


L 


FOOO 


CARRY NOT ON 


091 B 30E9 




DC 




/30E9 


ERR ID 


091C 00 44000FB2 


G688 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


091 E 70F5 




MDX 




A688 


LOOP 


091F F042 




FOR 




N687 


ZERC WITH /FFFF 


0920 00 4C180925 




8SC 


L 


G68A.+- 


BRANCH ON ZERO 


0«22 00 44000F83 




BSI 


L 


FOOO 


ADD FFFF»FFFF FAILEO 


0924 30FA 




DC 




/30FA 


ERR ID 


0925 00 44000FOE 


G68A 


BSI 


L 


F005 


CK LOCK ON ERROR 


092 7 70EC 




MDX 




A688 


LOOP 




******* ************************ »*,^******* # * 4 


0928 2000 


A66C 


LDS 







SET C AND OF OFF 


0929 C035 




LD 




N6 83 


LD /4000 


092A 8034 




A 




N683 


A /4000 


092B 00 4C010930 




BSC 


L 


G68C.C 


BR IF CF NOT ON 


0920 00 44000F83 




BSI 


L 


FOOO 


OVERFLOW NOT ON 


092F 30EB 




DC 




/30EB 


ERR ID 


0930 00 44000FB2 


G68C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0932 70F5 




MDX 




A68C 


LOOP 


0933 F02C 




EOR 




N684 


ZERO WITH /8000 


DATE 28FEB66 


01MAY66 04N0V66 
4I5120A 415233 




EC NO. 415120 





****** 



ACC 8B441510 
8B441520 
8B441530 
8B441540 
8B-.41550 
88441560 
8B441570 
884415B0 
8B441590 
8B441600 
8B441610 
8B441620 
RIGHT 8B441630 
***** 8B441640 
86441650 
88441660 
88441670 
8B441680 
8B441&90 
6B441700 
8B441710 
83441723 
8B441730 
8B441740 
8B441750 
8B441760 
8B441770 
88441780 
8Bf4I790 
8B441800 
88441810 
83441820 
88441330 
3B441840 
3B441850 
8B441860 
88441870 
8B441880 
83441890 
8B441900 
8«441910 
8B441920 
86441930 
8B441940 
8B441950 
83441960 
8B441970 
8B4419S0 
8B441990 
6B442000 
8B442010 
8B442020 
88442030 
8B442040 
8B442050 
8B442060 
8B442070 
8B442080 
8B442090 
8B442100 
8B442110 
88442120 
8B442130 
8B442140 
83442150 
88442160 
8B442170 
8B442180 



PROG ID 
PAGE 



08B4- 1 
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0934 


00 


4C1 80939 




esc 


L 


G68E»*~ 


BRANCH ON ZERO 


88442190 


0936 


00 


4400 OF 8 3 




ssr 


L 


FOOO 


AOO 4000+4000 FAILED 


88442200 


0938 





30EC 




DC 




/30EC 


ERR 10 


8S442210 


0939 


00 


44000FOE 


G68E 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B442220 


0938 





70EC 




MOX 




A68C 


LOOP 


88442230 








******** I************************************* 


88442240 


093C 





2000 


8680 


LOS 







SET C AND OF OFF 


8B442250 


0930 





C022 




ID 




N684 


LD /8000 


8B442260 


093E 





8021 




A 




N684 


A /8000 


8B442270 


093 F 





2823 




STS 




N688 


STORE C AND OF CONO 


8B442280 


0940 


00 


4C180945 




8SC 


L 


J680.*- 


BRANCH ON ZERO 


83442290 


0942 


00 


44000F83 




SSI 


L 


FOOO 


AOO 8000*8000 FARED 


8S442300 


0944 





30EO 




oc 




/3oeo 


ERR ID 


88442310 


094 5 


00 


44000FB2 


J680 


SSI 


I 


F00£ 


CK LOCK ON ERROR 


8B442320 


094 7 





70F4 




MOX 




S680 


LOOP 


, 8S442330 


0948 





COM 




LD 




N688 


LD C «N0 OF CONO 


8S442340 


0949 





F017 




EOR 




N686 


ZERO HiTH /0003 


88442350 


094 A 


00 


4C1 80958 




ssc 


I. 


J682.*- 


BRANCH 0M ZERO 


SS442360 


094C 


00 


4C04095S 




HSC 


1. 


K682.E 


3R ON MOT EVEN 


8844237© 


094E 


00 


4400OF83 




SSI 


1 


FQOO 


CARRY NOT OK 


8B442380 


0950 





30SF 




OC 




/30EF 


ERR 10 


8B442390 


0951 


oa 


440G0FP6 




SSI 


i 


F0O5 


CK 10CK ON ERROR 


8B442400 


0953 





7068 




MOX 




B680 


LOOP 


88442410 


0954 





7 OOF 




MOX 




A6CQ 


EXIT TO NEXT ROUTINE 


86442420 


0955 


00 


4400'JF83 


K682 


BSI 


L 


FOOO 


OVERFLOW NOT ON 


88442430 


0957 


CJ 


3QEE 




OC 




/30EE 


ER8 18 


86442440 


095 8 


00 


44000FDE 


J682 


851 


L 


F005 


CK LOC*< CN ERROR 


8B442<»50 


695J5 





7CEJ 




MOX 




3680 


LOOP 


8B442460 


G95B 





7008 




MOX 




A6C0 


EXIT TO NEK? ROUTINE 


88442«.?0 


owe 





FFFF 


N680 


DC 




/FPff 




8S442*-8e 


0950 





0000 


^661 


or 




/oooo 




SB442490 


095E 





0001 


N6S2 


oc 




/0001 




8B442500 


095F 





4000 


N683 


OC 




MOOO 




884425 I 6 


0960 





80u0 


N684 


DC 




/8000 




SB442520 


096 J 


c 


000 3 


N686 


OC 




/0003 




8S*42S30 


096 2 


G 


TFFE 


N687 


DC 




/FFfE 




8S44.5540 


096* 


SI 


ODO0 


N688 

* 


OC 




'0000 




88442550 

684>»2560 








* 






INDEXING TtST 


HS442S70 








«. 










8B4-*258S 








ft*******************************,******* ****,„£ 


88442590 


*+**************+******m*m*+*ii.**#*m*******m*+*4:*****.**+*m0mt*+*w+*+ 


8B%*2600 


CORE 




CAfA OR 


*LA- 


DPfcR- 








8S*»4261C» 


AO0R 




INSINUATION 


*&Et 


ATIUN 


Ff- 


OPfR a:\ds 


* REMARKS IO+SEO* M SIGHT 


8844?4?0 


M**+*»+»***t* + »M*********l>*********t ***************** *******««*«»«**., 


83^42630 


0964 ' 


s 


&1FC 


A6CS 


LOX 


1 


-4 


ld xa i una -4 


SB442640 


0965 


00 


C500C9F0 




LD 


LI 


SJ6C4 


LO £<N&C4*XR 1) 


88442650 


0967 





FQ74 




Eoa 




NoCO 


ZERO ACC IF CORRECT OP 


S8442'j&e 


©9 A 8 


00 


4C20O<57fc 




£SSC 


i 


B6C0,Z 


BR IF NOT 2FR0 


«844<6?0 


0966 


e 


S.97A 




STS 


1 


N6C9 


STORE CIXR IS AT JJ6C9 


68442680 


09b & 


a 


C0T9 




LO 




N6C9 


GET XR 1 VALUE 


eS*-*2690 


096C 


l; 


f079 




EOR 




N6CA 


zem acc if CORRECT 


88*42700 


OVeSJ 


00 


4C180979 




BSC 


;L 


G6C0»+- 


B^SNCH ON ZERO 


98442710 


G96F 


00 


44000F83 




9SI 


1 


fooo 


XS I LOADED WRONG 


SB44i7^0 


C97J 





igs-o 




OC 




/30F0 


riSB 10 


88*42730 


09 71 


00 


44000FOE 




SSI 


L 


F005 


CA LOCK OH ERROR 


88442740 


09 74 





70EF 




M0X 




^6C0 


LOOP 


884427*6 


0975 





7006 




mdx 




A6C2 


EXIT TO Ntxr ROUTINE 


88442760 


09^6 


00 


44000r S3 


H6C0 


BSI 


( 


FOOO 


WRONG LOCATION 


8S442770 


<W?t» 


a 


3QM 




OC 




/30F1 


feRS 30 


8B44278© 


0979 


00 


44000F0E 


GfcCO 


351 


L 


S=O0S 


CK LOCK ON ERROR 


SB*4279a 


09 IP 


1 


TOES 




KOX 




A6C0 


I OOF 


88442808 








** ««******* ********************#«-**» **«*«***» 


38442SI© 


097C 





6204 


A6C2 


J.DX 


Z 


.;, 


LD XR 2 WITH *4 


8B442820 


«9?0 


00 


C*>C0G9{-0 




LD 


L2 


M6C«» 


LD CIN4C4*XR 21 


UB442830 


Q97* 





F064 




FDR 




hi6tfl 


ZERO ACC IF correct 


S8442B4C 


09 8 


00 


4I.20090E 




esc 


I 


H&C2 , 1 


8R IF NOT l£W 


884«S50 


098 2 





6A6? 




STS 


2 


N6C9 


STORE XR 2 AT S6C9 


S3442860 


DATE 
FC WJ 




CflllS 6 


OlMAYi 
*1S12< 


»A * 15233 




PROS SO 
PAGE 



08S4-J 
32 



0983 


C061 




LD 




N6C9 


GET XR 2 VALUE 


88442870 


0984 


F062 




EOR 




N6CB 


ZERO ACC IF CORRECT 
BRANCH ON ZERO 


8B442860 


098 5 00 


4C180991 




BSC 


L 


G6C2 f +- 


88442890 


0«8 7 00 


44000F83 




BSI 


L 


FOOO 


XR 2 LOADED WRONG 


8B442900 


0989 


30F2 




DC 




/30F2 


ERR ID 


8B442910 


09SA 00 


44000FDE 




3SI 


L 


F005 


CK LOCK ON ERROR 


8B442920 


098C 


70EF 




MOX 




A6C2 


LOOP 


83442930 


0980 


7006 




MDX 




A6C4 


EXIT TC NEXT ROUTINE 


88442940 


098 E 00 


44000F83 


H6C2 


BSI 


L 


FOOO 


WRONG LOCATION 


8B442950 


0990 


30F3 




DC 




/30F3 


ERR 10 


8B442960 


0991 00 


4400OF0E 


G6C2 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B442970 


0993 


70E8 




MOX 




A6C2 


LOOP 


8B442980 






«»* ****«t*#S:««-»***>|, *»♦**»*»**** *6.»* **«»»***»» 


8B442990 


0994 


6300 


A6C4 


LOX 


3 





SET XR 3 TO ZERO 


8B44300C 


0*395 00 


C70009E0 




LO 


L3 


N6C4 


LD C(N6C4*XR 3) 


8B443010 


0997 


F048 




EOR 




M6C4 


ZERO ACC IF CORRECT 


88443020 


C998 00 


4C2009A5 




BSC 


t 


H6C4.Z 


BR IF NOT ZERO 


8B443030 


099* 


6B4A 




STX 


3 


N6C9 


STORE XR 3 AT N6C9 


89443040 


0993 


£049 




LO 




N6C9 


LO /OOOO 


8B443050 


C99C 00 


4C1809A8 




8SC 


L 


G6C4,*- 


BRANCH ON ZERO 


8644 3060 


099E 00 


44000F83 




8SI 


L 


FOOO 


XR 3 LOADFD WRONG 


8B443070 


09A0 


30F4 




OC 




/30F4 


ERR 10 


8B443080 


09A1 00 


44U00F0E 




SSI 


i 


F005 


CK LOCK OK ERRCR 


8S443090 


09Ai 


70F0 




MDX 




A6C4 


LOriF? 


a8<»43100 


09A4 


7006 




MDX 




AfeCfc 


EXIT TO fcSEXT ROUTINE 


8B44 3110 


P9A5 00 


44000F83 


h&C4 


BSI 


L 


FOOO 


WRONG LOCATION 


8B443120 


m&i n 


30 e 5 




OC 




/i0F^ 


ERR 10 


8B443130 


f>9A3 00 


44000FDE 


G6C4 


esi 


L 


S-OOIj 


CK LPCK. CH E8RGI5 


HB441!40 


09»*. ■, a 


70F9 




MOX 




A6C4 


iOOP 


88443150 






***g.U >>**»* »♦*?»*) »*****«•»*♦*«''»*********»*♦# 


83443160 


09,? 3 


6301 


A6C6 


LD* 


3 


I 


SET KR 3 TO *S 


85443170 


09 AC 00 


CrOOf/'EO 




10 


Lis 


Had 


LD CCN6C4+XR 3» 


83443180 


0°Af- 


F032 




EOR 




N6CS 


ZERC FOR CORRLCT OP 


6B443190 


09A«= 0>J 


4C200%80 




8 St 


L 


H6f 6 » I 


S». IF NOT ZERO 


884-43200 


098i 


6d33 




STS 


3 


mt9 


STORfc XR 3 Af N6C9 


884432 JO 


09B^ 


C03Z 




LD 




iif,fi 


iS CIN6C9J 


834«*i?20 


0^33 


F034 




EOR 




f<6C0 


2TR0 ACC FOR CQRnfCT OP 


83i«»230 


09B% 00 


4CI»09C0 




BSC 


L 


C6C6.*- 


8R*niCH os ae«o 


83443240 


0«&& 00 


V4000F8J 




SSI 


t 


F003 


XH 3 LOAOIO %RONG 


88443250 


0938 


30F6 




DC 




/30F6 


ERR JO 


83C4 3260 


0J6* 0.) 


4*000FBfc 




BSI 


i 


fltO'j 


CK 10CK ON LSfOS 


BB443270 


0-?8S 


70EF 




MOX 




ihtt» 


LOOP 


88443280 


pp<»' 


TOOfc 




MOX 




M&C? 


txu ro neat rout ine 


3844 J?«0 


OJbD CO 


4'?P0F83 


M6C6 


8M 


i. 


FOGG 


^«lJ^G location 


.1H44-I3CC 1 


Oi^r- o 


30F7 




r>c 




/-Of 7 


lRR ID 


Se«f4331'J 


C9L-3 00 


44000F0E 


36f& 


9Si 


1 


F&OS 


t< LOCK i?4 EBRO^ 


0B*433»O 


e<--;2 o 


73£8 




MOX 




A6L6 


LOOP 


^4433?0 






*«*«#***<**«-J.5!* -Slf* ******, -*W««i»%« j4«tSt«*t*« 


3B443"»40 


C-5JC3 


6?FV 


*6CS 


Lr>s 


3 


-i 


if> JSR 3 TO -i 


"B443-30 


Wt* (JO 


C»SC09EA 




■.0 


<3 


mo- 


5 J CIN6Cr*XR i? 


j-8443360 


091.6 a 


f0i° 




sns 




'i<hf, 


SCC NOW 2EP0 


8B 44 3370 


QW 7 m 


•+C2"Q9K, 




8SC 


L 


»iC8«Z 


*~i SF N3T t£»n 


»84<>1380 


CC^ 


ft»li 




STX 


3 


M6C9 


■'.tQkB Y,k 3 AT N6C9 


!.8'>43j'>0 


6VC» 


CCi« 




LD 




N6C9 


LD C5N&C9J 


3b4^« 5*00 


09C8 


F01E 




I OR 




\6CF 


ZERO WITH /ff?F 


Wf'iJAiO 


O^CC 00 


4C 18 090 8 




ssr 


L 


G6C0 j +- 


BRANCH CN Z£RQ 


se»-'.3<t/o 


09CE 00 


44030F33 




351 


L 


F 000 


XR 3-3.0AOEO WRONG 


C8443430 


0900 


30F8 




LC 




/ iOF 3 


ERR ID 


8f4>»3440 


0901 00 


4400 OF 0t 




a»i 


L 


f-OOS 


CK LOCK ON ERRCR 


88 ,43^50 


T903 


TGEf- 




MDX 




A6C8 


LOOP 


8P4*3fsf»0 


0904 


7017 




^OX 




A600 


EXIT TO mxl ROUTINE 


8B4*.3*?0 


OTD5 00 


'-4000F8J 


H6C8 


BSI 


L 


FOOO 


WRONG LOCATION 


ii0443480 


09D7 


30F9 




OC 




/30F9 


FRR 10 


4844 3*90 


0908 OT 


4%OOOF0E 


GoC8 


esi 


L 


F005 


CK ..OCK ON fcPP3« 


8S%43500 


39 DA 


70E6 




MOX 




a&csi 


LOO? 


aa-f.ssio 


09B3 


7010 




."«DX 




A<SDO 


EXIT TO NfXT POUT INE 


38«%»52Ci 


09 OC 


09DC 


N6C0 


D!, 




W6C0 




BB4415^?5 


09OD « 


09D0 


NSC1 


DC 




mtz. 




*iO*435hO 


DATE 
EC NO. 


2EFFB66 
41S120 


01MAY< 

*15i2< 


s6 9ANQV66 

a A 4:5233 




PAGL 



08B«~I 

32* 



000000000000 O 00 OOCJC 00 OOOGOO 00 oocot 



occcccoccc 

p 
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09DE 





09DE 


N6C2 


OC 




N6C2 




83443550 




09DF 





09DF 


N6C3 


OC 




N6C3 




8B443560 




09E0 





09E0 


N6C4 


OC 




N6C4 




88443570 




09E1 





09E1 


N6C5 


OC 




N6C5 




8B443580 




09E2 





09E2 


N6C6 


OC 




N6C6 




8B443590 




09E3 





09E3' 


N6C7 


OC 




N6C7 


1 


8B443600 




09E4 





09E4 


N6C8 


OC 




N6CS 




88443610 




09E5 





0000 


N6C9 


OC 




/OOOO 




SB443620 




09E6 





FFFC 


N6CA 


OC 




/FFFC 




8B443630 




09E7 





0004 


N6C8 


OC 




/0004 




88443640 




C9E8 





0001 


N6C0 


OC 




/0001 




SB443650 




09E9 





09E0 




OC 




N6C4 




8B443660 




09EA 





FFFF 


N6CF 


OC 




/FFFF 




88443670 




Q9EB 





700 7 




MOX 




A6C8 


LOOP 


83443680 










***************«**********»*«*******#******** 


83443690 




************************* 


****** ******** ************************** ****** 


83443700 




CORc 




DATA GR 


*LA- 


OPER- 








83443710 




AODR 




Instruction 


*3EL 


ATION 


; ft 


OPERANDS 


* REMARKS ID*SEQ= AT RIGHT 


8B443T20 




*,<****»**** ,**************** ************************ »ei»«t ********** 


8B443730 




09 EC 


00 


6 5000900 


A600 

* 


LOX 


LI 


N6C1 


LO XR 1 WITH ADORESS 
* OF N6C1 


8B443740 
88 443750 




09EE 





C1FF 




LO 


1 


-1 


SHORT FCRM INDEXING 


8B443760 




09EF 





FOEC 




EOR 




N6C0 


ZERO IF CORRECT 


88443770 




09F0 


00 


4C1809F5 




3SC 


L 


H600 f ♦- 


BRANCH ON ZERO 


89443780 




09F2 


00 


44000F83 




3S1 


L 


FOOO 


INOEXEO LO INST. FAILEO 


8B44 3790 




09F4 





3150 




OC 




/3150 


ERR 10 


88443800 




09F5 


00 


44000F0E 


H600 


3SI 


L 


F005 


CK LOCK ON ERROR 


3B443810 




09F7 





70F4 




MOX 




A600 


LOOP 


88443820 










********************************************* 


88443830 




09F8 


00 


660009DD 


A602 

* 


LDX 


L2 


N6CI 


LO XR 2 WITH ADORESS 
* OF N6C1 


83443840 
83443850 




09FA 





C201 




LD 


2 


I 


LD CJQF ADDRESS IN XR 14-11 


88443860 




09FB 





F0E2 




EOR 




N6C2 


ZERO IF CORRECT 


8844 3870 




09FC 


00 


4C180A01 




BSC 


L 


H602»*- 


BRANCH CN ZERO 


88443830 




09FE 


00 


44000F83 




BSI 


L 


FOOO 


INDEXED LO INST. FAILEO 


83443890 




OAOO 





315E 




OC 




/315E 


ERR ID 


8B443900 




0AO1 


00 


44000F0E 


H602 


BSI 


L 


F005 


CK LOCK ON ERROR 


83443910 




0A0 3 





70F4 




»ox 




A6D2 


LOOP 


88443920 










t«tattie*ettt>»(«t«t»««tt»*t(«tt«t)Mt«t«*«»* 


88443930 




0A04 


00 


67000900 


A60 3 


LOX 


L3 


N6C1 


LO XR 3 WITH ADD OF N6CI 


88443940 




0A06 





CJOO 




LO 


3 





LO C(OF ADD IN XR i ♦ 01 


88.443950 




0A0 7 





F0D5 




tCR 




N6C1 


ZERO IF CORRECT 


88443960 




0AU8 


00 


4C180A00 




BSC 


L 


H6D3t*- 


BRANCH ON ZERO 


8B443970 




OAOA 


00 


44000F83 




BSI 


L 


FOOO 


INDEXED LO INST. FAILEO 


88443980 




OAUC 





315F 




DC 




/315F 


ERR ID 


83443990 




OAOC 


00 


44O00*DE 


H6U3 


3S1 


L 


F005 


CK LOCK CN ERROR 


83444000 




OAOF 





70F4 




MOX 




A6D3 


LOOP 


88444010 










***** 


ft************************************** 


88444020 




» 






**# ** 


.*******t**«****************«***«******** 


88444030 




0A10 





6102 


A6D5 


LOX 


I 


2 


LO XR 1 WITH *2 


8B444040 




OAU 





C006 




LO 




N6C0 


LO /0001 


8B444050 




0A12 





1101 




SLA 


1 


1 


NOW A-/0004 


88444060 




0A13 





F003 




EOR 




N6C8 


NOW A=/0000 


88444070 




0A14 


00 


4C180A19 




BSC 


L 


H6D5t ♦- 


BRANCH CN ZERO 


88444080 




OAU 


00 


44000F83 




8SI 


L 


FOOO 


INCEXEO SLA FAILEO 


8B444090 




OAlfl 





3163 




DC 




/3163 


ERR 10 


88444100 




0A19 


00 


AAOOoroE 


H6D5 


8SI 


L 


F005 


CK LOCK ON ERROR 


88444110 




0A18 





70F4 




MDX 




A6D5 


LOOP 


88444120 










****** J **S**********4**5>***********#********* 


8^444130 




0A1C 





6202 


A606 


LOX 


2 


2 


LO /00004 


88444140 




OAiO 





C0C9 




LO 




N6C3 


NOW As/0001 


8B444150 




OAIE 





1A01 




SRA 


2 


1 


ZERO ACC 


83444160 




OAIF 





F0C8 




EOR 




N6CQ 


ZERO WITH /0001 


8B444170 




0A20 


00 


4C180A25 




BSC 


L 


H606.+- 


BRANCH ON ZERO 


8B444180 




0A22 


00 


4400CF83 




BSJ 


L 


FOOO 


INOEXEO SRA FAILEO 


83444190 




0A24 





3164 




OC 




/3164 


ERR 10 


8B444200 




0A2 5 


00 


4 400 OF 06 


H60 6 


8SI 


L 


F005 


CK LOCK ON ERROR 


8B444210 




0A2 7 





70F4 




MOX 




A606 


LOOP 


33444220 




DATE 




28FCB66 


01MAY66 


04N0V66 




PROG 10 


08B4- J 


EC NO. 


415120 


415120A 


415233 




PAGE 


33 



***** 

CORE 

ADOR 

***** 

0A28 

0A2 9 

0A2A 

0A2C 

0A20 

0A2E 

0A2F 

0A31 

0A33 

0A34 

0A3 6 

Oft 3 7 

0A38 

0A39 
0A3A 
0A3C 
0A3D 
0A3E 
0A3F 
0A40 
0A11 
0A42 
0A44 
0A45 
0A4 7 



************** 
DATA OR 
INSTRUCTION 

************** 

6 301 
COOE 
00 4F0OOA2D 
3000 
3000 
F009 
00 4C180A34 
00 4400 aF8 3 
3165 
00 44000FDE 
70F1 
7001 
0A38 



*** 

* 

* 

* 
**** 

*LA 

*8E 
**** 

A6F 



****************************************** 

TEST INDEXED BSC 

************************************** 



********** 

OPER- 
L ATICN FT 

********** 



6201 

00 4E800A3D 
7005 

7004 

0A41 

7002 

7001 

7003 
OO 44000F83 
3166 
00 44000FDE 
70F1 



0A48 
0A4 9 
0A4A 
0A4B 
0A4C 
0A4D 
0A4F 
0A51 
OA5 2 
0A54 
0A55 
0A56 
0A5 7 
0A59 
0A5B 
0A5C 
0A5E 

0A5F 
0A60 
0A61 
0A62 
0A63 
0A64 
0A66 
0A6 8 
0A69 
0A6B 
0A6C 



2000 

C066 

90t»6 

2 866 

F066 
00 4C130A52 
00 44000F83 
30FA 
00 4400 OF B 2 
70F3 
C05C 
F05D 
00 4C180A5C 
00 4400 OF 8 3 
30F8 
00 44000FDE 
70E9 



2000 

C04F 

9051 

284F 

F040 
00 4C180A69 
00 44000F83 
30FC 
00 4400CF8 2 
70F3 
C04 5 



N6F0 



H6F0 



N6F 

*** 
A6F 



LOX 
LO 

BSC 

WAIT 

WAIT 

EOR 

BSC 

BSI 

DC 

8SI 

MDX 

MOX 

DC 



L3 



********** 



N6F2 



N6F 
H6F 



H6F2 

*** 

* 
* 



LDX 2 
BSC 12 
MOX 

MDX 

oc 

MOX 
MOX 
MDX 

SSI L 
OC 

3S1 L 
"OX 
********** 



OPERANDS 

********** 

1 

N6F1 

N6F0 



NoFl 

H6F0, ♦- 

FOOO 

/3165 

F005 

A6F0 

A6F1 

N6FI 
*** ******* 

I 

N6F2 

H6FI 

H6F1 

N6F3 

H6FI 

H6FI 

H6F2 

FOOO 

/3166 

F005 

A6F1 
****** **** 



♦ REMARKS ID+SEQ= AT RIGHT 

**************************** 

LD XR 3 WITH *l 

LO CIOF LABEL N6F 1 i 

BR TO CIN6F0+XR 3) 

INDEXED BSC FAILED 

INDEXED BSC FAILEO 

CK FOR C1STR0YE0 ACC 

BRANCH CN ZERO 

ACC OISTROYEO 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TC NEXT ROUTINE 

********************** 
LO XR 2 WITH *1 
BR TO N6F2 + 1 INDIRECT 
BSC FAILED 
8SC FAILED 

BSC FAILEO 
3SC FAILEO 

8SC DID NOT BRANCH 
ERR ID 

CK LCCK ON ERROR 
LOOP 
********************** 



TEST OF SUBTRACT OPERATION 



■*** 
A 70 



G700 



G702 



**«■ 
A 70 



G704 



********** 
LOS 

LO 

S 

STS 

EOR 

BSC L 

BSI L 

OC 

BSI t 

MDX 

LO 

EOR 

3SC L 

8SI L 

OC 

BSI L 

MDX 
********** 

4 LOS 
LO 
S 

STS 
EOR 
8SC L 
BSI L 
OC 

BSI L 
MDX 
LO 



********** 


N700 
N701 
N702 
N703 
G700**- 
FOOO 
/30FA 
FOOF 
A700 
N702 
N704 
G702.+- 
FOOO 
/30FB 
F005 
A700 

!***** ***« 



N700 

N703 

N702 

V7CI 

G7Q4,*- 

FOOO 

/3orc 

FOOE 
A 704 
N702 



********************** 

SET C AND CF OFF 

LO /OOOO 

S /0001 A NO* /FFFF 

STORE CARRY IND. TO N702 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

OOOO MINUS 0001 FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LO CARRY INDICATION 

ZERO IF CORRECT 

BRANCH ON 7.FR0 

CARRY NOT ON 

ERR ID 

CK LOCK OH ERROR 

LOOP 
********************** 

SET C ANO OF OFF* 

LO /OOOO 

S /FFFF 

STORE CARRY ON CONDITION 

7ERC WITH /0001 

BRANCH CN ZERO 

OOOO MINUS FFFF FAILEO 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LO CARRY CCND FRCM N702 



OATE 

EC NO. 



28FEB66 
415120 



O1MAY66 
415120A 



04NUV66 
415233 



83444230 
8B444240 
8B444250 
8B444260 
88444270 
8C444280 
88444290 
83444300 
83444310 
83444320 
88444330 
8B444340 
83444350 
83444360 
83^44370 
88444380 
8B444390 
8B444400 
8B444410 
8B444420 
8B444430 
88444440 
88444450 
8B444460 
88444470 
88444480 
88444490 
83444500 
83444510 
83444520 
8B444530 
83444540 
83444550 
86444560 
8B444570 
38444580 
834*4590 
89444600 
83444610 
8B444620 
88444630 
33444640 
83444650 
83444660 
88444670 
83444680 
88444690 
83444700 
88444710 
8B444720 
8&444730 
8B444740 
8B444750 
8B444760 
88444770 
8B44-.780 
8B444790 
8B44<t<?00 
83444310 
8B444820 
(38444830 
88444840 
8B444850 
39444860 
88444S70 
8B444880 
88444890 
88444900 



PROG ID 
PAGE 



08B4-.1 
33A 
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0A6D F046 
0A6E 00 4C18QA73 
0A70 00 44000F83 
0A72 30FD 
0A73 00 44000FDE 
0A75 70E9 



G706 



EDfe N704 ZERO ACC IF CORRECT 

BSC L G70e»+~ BRANCH CN ZERO 

SSI I FOOO CARRY NOT SET 

DC /30F0 ERR ID 

3SI L F005 CK LOCK ON ERROR 

MOX A704 LOOP 



cnpt 

ftDD*» 

** $ *$** 

CA76 
OA77 
0A78 
0A79 
0A7A 
0A78 00 
0A7D 00 
0A7F 
OASO 00 
0A82 
0Ab3 
0A84 
0A85 00 
0487 00 
0A89 
0A8A 00 
0A8C 



*«•»( . **** 
DAT* OR 
INSTRUCT! 

** ** * ** » w v 

2000 
C030 

9028 

2838 

FQ3C 

4C180ABO 

440Q0FB3 

30FE 

44000FB2 

70F3 

C02fc 

F02C 

4C180A8A 

44000F83 

3QFF 

44000FDE 

70E9 



********************************************* 

** ******9******» ************* .«*»»** 9* *********** »**»»* 

*LA- DPER- 
DN *BEl ATION FT OPERANDS ♦ REMARKS IC*SEO= <*T RIGHT 

****** **•*********#*** *#***************•**********■***** 



A7C6 



OAt»D 
CA8E 
0A8P 
0490 
OA«»l 
0&92 00 
QA94 00 
GA96 
0A97 00 
0A99 
0A9A 
0A98 
0A9C 00 
0A9E 
0A9F 
CAAu 00 
CAA? 00 
0AA4 
DA A 5 00 
0AA7 
0AA8 
0AA9 
OAAB 
OAAC 00 
OAAE 
OAAF 
OASO 
0AB1 
0AB2 
0Att3 
0AB4 
0AB5 
06B6 
0AB7 







00 












2000 

C021 

9025 

2821 

F023 

*C 180*97 

440Q0F8i 

3100 

44000FB2 

7QF3 

£017 

F01A 

4C180AAC 

C013 

EOU 

4C200AA9 

4 40C0F83 

3101 

44000FDE 

70E5 

700F 

44000F83 

3102 

44000FDE 

70DE 

7008 

OlJOO 

0001 

0000 

FFFF 

0002 

8000 

0003 

7FFF 



G70B 



>7UA 



LDS 

LD 

S 

SIS 

EOR 

asr 

SSI 

DC 

BSI 

MDX 

LO 

EOR 

asc 

BSI 

DC 
3 SI 

MOX 



(Stt»*»»«*»**»» »■ 



A70C 



G70C 



J70E 



G70E 



LDS 

LD 

c 

STS 

EOR 

BSC 

BSI 

DC 

SSI 

MOX 

LD 

EOR 

BSC 

LC 

AND 

tJSC 

BSI 

DC 

BSI 

MDX 

MOX 

BSI 

DC 

BSI 

MDX 

MOX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



SET C AND tiF OFF 

N?sJ5 ID /8000 

N701 S /0001 

N70? SAVE C * CF CONDITION 

N707 ZERO ACC IF CORRECT OP 

r»708,+- CRANCH ON ZERO 

FOOO 8000 MINU 000 1 FAILED 

/30FE ERR 10 

FOOE CK LOCK ON ERROR 

A708 LOOP 

N702 LD STORE CARRY CONDITION 

N701 ZERO IF CORRECT 

G7Q6,*- BRANCH GN ZERO 

FOOO OVERFLOW NOT SET 

/30PF ERR ID 

F005 CK LOCK ON ERROR 

A708 LOOP 

**** ************** ********** 

SET C AND OF OFF 

LO /OOOO 

S /8000 

5T0RE C * OF CONDITION 

ZERC ACC IF CORRECT 

BRANCH ON ZERO 

0000 MINUS 8000 FAILED 

ERP 10 

CK 10CK ON ERROR 

LOOP 

LD CON CF C*OF 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

LD CON OF C ♦ OF 

AND IN /0001 

BR IF NOT ZERO 

OVERFLOW NOT ON 

ERR ID 

CK LJCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

CARRY NOT ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 





N700 

N705 
N?02 

N/05 

GroCi+- 

FOOO 

/3100 

F00£ 

A70C 

N70<? 

N706 

G70E.+- 

N702 

N701 

J70E.Z 

FOOO 

;3l01 

005 
•v?0C 
A7'0 
FOOO 
/3102 
F005 
A70C 
A740 
/OOOO 
/00Q1 
/OOOO 
/FFFF 
/0002 
/8000 
/0003 
/7FFF 



«»****•»**•* *»»»»» 



N700 

N701 

N702 

N703 

N704 

N705 

N706 

N707 

* 

* 

********************************************* 
***************************************************** 



TEST OF AOO DOUBLE 



DATE 
EC NO. 



2HEEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



8B444910 

8R444920 

88444930 

88444940 

8844^950 

8B444960 

88444970 

8E444980 

8B444990 

88445000 

83t45010 

8B&45020 

8B44 5030 

8B445040 

8844 5050 

8B445060 

8844SC70 

8B445080 

8B4'.i090 

6S44S100 

88445130 

3B445120 

US445130 

8S445I40 

8B445150 

88445160 

83445170 

RB445I80 

8B445X90 

8B445200 

8B4452I0 

6S445220 

8B445230 

684h5240 

8B445250 

8B445260 

8B4'i5270 

83445280 

8B445290 

88445300 

884453S0 

8B445320 

8B445330 

8B44t>34Q 

8B445350 

83445360 

8B445370 

88445380 

88445390 

8B445400 

8B445410 

8B445420 

8B445430 

8B44 5440 

88445450 

88445460 

8B445470 

88445480 

8B445490 

8B445500 

83445510 

8B445520 

8B445530 

8B445540 

88445550 

8B445560 

88445570 

8B445580 



»ROG ID 
PAGE 



CORE 
ADDk 
******** 

0AB8 
0AB9 00 
0A8B 00 
OABD 00 
OABF 00 
CAC1 00 
0AC3 00 
0AC5 
0AC6 00 
0AC8 
0AC9 
Q*CA 00 
OACC 00 

dace oo 

OODO 
040 1 00 
0A03 
0AD4 00 
0AD6 00 
0AD8 00 
OAOA 00 
OADC C 
OADO 00 
0A3F 
QAfO 
C'«Ei 00 

0> c 4 00 
0mE6 

OAt I 
OS £8 00 
n ',[ A OO 
OAfC 00 
OAFE OU 
04F0 00 
OAF 2 
OAFS 00 
OAF 5 
0AF6 
0AF7 00 
0AF9 00 
OAF 8 
OAFC 00 
OAFE 
OAFF 00 

oaoi oo 

0803 00 
0B05 00 
0B07 00 
0309 
OfaOA 00 
OBOC 
080 D 
OBOE 00 
OB 10 O 
0811 00 
Obi 3 



DATA OR 
INSTRUCTI 

$**:*$***¥ 

2000 

CCOOObSO 

8C0OOB82 

2C000B71- 

F4000880 

4C18uAC6 

44000FB3 

3103 

44000FB2 

70EF 

16D0 

F4000B80 

<.C180AD1 

44000F83 

3104 

44000FB2 

TOE 4 

C-.000B7E 

4CI80AE4 

4C040AE1 

4400 0FS3 

3105 

44000FDE 

70D8 

?003 

44000F83 

44000FLE 
70D1 

2000 

fC'jOJB84 

8C000580 

2C0COB7E 

4C180AF3 

-•4000F 83 

*107 

44000F82 

70F1 

1800 

4C180AFC 

".4.000^83 

3108 

44000FB2 

70E8 

C4C00B7E 

F 4000886 

4C 19 06 11 

..CG40B0E 

4400 OF 8 3 

3109 

44000FDE 

700A 

7003 

44000F83 

313A 

44000F0E 

7003 



*LA- OPER- 
ON *BtL ATION FT OPfcRAKOS 
*$*# *¥t #*♦** #** **#* ******** 



A740 



J740 



G74 2 



riT-', 



6744 



LDS 

LDD 

AD 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LD 

BSC 

8SC 

BSI 

DC 

8S1 

MDX 

MDX 

BS? 

DC 

BSI 

MDX 




N742 

N74^# 

N740 

N742 

&740,*- 

FCiuO 

/3103 

FOOE 

A740 

16 

N742 

&F42,+- 

FOOO 

/3104 

FOOE 

A740 

N740 

G744,*- 

H744.E 

FOOO 

/3503 

F005 

a?4o 

G744 
FOOO 
/3106 

F005 
A740 



♦ REMARKS ID+SEO- AT RIGHT 

«***< *********************** 

SET C AND OF OFF 
LO A=/FFFF Q=/FFFF 
A /OOOO /OOOO 

STORE CON. OF C ♦ OF 

BPANCH CN ZERO 

AD FFFF-tOOOO A FAILED 

ERR ID 

CK LOCK OK ERROR 

I OOP 



BR ON ZERO 

AD FFFF+OOOO FAILtD 

ERR ID 

CK LOCK ON ERROR 

LOOP 

CONDITION OF C ♦ OF 

BRANCH ON ZERO 

&R IF NOT EVEN 

CARRY CN 

LRR 10 

CK LOCK ON ERROR 

LOOP 



£$&*** S'#^4#?*"$$£##*«'t**fc 



**».********»**** 
CORE DATA OR 
ADDR INSTRUCT 

**************** 

OBI 4 2000 
OBI 5 C86A 



A746 LDS 

t 00 L 

AD L 

STS L 

BSC L 

BSI L 
DC 

G746 bSl t 
MDX 
RTE 

BSC i, 

BSI L 
DC 

&748 BSI I 
MDX 

LD L 

EDR I 

BSC L 

asc l 

BSI L 
OC 

BSI L 
MDX 
MDX 

H74A BSI L 
DC 

G74A 8S I L 
MDX 

************* 
***************** 

*LA- OPER- 
ION *B£L ATICN FT 
***************** 

A74C LDS 
LDD 





N.«46 

N7*2 

M740 

0746,+- 

FOOO 

/3107 

FOOE 

4746 

1& 

G748.+- 

FOOO 

/3108 

FOOE 

A746 

N740 

N748 

G74A.+- 

H74A.E 

FOOO 

/3109 

F005 

A746 

G74A 

FOOO 

/310A 

F005 

A746 
********* 
********* 

OPERANDS 

•••*••*** 



N742 



OVFLO ON 

iRR ID 

CK LOCK ON FHROR 

I OOP 

$^&$***>P £$*$**** ****** 

SET C AND CF OFF 

LD A-/0000 0=/0001 

A /FFFF /FFrF 

STORE CO'^D OF C AND OF 

BRANCH ON ZERO 

AD OOOO+FFFF A FAILED 

fcRR ID 

CK LOCK ON ERROR 

LOOP 

INTERCHANGE A AND 

BRANCH ON 7ER0 

AD 0001+FFFF Q FAILED 

ERR ID 

CK LGCK ON ERROR 

! OOP 

LD COND OF C AND OF 

CHECK FOR CARRY 

ZERO= C AND OF OK 

CHECK FCR CVERFICW IB15) 

CARRY NOT CN 

ERP ID 

CK LOCK ON ERROR 

LOOP 

OVFLO ON 

ERR ID 

Cf. LOCK ON ERROR 

LOOP 

*********************** 
***************************** 

♦ REMARKS ID+SEQ* AT RIGHT 

***************************** 
SET C AND OF OFF 
ID A=/FFFF Q=/FFrF 



33445590 

8B-.45600 

3B44C610 

83445620 

8844 3630 

86445640 

8B445650 

83445660 

88445670 

".8445680 

894456'JO 

8B445700 

3B445710 

83445720 

8B445730 

8B445740 

8B44575C 

8B445760 

8B44&770 

83445780 

8B44 5790 

8B445800 

8B445810 

88445820 

8B445830 

8B445840 

3B445850 

8B44586C 

88445870 

38445880 

88445890 

8B445900 

8B445910 

8B44S920 

8B44S930 

33 445940 

8B445950 

8B44 5960 

88445970 

8B445980 

8B44 5990 

SB44t>C00 

8B44&010 

8B4*6020 

88446030 

8B446040 

8B446050 

83446060 

88446070 

8B446030 

88446090 

8B446100 

8S446S10 

8B44&120 

8B446130 

8B446140 

88446150 

3B446160 

8B446170 

SB446180 

8B446190 

88446200 

8B446210 

8B446270 

8B446230 

8B446240 

88446250 

8B446260 



08B4-1 
34 



DATE 
EC NO. 



28FEB66 
415120 



•MMAY66 
415120A 



04NQV66 
4 15233 



PRO r » ID 08B4- 1 
PAGE 34* 



oooooooooo.oooooooooooooooooooooooc 



opoooooooooooooooooooooooooooooooc 



IBM MAINTtNANCt JUAGNOSriC PROGRAM FOR THE 1800 SYSTEM 
PKUCESSuK-CbVIRCiLER FUNLTION TEST 



PARI NO. 2196471 
PAGE 35 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 S> STEM 

PRuCESSGR-CONTROLLER FUNCTION TEST 



PART NO. 2196471 
PAGE 35A 



08 16 





s»&? 




AD 




N742 


A /FFFF /FFFF 


88446270 




OB 17 


l< 


2&66 




STS 




NT40 


STORE r AND CF COND 


8B446280 




OBI 8 





FU67 




EOR 




N742 


ZERO WITH /FFFF 


8B446290 




0819 


00 


*Cl8«8ie 




BSC 


i 


G74C+- 


BRANCH ON ZERO 


88446300 




Q31B 


00 


440O0F83 




BSI 


i 


FOOO 


AO FFFF+FFFF ACC FAILED 


8B44&3I0 




0B10 





3106 




DC 




/310B 


ERR 10 


8B446320 




Ob IE 


00 


440OGFB2 


G74C 


SSI 


i 


FOOt 


CK LOCK ON ERROR 


68446330 




0820 





7JF3 




MDX 




A74C 


LOOP 


8B446J40 




B .21 





1S00 




RTE 




16 


INTERCHANGE A AND 


8B446350 




0322 





F065 




EOR 




N74A 


ZERO rtlTrl /FFFF 


8B44o3&0 




oa<:3 


00 


4C1SOB29 




8SC 


L 


G74E,*- 


BRANCH ON ZERO 


88446370 




0925 


a& 


440O0FB3 




BSi 


L 


FOOG 


AO FFFF*FFFF Q FAILED 


8B446380 




082 7 





310t 




DC 




/310C 


ERR 10 


86*46390 




OB? 8 


00 


440faOFb2 


674 E 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


88446400 




Q«A 





70E9 




MDX 




A74C 


LOOP 


S8446410 




0B2B 





C052 




LD 




N740 


COfjOITlOPi OF C AND OF 


88446420 




0d2C 





F0S9 




eoR 




N748 


CHECK FOR OVERFLOW 


88446430 




Oc*2D 


00 


4C180i>3B 




BSC 


t 


J740.+- 


BRANCH ON ZERO 


88446440 




0B2F 


OU 


4C040B38 




BSC 


L 


K740.E 


CHECK FOR CARRY 


88446450 




0B31 


Oo 


4 400 OF 83 




BSI 


L 


FOOO 


CARRY NOT ON 


83446460 




OS33 





310E 




OC 




/310E 


ERR ID 


88446-%?© 




0B34 


00 


44OQOF0E 




BSI 


L 


F005 


CK LOCK ON ERROR 


88446480 




0B36 





7000 




MDX 




A74C 


LOOP 


88446490 




0837 


a 


7003 




mox 




J740 




88446500 




0638 


00 


44GU0FB3 


K7«iO 


BSI 


L 


FOOO 


OVFLO ON 


SB446510 




083A 





3100 




DC 




/3100 


ERR ID 


88446520 




0S3B 


03 


4%ooor0t 


J74 


BSI 


i. 


F005 


CK LOCK ON ERROR 


8B446530 




083 





7006. 




HOX 




A74C 


LOOP 


86446540 










********************************************* 


8B446550 




0ti3E 





2000 


B742 


LOS 







SET C AND OF OFF 


88446560 




0S3F 





C84A 




LDD 




N74C 


LD A=/FFFF Q=/7FFF 


8B446570 




0B40 





883F 




AO 




N742 


A /FFFF /FFFF 


89446580 




0B41 





233£ 




STS 




N740 


STORE CONDITION OF C + OF 


88446590 




0B42 





F03D 




EOR 




N742 




88446600 




084 3 


00 


4tt6l»E48 




BSC 


L 


J742.+- 


BRANCH ON ZERO 


88446610 




0B4% 


00 


4*.000T63 




asi 


I 


FOCO 


AD FFFF*FFFF A FAILED 


88446620 




Do*? 





3I0F 




DC 




/310F 


ERR ID 


8B446630 




QB4 8 


00 


4',ooore? 


J742 


BSI 


L 


FOOL 


CK LOCK ON ERROR 


88446640 




0B4A 





70f 3 




MDX 




8742 


LOOP 


88446650 




084 B 





1800 




RTt 




16 


INTERCHANGE A AND 


8B4*6&60 




06* £ 





F03C 




EOR 




N74B 




8844 6670 




0f>4D 


(JO 


4C180B5? 




BSC 


L 


J744.+- 


BRANCH ON ZERO 


8B446680 




o.i4 r 


00 


4'iOOOFS3 




BSI 


L 


FOOO 


AO /7FFF+FFFF /FAILED 


8B446690 




0B5 1 





3110 




OC 




/ 3 1 1 


ERR ID 


8B4467O0 




0B*>2 


00 


4 400CFb2 


J74' 


BSI 


I 


FOOL 


CK LOCK ON ERROR 


8B446710 




0tf54 





70L9 




MDX 




8742 


LOOP 


8B446720 




065 i. 





co?e 




to 




N740 


LO C AND OF CONDITION 


8B446730 




0956 





F02r 




EOR 




N748 


ZERO IF CARRY WAS ON 


8B446740 




6857 


00 


4cisor.'-» 




BSC 


L 


J746,+~ 


BRANCH ON ZERO 


88446750 




06^9 


00 


^co'toat.? 




BSC 


L 


K746»E 


CHECK FOR CARRY 


88446760 




OBSB 


00 


44000F63 




BSI 


L 


FOOO 


CARRY NOT ON 


88446770 




0850 





3112 




OC 




/3112 


ERR ID 


8B4467S0 




0B5E 


00 


44000FD£ 




BSI 


L 


F005 


CK LOCK ON ERROR 


8B446790 




0860 





7000 




MDX 




B742 


LOOP 


86446800 




0B6 1 





700 ' 




MDX 




J746 




8B446810 




066 2 


00 


441 ' ' £3 


K746 


BSI 


L 


FOOO 


OVFLO ON 


8B446820 




0B64 





311 i 




DC 




/3111 


ERR 10 


8B446630 




086 5 


00 


44JOtf»r-I 


J746 


BSI 


L 


F005 


CK LOCK ON ERROR 


88446840 




0867 





70D6 




MDX 




B742 


LOOP 


8B446850 










********************************************* 


8B446860 




t^t^tt***** ************ ****************************************** ****** 


88446870 




COKE 




DATA 00 


*LA- 


OPER- 








8B446880 




ADCR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


+ REMARKS ID+SEO* AT RIGHT 


8B446890 




♦♦J******************************************************************** 


8B446900 




0868 





C81B 


8747 


LOO 




N746 


LO A=/0000 Q=/0001 


8B446910 




0869 





«81B 




AO 




N747 


A /0001 /0001 


8B446920 




086 A 





F01A 




EOR 




N747 


ZERO ACC IF CORRECT OP 


8B446930 




0868 


00 


4C160B70 


• 


BSC 


L 


J748,*- 


BRANCH ON ZERO 


8B446940 




DATE 
EC NO. 


l*il\%* 


01MAY 
41512 


it 


04N0V66 




H8 ,0 


08B4-1 
35 



0360 


00 


44000F83 




BSI 


L 


FOOO 


AD-ODD A RfcG FAILED 


8B446950 




08 oF 





3113 




DC 




/3U3 


ERR ID 


8B446960 




OB 70 


00 


4MJ00FB2 


J748 


SSI 


L 


FOOE 


CK LOCK ON ERRCR 


8B446970 




OB 7 2 





70F5 




MDX 




B747 


LOOP 


8B446980 




0873 





1800 




RTE 




16 


NOW A'/0002 0-/0000 


8B4<.6990 




0d7* 





CQll 




EOR 




N748 


ZERO ACC IF CORRECT OP 


8B447000 




0B75 


00 


4C180S7A 




BSC 


L 


J74A,*- 


BRANCH GN ZERO 


3B447010 




0377 


00 


44000FS3 




SSI 


L 


FOOO 


AD-ODD REG FAILED 


88447020 




0879 





3114 




DC 




/3114 


ERR ID 


86447030 




0B7A 


00 


44000FOE 


J74A 


BSI 


I 


FOG'S 


CK LOCK ON ERROR 


83447040 




0S7C 





70EB 




MDX 




1747 


LOOP 


83*47050 




037D 





700E 




MDX 




A780 


EXIT TO NEXT ROUTINE 


83447060 




0S7E 


c 


0000 


N740 


DC 




/oooo 




8B447070 




08 80 




0000 




6SS 


E 






88447080 




0B8O 





FFFF 


N742 


DC 




/FFFF 




88447090 




0881 





FFFF 




DC 




/FFFF 




8B447I00 




0882 





0000 


N744 


DC 




/OOOO 




88447110 




08 8 J 





0000 




OC, 




/oooo 




8B447120 




0384 





0000 


N746 


DC 




/oooo 




88447130 




0B85 





OG01 


N74 7 


OC 




/0001 




8B447140 




0B36 


c 


0002 


N74 8 


DC 




/0002 




88447150 




0887 


9 


0000 




OC 




/oooo 




8B447160 




0B88 





FFFE 


N74A 


OC 




/FFFE 




8B447170 




0B89 


3 


7FFE 


N74R 


IK, 




/7FFE 




88447180 




0B8A 





FFFF 


N74C 


DC 




/FFFF 




8844T190 




C68B 





7FFF 


* 

* 


DC 




/7FFF 


TEST SUB DOUBLE 


8B447200 
8B4472J0 
8B4«f722Q 
8B447230 










************!>***** ****t*****i.«-« ************** 


8B447240 




0B8C 





2000 


A780 


LDS 







SET C AND OF OFF 


8B447250 




0B8D 





C868 




LOO 




h'iSZ 


LD A=/0000 0=/0000 


88447260 




0B8E 





9869 




SD 




N7«4 


S /OOOO /0001 


884*7270 




068F 





2864 




STS 




H7BQ 


STORE C AND OF CONDITION 


8B447230 




0890 





F069 




EOR 




N786 


ZERO NlTH /FFFF 


88<'.?290 




0B91 


m 


4C180B96 




BSC 


L 


G7e0»+- 


BRANCH ON ZERO 


88447300 




089 3 


00 


44000F83 




BSI 


L 


FOOO 


SD 0000-0000 ACC FAILED 


SB4',7310 




089 5 


CJ 


3115 




DC 




/3115 


ERR ID 


86447320 




0B96 


00 


4400UFB? 


G780 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


88447330 




0B98 





70F3 




MOX 




A780 


LOOP 


8B447340 




0899 





1800 




RTE 




16 


NOW A = /Ff^F Q=/0000 


884'.7350 




0B9A 





F05F 




EOR 




,M786 


ZERO WITH /FFFF 


8B447360 




0B9 8 


00 


4C1808A0 




BSC 


L 


G782,*- 


BR ON ZERO 


8B4',73?0 




0B9D 


OQ 


44000F83 




BSI 


I 


FOOO 


SD 0000-0001 Q FAILED 


8B4A7380 




0B9F 





3116 




DC 




/3116 


ERR ID 


884*7390 




OBAO 


Ou 


44000FB2 


G782 


asi 


L 


FOOE 


CK LOCK ON ERROR 


88447400 




0BA2 





70E9 




MDX 




A780 


LOOP 


86447410 




03A3 





C050 




LD 




N780 


LD C AND OF CONDITION 


864 4 7420 




0BA4 





F0S7 




EOR 




N788 


2ER0 IF CARRY WAS ON 


8B447'»3Q 




08A5 


00 


4C180BB3 




BSC 


L 


G784,*- 


BRANCH ON ZERO 


88447*40 




0BA7 


00 


4C040BB0 




BSC 


L 


H?84,E 


CHECK FOR CARRY 


8B447450 




0BA9 


00 


44000F83 




SSI 


L 


FOOO 


CARRY NOT ON 


8B447460 




03AB 





3117 




DC 




/3117 


ERR 10 


86447470 




OBAC 


00 


44000FDE 




BSI 


L 


F005 


CK LOCK ON ERROR 


88447480 




OBAE 





7000 




MDX 




A780 


LOOP 


8B447490 




OBAF 





7003 




MOX 




G784 




8B447500 




0B80 


00 


440Q0F83 


H784 


BSI 


L 


FOOO 


OVFLO ON 


8B447510 




0BB2 





3118 




DC 




/3118 


ERR ID 


8B447520 




0683 


00 


44000FDE 


G7B4 


BSI 


L 


F005 


CK LOCK ON ERROR 


6B447530 




0BB5 





7006 




MDX 




A780 


LOOP 


8B447E40 










a******************************************** 


86447550 




********#*******«.***#*■************************#************************ 


86447560 




CORE 




0A T A OR 


*LA- 


OPER- 








88447570 




ADDR 




INSTRUCTION 


*Bf L 


ATION 


FT 


OPERANDS 


+ REMARKS ID*SE0= AT RIGHT 


88447580 




*********************** ******** **********$*****»**»*****»******** ****** 


88447590 




08 86 





2000 


A786 


LDS 







SET C AND GF OFF 


88447600 




0BB7 





C83E 




LDD 




N782 


LD A=/0000 0=/0000 


88447610 




0BB8 





9841 




SD 




N786 


/FFFF /FFFF 


8B447620 




DATE 




28FEB66 
415120 


01MAY66 
415120A 


04N0V66 




PROG 10 


08B4-1 


EC NO. 


415233 




PAGE 


35A 
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0869 


00 


4C180BBE 




est 


L 


G?B6,4— 


BRANCH ON ZERO 


OBbB 


00 


4 400OF8 3 




BSI 


I 


FOOD 


SD OOOO-FFFF A FAILED 


0680 





3119 




DC 




/3119 


ERR ID 


088E 


ou 


44000FE2 


G786 


SSI 


L 


FOOE 


CK LOCK ON ERROR 


O8C0 





70F5 




MDX 




A786 


LOOP 


0SC1 





1800 




RTE 




16 


NOW A=/O0Ol Q=/0QO0 


08C2 





F036 




EOR 




N7S5 


ZERO WITH /0001 


0SC3 


00 


4C1S0&C8 




BiC 


L 


G788.+- 


BRANCH ON ZERO 


udCS 


00 


44000F83 




B SI 


L 


FOOO 


SD OOOO-FFFF Q FAILED 


oacr 





311A 




DC 




/311A 


ERR ID 


08C8 


00 


4<»0O0FOE 


G788 


BSI 


L 


5 005 


CK LOCK ON ERROR 


08CA 





70EB 




m* 




A786 


LOOP 








*♦«**** *****»»&*******#************** ******* 


oacB 


c 


CB32 


AT8A 


LDO 




"4?8A 


LO A=/0Q00 0=/C000 


oacc 





9820 




SD 




N786 


S /FFFF /FFFF 


OSCD 


00 


4C180BD2 




BSC 


L 


&78A.+-- 


BRANCH ON ZERO 


oacF 


00 


4400QF83 




BSI 


L 


FOCO 


SD OOOO-FFFF A FAILED 


OBDl 





3118 




DC 




/311B 


ERR ID 


GB-D2 


&>) 


44000FB2 


G78A 


as; 


L 


FOOE 


CK LOCK ON ERROR 


&8D4 





70F6 




MDX 




A? 8 A 


LOOP 


0605 





18D0 




RTE 




16 


NOW A«=/C001 e=/oooo 


0906 





F029 




EOR 




N78D 


ZERO WITH /C001 


0B07 


00 


4C180BDC 




asc 


t 


G78C+- 


BRANCH ON ZERO 


08D9 


00 


440Q0F83 




BSI 


I 


FOOO 


SD COOO-FFFF FAILED 


OBDB 





311C 




DC 




/311C 


ERR ID 


OS DC 


00 


440O0F0E 


G76C 


BSI 


L 


F005 


CK LOCK ON ERROR 


aauE 





70EC 




MOX 




A78A 


LOOP 








*«***««»* **************************** ******** 


oaDP 





C816 


A78E 


LDD 




N782 


LD A=/0000 Q=/0000 


08E0 





9S1A 




SD 




N787 


S /FFFF /FFFF 


08E1 


00 


4C1S0BE6 




BSC 


L 


G78E,*- 


BRANCH ON ZERO 


03 £3 


00 


44000F83 




BSI 


L 


FOOO 


SD-ODD A FAILED 


QbftS 





31 ID 




DC 




/311D 


ERR ID 


OtJS& 


00 


44000FB2 


G78E 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


OSES 





70F6 




MDX 




A78E 


LOOP 


08E9 





1800 




RTE 




16 


NOW A=/0001 Q=/0000 


oafA 





FOOE 




EOP 




N785 


ZERO WITH /0001 


0.1 EB 


00 


4C180BF0 




BSC 


L 


H780,*- 


BRANCH ON ZERO 


08£0 


00 


4400 OF 03 




BSI 


L 


FOOO 


SD-ODD Q FAILED 


OSEF 





311E 




DC 




/311E 


ERR 10 


06F0 


00 


44000F0E 


H780 


BSI 


L 


F005 


CK LOCK ON ERROR 


0BF2 





70EC 




MDX 




A78E 


LOOP 


0&F3 





700D 




MDX 




A7C0 


EXIT TO NEXT ROUTINE 


08F4 





0000 


N780 


DC 




/OOOO 




08F6 




0000 




3SS 


E 






0BF6 





0000 


N7B2 


DC 




/OOOO 




08F7 





0000 




DC 




/OOOO 




C3F8 





0000 


N784 


DC 




/OOOO 




08F9 





0001 


N785 


DC 




/0001 




08FA 





FFFF 


N786 


DC 




/FFFF 




Q8FB 





FFFF 


N78 7 


DC 




/FFFF 




OBFC 





0002 


N788 


DC 




/0002 




08FO 





0000 




DC 




/OOOO 




03FE 





0000 


N78A 


OC 




/OOOO 




O&FF 





COOO 




DC 




/COOO 




OCOO 





C001 


N78D 


DC 




/C001 





TEST OF MULTIPLY OPERATION 



«****#************* 
CORE DATA OR 

ADOR INSTRUCTION 

»*******«***«.*#**** 

0C01 C04F 
0C02 A04F 
OC0 3 F04F 
0C04 00 4C180C09 



* 
********************************************* 

******** ******************************************** 

*LA- OPER- 

»DtL AT ION FT OPERANDS ♦ REMARKS ID+SEQ* AT RIGHT 

ft*********************** **************** »***»»»»»»** 

A7C0 LD N7C0 LO Z5555 

M N7C1 M /2AAA 

EOR N7C2 ZERO WITH /0E38 

BSC L G7C0,*~ BRANCH ON ZERO 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



8B447630 
8B447640 
8B447650 
8B447660 
8B447670 
8B447680 
8344 7690 
8B447/00 
8B4^7710 
8B447720 
8B447730 
88447740 
8B 44 77 50 
8B447760 
8B447770 
8B447780 
8B447790 
83447800 
38447810 
8B447820 
8B447830 
88447840 
88447850 
8B447860 
88447870 
88447880 
6B447890 
86447900 
8B447910 
8B44 7920 
8B447930 
88447940 
8B447950 
8B447960 
88447970 
BB447980 
8B447990 
88448000 
88448010 
8B448020 
8844 8030 
8844 8040 
88448050 
88448060 
86448070 
88448080 
88448090 
8B448100 
8B448110 
8B448120 
8B448130 
8B448140 
8B448150 
8B448160 
8B448170 
8B448180 
8B448190 
8B448200 
8B448210 
8B448220 
8B448230 
8B448240 
8B448250 
8B448260 
8B448270 
8B448280 
8B448290 
8B448300 



PROG ID 
PAGE 



08B4- 1 
36 



0C06 


00 


44000F83 




BSI 


L 


FOOO 


OC08 





311F 




DC 




'311F 


0C09 


00 


44Q00FB2 


G7C0 


BSI 


L 


FOOE 


OCOB 





7UF5 




MDX 




A7C0 


ococ 





1300 




RTE 




16 


OCOO 





F046 




FOR 




N7C3 


OCOE 


oo 


4C180C13 




asc 


L 


G7C2, 


too 


00 


44000F83 




BSI 


L 


FOOO 


0C12 





3120 




DC 




/3120 


0C13 


00 


44000F0E 


G7C2 


BSI 


L 


F005 


GC15 





70EB 




MDX 




A7C0 








******************* 


OCX 6 





C03E 


A7C4 


LD 




M7C4 


0C17 





A03D 




M 




N7C4 


0C18 


00 


4C180CID 




BSC 


L 


G7C4, 


0C3.A 


00 


44000F33 




BSI 


L 


FOOO 


0C1C 





3121 




DC 




/3121 


0C10 


00 


44Q00F62 


G7C4 


BSI 


L 


FOOE 


OCIF 





70F6 




MDX 




A7C4 


0C2O 





1800 




RTE 




16 


0C21 





F034 




EOR 




N7C5 


OC22 


00 


4C180C27 




BSC 


(.. 


G7C&, 


0C24 


00 


4400 0F63 




BSI 


L 


FOOO 


0C26 





3122 




DC 




/3122 


0C27 


00 


44000FDE 


G7C6 


BSI 


{, 


F005 


0C29 





70EC 




MDX 




A7C4 








***************«!*** 


0C2A 





C02C 


A7C8 


LO 




N7C6 


Of 2 8 





A029 




M 




N7C4 


CC2C 


00 


4C180C31 




BSC 


t. 


G7C8, 


0C2E 


00 


4400 OF 8 3 




BSI 


L 


FOOO 


OC30 





3123 




DC 




/3123 


0C31 


00 


4400 OF B 2 


G7C8 


&SI 


L 


FOOE 


0C3 3 





70F6 




MDX 




A7CR 


0C34 





18D0 




RTE 




16 


0C3 5 


00 


4C180C3A 




3SC 


L 


G7CA, 


0C3 7 


00 


44000F83 




BSI 


L 


FOOO 


0C39 





3124 




DC 




/3124 


0C3A 


00 


44Q00FDE 


G7CA 


BSI 


L 


F005 


0C3C 





70fcD 




MDX 




A7C8 








******************* 


0C3D 





C017 


A7CC 


ID 




N7C4 


0C3E 





A018 




M 




N7C6 


0C3F 


00 


4C180C44 




BSC 


L 


G7C.C, 


0C41 


00 


44000F83 




BSI 


L 


FOOO 


0C4 3 





3125 




DC 




/3125 


0C44 


00 


44000FB2 


G7CC 


BSI 


L 


FOOE 


0C46 





70F6 




MDX 




A7CC 


0C4 7 





18D0 




RTE 




16 


0C4 8 


00 


4C180C4D 




BSC 


L 


67CE, 


0C4A 


00 


44000F83 




BSI 


L 


FOOO 


0C4C 





3126 




DC 




/3126 


0C4D 


00 


44000FDE 


G7CE 


BSI 


L 


F005 


0C4F 





70ED 




MDX 




A7CC 


OC50 





7007 




MDX 




A800 


0C51 





5555 


N7C0 


DC 




Z5555 


OC52 





2 AAA 


N7C1 


DC 




/2AAA 


0C53 





0E38 


N7C2 


DC 




/0E38 


0C54 





9C72 


N7C3 


DC 




/9C72 


0C55 





FFFF 


N7C4 


OC 




/FFFF 


0C56 





0001 


N7C5 


DC 




/0001 


OC57 





OOOO 


N7C6 

* 
* 
• 
***** 


DC 




/OOOO 








***•*****«****: 


***********************#«•*«*********>!<** 


CORE 




OAT A Oft 


*LA- 


OPER- 






DATE 




28FEB6£ 


01MAY66 


04N0V66 


EC NO. 


•.15120 


415120A 


415233 



M /5555X/2AAA ACC FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW A = /9C72 C-/0000 

ZERO hi fh /9C72 
♦- BRANCH ON ZERO 

MULT 5555X2AAA G FAILED 

ERR ID 

CK LOCK ON Ef.RCR 

LOOP 
************************** 

LD /FFFF 

M /FFFF 
+- BRANCH ON ZERO 

M /FFFFX/FFFF ACC FAILED 

ERR ID 

CK tOCK ON ERROR 

LOOP 

NOW A=/O00i C=/0000 

ZERO WITH /0001 
+- BRANCH ON ZERO 

M /FFFFX/FFFF Q REG TAILED 

ERR ID 

CK LOCK ON ERROR 

LOO" 
*****«#* **■!-****«** ******** 

LD /OOOO 
M /FFFF 

♦- BRANCH ON ZERO 

M /FFFFX/OOOO ACC FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW A=/0000 C*/0000 
+- BRANCH ON ZERO 

M /FFFFX/OOOO Q REG FAILED 

ERR ID 

CK LOCK CN ERROR 

LOOP 
************************** 

LD /FFFF 
M /OOOO 

♦- BRANCH ON ZERO 

M /OOOOX/FFFF ACC FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW A=/0000 Q=/0000 
♦- BRANCH ON ZERO 

M /OOOOX/FFFF REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



TEST OF DIVIDE OPERATION 

************* ********* **** 

************* ******************* 



8B448310 
8B448320 
86448330 
BB448340 
88449150 
ooftOibi) 
8B448370 
8844 8380 
8B448390 
8B448400 
88448410 
83448420 
88448430 
8B448440 
8B448450 
8B44 8460 
86446470 
SB448480 
83448490 
88448500 
8B448510 
8B448520 
88448530 
8B448540 
88448^50 
86448560 
8B448570 
83448580 
3B44 8590 
8B448600 
8B448610 
8B448620 
88448630 
8B448640 
88448650 
83448660 
3844 8670 
88448680 
8B448690 
88448700 
8B448710 
8B448720 
8B448730 
8B448740 
88448750 
88448760 
83448770 
88448780 
8B448790 
88448800 
33448810 
8B448820 
8B448S30 
88448840 
83446850 
68448860 
8B448870 
8B448880 
8B448890 
8B448900 
8B448910 
8B448920 
8B448930 
8&448940 
86448950 
8B44 8960 
8B44 8970 
86448980 



PROG ID 
PAGE 



* 



08B4- 1 
36A 



')0()O0O0000000O00000O0 ooooooooo cooc 



O 'OOOOOOOOOOOGOCGO coco ceo coccocoooc 
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ADDR 




INSTRUCTION 


*BEL 


AT I ON 


FT 


OPERANDS 


+ REMARKS ID*SEO= AT RIGHT 


8B448990 




************ **&******** ****** *#*«** ********************** ****** ******** 


88449000 




0C5 8 





2000 


A800 


LDS 







SET C AND OF OFF 


83449010 




CCS9 


00 


CC00OCF6 




LOO 


L 


N802 


LO A=/40QC Q»/'7FFF 


8B449020 




0C5 8 


uo 


ACO00D06 







L 


N812 


D /8000 


83449030 




0C5D 


00 


2C000CF5 




STS 


L 


N800 


STORE C AND OF CONDITION 


8B449040 




0C5F 


00 


F 4000006 




EOR 


L 


N612 


ZERO WITH /80OO 


8B449050 




OCbl 


00 


4C1B0C66 




BSC 


L 


G8Q0.*- 


BR ON ZERO 


8B449060 




0C63 


00 


44000F83 




BS1 


I 


FOOO 


OVD-A-REG INCORRECT 


8B449070 




0C65 





3127 




DC 




/3127 


ERR ID 


88449080 




0C66 


00 


4400 OF B 2 


G800 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B449090 




0C68 





70EF 




MDX 




A 800 


LOOP 


8B449100 




0C69 





1800 




RTE 




16 


NOW A=/7FFF O*/OOO0 


8B449110 




0C6A 


oo 


F4000D05 




EOR 


L 


N811 


ZERO WITH /7FFF 


8B449120 




0C6C 


00 


4U80C71 




BSC 


L 


G802,*- 


BRANCH ON ZEKO 


8B449130 




0C6E 


00 


4400QF83 




BSI 


L 


FOOO 


DVO-0 REG INCORRECT 


8B449140 




0C70 





3128 




OC 




/312B 


ERR ID 


88449150 




0C71 


00 


4W00FB2 


G802 


8S1 


L 


FOOE 


CK LOCK ON ERROR 


8B449160 




0C7 3 





70C4 




MDX 




A800 


LOOP 


83449170 




0C74 


00 


C400OCF5 




LD 


L 


N800 


LD /OOOO 


8S449180 




0C76 


00 


4C18GC84 




BSC 


L 


G804.+- 


BRANCH ON ZERO 


8B449190 




0C78 


00 


4CO4 0C8J 




BSC 


I 


H804.E 


BR ON NOT EVEN 


8B449200 




0C7A 


00 


4400CF83 




SSI 


L 


FOOO 


CARRY ON 


8B449210 




0C7C 





3129 




DC 




/3129 


ERR 10 


8B449220 




UC7D 


00 


44000F0E 




BSI 


L 


F005 


CK LOCK ON ERROR 


83449230 




0C7F 





7008 




MDX 




A600 


LOOP 


8B449240 




0C80 





7006 




MDX 




A806 


EXIT TO MEXT ROUTINE 


8B449250 




0C81 


00 


44000F83 


H804 


SSI 


L 


FOOO 


OVFLO ON 


8B449260 




CC63 





512A 




DC 




/312ft 


ERR 10 


88449270 




0CS4 


00 


44000FDE 


G804 


BSI 


I 


F005 


CK LOCK ON ERROR 


8B449280 




0C86 





7001 




MDX 




A800 


LOOP 


8B449290 










********************************************* 


8B449300 




0C8 7 





C870 


A806 


LDD 




N804 


LD A=/1C71 Q=/8BE3 


8B449310 




0C88 


00 


A COO 000 7 







L 


N813 


/5555 


88449320 




CC8A 





286A 




STS 




N800 


STORE C AND OF CONDITION 


8B449330 




0C8B 


00 


F4000D07 




EOR 


L 


N813 


ZERO WITH /5555 


8B449340 




0C8D 


00 


4C180C92 




BSC 


L 


G806,+- 


BRANCH ON ZERO 


8B4493S0 




0C8F 


CO 


44000F83 




BSI 


t. 


FOOO 


DVD-A REG INCORRECT 


8B449360 




CC91 





412B 




DC 




/3128 


ERR ID 


88449370 




0C9 2 


00 


44000FB2 


G806 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B449380 




0C94 





70F2 




MDX 




A806 


LOOP 


88449390 




0C9S 





1800 




RTE 




16 


NOW A=/BBE3 Q=/0000 


88449«,00 




0C9 6 


00 


F4000D08 




EOR 


L 


N816 


ZERO WITH /20AA 


88449410 




0C98 


00 


4C180C9D 




BSC 


L 


G808 f ♦- 


BRANCH ON ZERO 


88449420 




0C9A 


00 


4400 OF 83 




BSI 


L 


FOOO 


DVD-Q REG INCORRECT 


8B449430 




CC9C 





312C 




OC 




/312C 


ERR ID 


83449440 




bC90 


00 


44000FB2 


G808 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B449450 




0C9F 


Q 


70E7 




MOX 




A 806 


LOOP 


8B449460 




OCAO 





CQS4 




LO 




N800 


LD C AND OF CONDITION 


68449470 




0CA1 


ou 


4C180CAF 




BSC 


L 


G80A, +- 


BRANCH ON ZERO 


88449480 




OCA 3 


00 


4C040CAC 




3SC 


L 


H80A.E 


BR IF NOT EVEN 


83449490 




OCAS 


00 


4400 OF 8 3 




BSI 


L 


FOOO 


CARRY ON 


8S449500 




0CA7 





3120 




DC 




/3120 


ERR ID 


8B449510 




0CA8 


00 


44000FOE 




BSI 


L 


F005 


CK LOCK ON ERROR 


8B449520 




OCAA 





70DC 




MDX 




A806 


LOOP 


8B449530 




OCAB 





7006 




MDX 




A80C 


EXIT TO NEXT ROUTINE 


88449540 




OCAC 


00 


44000F83 


H80A 


BSI 


L 


FOOO 


OVFLO CN 


8B449550 




OCAE 





312E 




DC 




/312E 


ERR ID 


88449560 




OCAF 


OU 


44000F0E 


G80A 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B449570 




0CB1 


a 


7005 




MDX 




A806 


LOOP 


8B449580 










********************************************* 


8B 449590 




/**«.************************»*****************»* ********************** 


8B449600 




CORE 




OATA OR 


*LA- 


OPER- 








8B449610 




AOOR 




INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS 


+ REMARKS ID+SEO= AT RIGHT 


88449620 




**t**t*******^********* **************************** ******************** 


8B449630 




0CB2 





2000 


A80C 


LDS 







SET C AND OF OFF 


83449640 




0CB3 





C846 




LOD 




N806 


SET A=/0000 Q=/0001 


88449650 




0CB4 





A 640 









N80E 


/OOOO 


88449660 




DATE 




28FEB66 


01MAY66 


04NQV66 




PROG 10 


0884- 1 


EC NO. 


415120 


415120A 


415233 




PAGE 


37 



0CB5 


00 


4C010CBA 




BSC 


L 


G80C.0 


BRANCH CN OVERFLOW 


8B449670 


0CB7 


00 


440UOF83 




BSI 


L 


FOOO 


DVD BY 0-OVRFLW CFF 


8B449680 


0CB9 





312F 




DC 




/312F 


ERR ID 


88449690 


OCBA 


00 


44000FDE 


G80C 


BSI 


L 


F005 


CK LOCK ON ERROR 


83449700 


OCBC 





70F5 




MDX 




A80C 


LOOP 


8B449710 








********************************************* 


8B449720 


OCBD 





2000 


A80E 


LDS 







SET C AND CF OFF 


83449730 


OCBE 





C830 




LDD 




N808 


LD A=/4000 0*/0000 


8B449740 


OCBF 





A83B 




D 




N807 


/0001 


8B449750 


OCCO 


00 


4C010CC5 




BSC 


L 


GbOEtO 


BRANCH ON OVERFLOW 


8B449760 


0CC2 


00 


44000F83 




BSI 


L 


FOOO 


DVD-BY 1-OVRFLW CFF 


8B449770 


0CC4 





3130 




DC 




/3130 


ERR ID 


88449780 


0CC5 


00 


44000FDE 


G80E 


BSI 


L 


F005 


C* LCCK ON ERROR 


8B449790 


0CC7 





70F5 




MDX 




A80E 


LOOP 


8B449800 








***** 


•,********************■** ******* ********** 


88449810 


0CC8 





2000 


B800 


IDS 







SET C AND OF OFF 


8B449820 


0CC9 





C834 




LDD 




N80A 


LD A=/AOOO a=/oooo 


8B449830 


OCCA 





A831 









N808 


D /4000 


8B449840 


OCCB 


00 


4C010CD0 




BSC 


L 


J800.0 


BRANCH CN OVERFLOW 


8B449850 


OCCD 


00 


44Q00F83 




BSI 


L 


FOOO 


DVD/4000-CVRFLW CFF 


8B449860 


OCCF 





3131 




DC 




/3131 


ERR ID 


83449870 


OCDO 


00 


440QQFDE 


J800 


BSI 


L 


F005 


CK LCCK ON ERROR 


8B4498B0 


0CD2 





70F5 




MDX 




B800 


LOOP 


8B449890 








******************************** ************* 


8B449900 


0CD3 





2000 


B802 


LOS 







SET C AND OF OFF 


8B44991Q 


0CD4 





C82B 




LDD 




N80C 


LO A=/C000 0-/0000 


8B449920 


0CD5 





A830 




D 




N812 


D /8000 


88449930 


0CD6 


00 


4C010CDB 




BSC 


L 


J802.Q 


SR ON OF 


88449940 


0C08 


00 


44000F83 




BSI 


L 


FOOO 


DVO/8000-OVRFLW OFF 


83*49950 


OCDA 





3132 




DC 




/3132 


ERR ID 


83449960 


OCDB 


00 


44000FDE 


J802 


BSI 


L 


F005 


CHECK LCOP SWITCH 


8B449970 


OCDD 





70F5 




MDX 




B802 


LOOP 


8B449980 








********************************************* 


8B449990 


OCDE 





2000 


3804 


LDS 







SET C AND OF OFF 


8B450000 


OCDF 





C822 




LDD 




N80E 


LO A=/0000 0=/FFFF 


8B450010 


OCEO 





A81A 




D 




N807 


D /OOOl 


88450020 


0CE1 


00 


4C010TE6 




BSC 


L 


J804.0 


BR ON OF 


8B4500 30 


0CE3 


00 


44000F83 




BSI 


L 


FOOO 


DVD/0001-OVRFLW OFF 


8B450040 


0CE5 





3133 




DC 




/3133 


ERR ID 


8B4500i>0 


0CE6 


ou 


4400 OFDE 


J804 


BSI 


L 


F005 


CK LOCK ON ERROR 


8B4».>0P{' 


0CE8 





70F5 




MDX 




B804 


LOOP 


864'. OOT. 








*********************** ***************** ****'. 


8B450G8C 


0CE9 





2000 


6806 


LOS 







SET C AND OF OFF 


8f ' 50C9C 


OCEA 





C819 




LDD 




N810 


LD A=/FFFF Q=/7»FF 


8B4S.0100 


OCEB 





A80F 









N807 


D /OOOl 


8B450110 


OCEC 


00 


4C010CF1 




BSC 


L 


J 806,0 


BR ON OF 


83450120 


OCEE 


00 


44000F8 3 




BSI 


L 


FOOO 


DVD/0001-OVRFLW CFF 


3B450130 


OCFO 





3134 




DC 




/3134 


ERR ID 


8B450140 


0CF1 


00 


4400 OFDE 


J806 


SSI 


L 


F005 


CK LCCK ON ERROR 


8B450150 


0CF3 





70F5 




MDX 




3806 


LOOP 


8B450160 


0CF4 





/023 




MDX 




B807 


EXIT TO NEXT ROUTINE 


3B450170 


0CF5 





0000 


N800 


DC 




/OOOO 




36450130 


0CF6 




0000 




ass 


E 






86450190 


0CF6 





4000 


N802 


DC 




/4000 




8B450200 


0CF7 





7FFF 




DC 




/7FFF 




8B450210 


0CF8 





1C71 


N804 


DC 




/1C71 




8B45022O 


0CF9 





BBE3 




DC 




/BBE3 




8B450230 


OCFA 





0000 


N606 


DC 




/OOOO 




8B450240 


0CF8 





0001 


N807 


DC 




/0001 




88450250 


OCFC 





4000 


N808 


DC 




/4000 




88450260 


OCFD 





0000 




DC 




/OOOO 




8B450270 


OCFE 





AOOC 


N80A 


DC 




/AOOO 




83450280 


OCFF 





0000 




OC 




/OOOO 




8B450290 


ODOO 





COOO 


N80C 


DC 




/COOO 




8B450300 


0D01 





0000 




DC 




/OOOO 




8B450310 


0D02 





0000 


N80E 


DC 




/OOOO 




83450320 


0D03 





FFFF 


N80F 


DC 




/FFFF 




8B450330 


0D04 





FFFF 


N810 


DC 




/FFFF 




8B450340 


DATE 




28FEB66 


01MAY66 


04N0V66 




PROG 10 0834- 1 


EC NO. 


415120 


415120A 


415233 
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0005 





7FFF 


N8H 


DC 




/7FFF 




8B450350 




0006 


U 


8000 


N812 


DC 




/8000 




8B450360 




00*7 





5555 


N813 


DC 




• 5555 




OS45O370 




000 8 





2DAA 


N816 


DC 




/2DAA 




8B450380 




000 9 





COOO 


N817 


DC 




/COOO 




88450390 




ODOA 





6100 


N818 


oc 




/6100 




88450400 




oooe 





0000 




DC 




/OOOO 




83450410 




cooc 





8000 


N81 9 


DC 




/8000 




8B450420 




OPOO 





oouo 




DC 




/OOOO 




83450430 




ODUE 





0002 


N820 


DC 




/0002 




88450440 




ODOF 





0000 


N821 


DC 









88450450 




0D10 





2001 




DC 




/2001 




8B450460 




0D11 





4000 




OC 




/4000 




8B450470 




0012 





COOO 




DC 




/COOO 




8B450480 




0D1 i 





8000 


N822 


OC 




/8000 




8B450490 




0D14 





FFFF 


W82 3 


DC 




/FFFF 




88450500 




0J15 





FFFF 




DC 




/FFFF 




6S450510 




0916 




0000 




BSS 


E 







8B450520 




0D16 





0000 


N 82 4 


DC 









8B450530 




0D17 





0000 




DC 









8B450540 










****.****«.s 


****<■< -t*.**1(**-***#*********#***Si***i* 


8B450550 




*****4a****$****#*fr******tS<*$* 


*^$****#****%.***** ***#********#******#* ** 


83450560 




CORE 




DATA OR 


*LA- 


OP E R- 








8B45057Q 




A0OR 




INSTRUCT 10* 


1 *3EL 


AT ION 


FT 


OPERANDS ♦ 


■ REMARKS ID+SEQ= AT RIGHT 


8B450580 




**«*****«************«********#«******««:e*:****^**«**t*^** **»$£** *****$£ 


3B4SO5<50 




0D18 





2000 


3807 


LOS 







SET C AND CF OFF 


83450600 




0019 





C8F0 




LOD 




N818 


L.D A=/6100 Q=/0000 


88450610 




0D1A 





A6EE 




D 




N817 


D /COOO 


88450620 




001 B 


00 


4C010D20 




8SC 


L 


J608.C 


BR ON Of 


8B450630 




00 ID 


00 


44000F8J 




8SI 


L 


FOOO 


OVERFLOW OFF 


8B450S40 




0D1F 





316A 




OC 




/316A 


ERR ID 


8B450650 




0020 


01) 


44000FDfc 


J808 


SSI 


L 


f 005 


CK LOCK ON ERROR 


88450660 




0022 





701" i. 




mr 




BM07 


I OOP 


3B45067Q 










j«t«t»ttt(»»*t»«»t«(»«4*4»t»***M *****#*#**#* 


88410680 




Of)? J 





2000 


3 30 8 


LOS 







SET C AND OF OFF 


88450690 




002 4 





C8E7 




LOD 




N619 


LD A-/P0OO O=/OO0O 


83450700 




002 b 





AHDD 




D 




N30F 


D /fFFF 


8B450710 




QB26 


GO 


4C010D2B 




BSC 


t 


J8Q9.C 


BR CN CF 


8S45O720 




on?a 


00 


4400 OF 8 3 




BSI 


I 


FOOO 


OVERFl CW OFF 


8B450730 




QD2A 





316B 




DC 




/316B 


ERP 10 


BB450740 




002 d 


00 


44000FDE 


J 80 9 


BS1 


I 


F005 


CK 1 OCK ON ERROR 


8B45O750 




0D2 





7 OF 5 




MDX 




B808 


LOUP 


8B450760 










******»**»*****************/>*«<* ************* 


8B450770 




00 2 E 





2000 


B809 


LOS 







SET C AND OF OFF 


83450780 




002 F 





C8E4 




LDD 




N82J 


LD A=/FFFF Q=/FFFF 


98450790 




0030 





A300 




D 




N820 


/0002 


8B450800 




ODM 


OD 


4C0UM34 




BSC 


L 


J815i C 


BR ON OF 


8B450810 




00 3 1 


u 


7003 




MOX 




J810 


OVERFLOW OFF 


83450820 




0034 


00 


4400CF83 


J815 


asi 


L 


FOOO 




83450830 




0U3e> 





316C 




DC 




/316C 


ERR ID 


8B450840 




00^7 


00 


44000FDE 


JS10 


BS1 


L 


F005 


CK LOCK ON ERROR 


8B450850 




0039 





70F4 




MDX 




3809 


LOOP 


88450860 










****#****<******$#*#$****:&****#**********£$ + ** 


8B450870 










tt»«il*Il«t««««<««*««*t«««t«*««t««»««)««t«*M 


88450860 










» 










83450890 










* 










8B450900 










• 






MULTIPLY-DIV TEST (3810) 


8B450910 










* 










8B450920 










* 










8B450930 










» 






THIS 


TEST TAKES 4 NUMBERS 


88450940 










* 






/8000 


. /CCOQt /4000 ANU 


88450950 










» 






/2001 


AND MULTIPLIES AND 


8B450960 










* 






CIVIDES THE RESUIT OF THE 


8B450970 










* 






MULT. 


PLICATION BY ALL 


8B450980 










• 






VALUES OF NEGATIVE AND 


8B450990 










* 






POSITIVE NUMBERS. THIS 


88451000 










* 






PROCECURE IS REPETEO 


8S451010 










r 






CNTIL 


ALL FOUR NUMBERS 


88451020 




DATE 




28FEB66 


01MAY66 04N0V66 




PROG ID 


08B4-1 
38 


Ef NO 


• 


415120 


415120A 415233 




PAGE 









* 






I 


HAVE BEEN USED. 


8B451O30 










* 










8B451040 










* 






STFP1 


SET MULTIPLICAND AND 


8B451050 










* 








DIVISOR TO LARGEST NEG. 


8B451060 










* 








NUMBER. 


8345107C 










* 






STEP2 


TAKE ONE OF FOUR NUMBERS 


83451080 










* 








AND USE IT AS THE 


8B451090 










* 








MULTIPLIER 


88451100 










* 






STEP3 


MULTIPLY 


8B451120 










* 






STCP4 


STCRE RESULTS IN SYMBOLIC 


88451120 










* 








LOCATION N824 


83451130 










• 






SIEP5 


DIVIDE 


83451140 










* 






STEP6 


CHECK RESULT 


83451150 










* 






STFP7 


INCREMENT MULTIPLICAND 


8B451160 










* 








AND DIVISOR BY 1. 


85451170 










* 






STEP8 


GO TO STEP 2 IF ALL 


68451180 










* 








VALUES HAVE NOT BEEN 


B3451190 










* 








USED AS MULTIPLICANDS AND 


P3-.51200 










* 








DIVISORS. 


88451210 










* 






i>T tP<i 


Stl UP FOR NEXT ONE OF 4 


83451220 










« 








MUl TIPL1ERS. 


8B45I230 










* 






STEP10 GO TO STEP 2 IF ALL 4 


8B451240 










* 








NUMBERS HAVE NOT BEEN 


66451250 










* 








USED. 


83451260 










* 










3B451270 










* 










88451280 










* 










83451290 










* NOTE - - 


THREE I.PRO LOCATIONS ARE AVAILABLE FOR 


8B451300 










* 




MANUAL INSERTION OF ANY VALUE DESIRED. 


88451310 










* 




fHEY ARL 


AT LABEL ADDRESS N821 + I, NB21+2 


8B451320 










* 




AND N821< 


•3. 


88451330 










* 










8B451340 










* CI 


«UT10\ 


*■# 


DO NOT CHANGE THE WORD AT LABEL 


88451350 










♦ 






LOCATION N822 ( /eOOOI. 


88451360 










" 










83451370 




*****4-**Jt- }*****************$** 


* &***£**£***********;* **£****£ ******* ***** 


38451380 




cnht 




DATA OR 


*LA- 


OPf A- 








8B45139Q 




ADDR 




INSTRUCTION 


*BEI 


ATICN 


FT 


QPERANCS ♦ PFMARKS IO+SEO" AT RIGHT 


£8t51400 




******* 


^fc^****^*********************^** **************<******$******** 


88451410 




0D3A 





6 5 04 


" • ' 


OX 


1 


4 


LD XR ! WITH /OC04 


8B451420 




0D3B 


00 


OCOOOFEC 


J814 


xio 


L 


F003 


CK BYPASS MPY/DIV 5W 


3B451430 




0D3D 


00 


C4000FFO 




LD 


L 


zooo 


LD SWITCH SETT 1NGS 


8B451440 




0D3F 





1808 




SRA 




8 


SHUT BIT 7 TO BIT POS 15 


8B451450 




0040 


q 


4804 




BSC 




E 


SK IF BIT 15=0 


83451460 




0041 





7028 




MDX 




A 8 40 


SW BIT 6 CN (BYPASS! 


8P45147C 




0D42 





CODO 




LD 




NB22 


CONST /8000 


CB451480 




0D43 





DOCB 




STO 




N821 


STCRE /8000 AT N821 


8B451490 




0044 





COCA 


J811 


LD 




N821 


LD C<N821) /8000 


8B452500 




0D4 5 


CO 


A5000DOF 




M 


LI 


N821 




68451510 




0D4 7 





D8Ct 




STD 




N824 


STCRE A AND C 


8B451520 




0D4 8 





2000 




LDS 







SET C AND OF OFF 


8S4'il530 




0D4 9 





A6C5 




D 




N821 


D /8000 


8B451540 




0D4A 


00 


F5000D0F 




EOR 


LI 


N821 


ZERO WITH /8000 


83451550 




0D4C 


00 


4C180D51 




BSC 


L 


J812.+ 


BRANCH ON ZERO 


83451560 




0D4E 


00 


44000F83 




BSI 


L 


FOOO 


ACC NOT ZERO 


8B451570 




0D50 





316D 




DC 




/316D 


ERR ID 


8B451580 




0D5 1 


00 


44Q00FB2 


JB32 


BSI 


l_ 


FOOE 


CK LCCK ON ERROR 


8B45 1590 




0D5 3 





70F0 




MDX 




J811 


LOOP CN MPL/DIV 


8B451600 




0D54 





18D0 




RTE 




16 


NOW *=/0000 C-/0000 


8B451610 




005 5 


00 


4C180D5A 




BSC 


L 


J813.+ 


BRANCH ON ZERO 


8B451620 




0D5 7 


00 


44000F83 




BSI 


L 


FOOO 


REMAINDER IN 8 REG 


8B451630 




0D59 





316E 




DC 




/316E 


ERR ID 


8B451640 




0D5A 


00 


44000FB2 


J813 


BSI 


I 


FOOE 


CK LOCK ON FRROR 


8B451650 




0C5C 





70E7 




MDX 




J8I1 


LOOP ON MPL/DIV 


8B451660 




0D50 





C0B1 


J816 


LD 




N821 


LD /8000 


8B451670 




0D5E 





809C 




A 




N807 


ADD ONE 


8B451680 




0D5F 





DOAF 




STO 




N821 




83451690 




0D60 


00 


4C180D5D 




BSC 


L 


J816.+ 


BRANCH ON ZERO 


8B451700 




OATE 




28FF&66 


01MAY66 1 


34N0V66 




PROG ID 


08B4-1 


EC NC. 


415120 


415120A 


* 15233 
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0J6? 


FOBO 


EOR 




N822 




0063 OU 


~C2ouri44 


BSC 


t 


J811.Z 


BR IF NOT ZERO 


0065 


71FF 


MDX 


1 


-I 




006 6 


7004 


MDX 




J814 


LOOP TO CK SWITCHES 


0067 00 


44QU0FC£ 


asi 


i 


•=005 


CK LOCK ON ERROR 


0069 


-000 


MDX 




B810 


LOOP 



ODbA 





6100 


006 b 





71FF 


006 C 





30 uO 


0060 





696E 


0D6E 





C06D 


006F 





F06D 


0D7O 


00 


4C180D75 


OP 72 


00 


440OOF83 


0074 





J I 35 


0D75 


00 


'.4000FOE 


00 7 7 





70F2 


0378 





C069 


0079 


00 


7401000E 


0070 





F066 


007C 


00 


4C180D81 


C07E 


OU 


4-«000F83 


0080 





316F 


U081 





CC5C 


0082 





f 060 


008 3 


00 


4C180D88 


006 5 


00 


44000F83 


008 7 





3136 


CD88 





COS? 


0D89 





005* 


0D8A 


00 


44000F0E 


008C 





70EB 


**********t* ***** 


CORE 




OATA OR 


AODR 




SNSTRUCTli 


t* ***********&*** 


ooeo 


00 


6600FFFE 


0D8F 


UO 


"(6000001 


0D91 





6A4A 


009 2 





C 04 9 


UD93 





F049 


009 4- 


00 


4C18GD99 


0D96 


CO 


44000P83 


009 8 





3137 


00«9 


00 


44000FOE 


009 3 





70F1 


009 C 





63FF 


0D9O 





7301 


009E 





7001 


009 F 





700 3 


OOAO 


00 


44000F83 


0OA2 





3138 


0DA3 


00 


44000F0E 


00A5 





70F6 



»*#***» ************************ ********** ***% , 

• TEST OF MDX OPERATION 

*************** ***************** ***S,,********9 

A840 LDX 10 LD XR 1 WITH ZERO 

1 ™I SK IF SIGN CHANGES 

MDX FAILED TO SKIP 
STORE C(XP XI AT N840 
LO VALUE LF XR i 
ZERO ACT WITH /FFFF 
BRANCH OM ZERO 
MDX XR 1 FAJLEO 
ERR ID 

C640 BS! L F005 CK JOCK OM ERROR 

LOOP 



LDX 

MOX 

.,'AIT 

STX 

LD 

EQR 

BSC 

3S1 

DC 

BSI 

MDX 



1 N840 
N840 

NS4I 
G840.+- 
FOOO 
/3135 

F005 
AS40 



Dr*lt*i*t ********* ****** j ************ ********** 



48-42 LD 



HOK 

EOR 

3SC 

BSI 

OC 

LD 

EOR 

8SC 

BSI 

OC 

LO 

sir 

BSI 
MOX 



H&42 



G642 



N845 

N842, ? 

N845 

H842.+- 

FOOO 

/316F 

N842 

N846 

G842.+- 

FOOO 

/3136 

N843 

N842 

F005 

A842 



LO WITH ADDS OF 

* LABEL N844 

BR TO LABEL ADDR N842 +1 

BRANCH ON ZERO 

ACC DISTROVEO AFTER ptDX 

ERR ID 

LD A = /3000 

ACC NOW /0001 

BRANCH ON ZERO 

ADD TO MEM FAILED 

ERR ID 

LO /3000 

CK LOCK ON ERROR 
LOOP 



00A6 61FF 

0DA7 7104 

0DA8 7001 

0DA9 7.303 



««M* ******** ******************** ************ ******** 

*HL&~ OPER- 
ON *SK AT1LN FT OPERANDS + REMARKS lD+SEg= AT RIGHT 

*84-4 LDX L2 -2 LD XR 2 WITH -2 

ADD ONE TO XR 2 
STORE XR Z 
LD WITH XR 2 VALUE 
ZERO ACC WITH /FFFF 
BRANCH ON ZERO 
MDX LONG XR 2 FAILED 
ERR ID 

GSS44 BSI L F005 CK LOCK ON ERROR 

LOOP 
***************************** *********** 

•4B4 6 LDX 3 -1 LO XR 3 WITH -1 

ADO ONE TO XR 3 
DID NOT SK ON MDX 
MDX H846 

w&46 BSI L FOOO XR 3 NO SKIP AT 

ERR ID 

«{-,iA BSI L F005 CK LOCK ON ERROR 

LOOP 

******************* ************************** 

AS+B LDX 1 -1 LD XR 1 WITH -I 

MDX 1 4 ADD 4 TO XR 1 

MDX G848 DID NOT SK ON MDX 
MDX H848 



LDX 


L2 


-2 


MOX 


L2 


i 


STX 


2 


N840 


LO 




N840 


FOR 




N84I 


BSC 


L 


G844.+ 


BSI 


L 


FOOO 


DC 




/3137 


BSI 


L 


F005 


MOX 




A 644 


l**************: 


LDX 


3 


-! 


MDX 


3 


1 


MDX 




G846 


MDX 




H846 


BSI 


L 


FOOO 


DC 




/3138 


BSI 


L 


F005 


MDX 




A846 



8B45I710 

88451720 

8B451730 

8B451740 

88451750 

8B45176Q 

88451770 

88451780 

83451790 

88451800 

8B451810 

8B451820 

88451830 

SS45184G 

88451850 

86451860 

8B451870 

8B451880 

8S451890 

8B451900 

SB451910 

88451920 

8B451930 

8B451940 

8B451950 

8B451960 

SB451«7£' 

8B451780 

88*51990 

88452000 

8B452010 

86452020 

8B452030 

88452040 

88452050 

8B452060 

8B452070 

8B452080 

8B452090 

8B452100 

88452S10 

88452120 

88452130 

88452140 

8B452150 

8B452160 

8B452170 

8B45210© 

8B452190 

8B452200 

8B452210 

8B452220 

88452230 

88452240 

8B452250 

8B45i260 

88452270 

8B452280 

8B452290 

8B452300 

8B452310 

86452320 

8B452330 

88452340 

8B452350 

8B452360 

88452370 

88452380 



OOAA 00 44000F83 

O'JAC J 3139 

C'UAO Ou 440UOFOE 

OUAF 70F6 



OOPO Oj 
0D62 
0DB3 00 
00 r 5 
0DB6 
OCu? Go 
0D6 9 00 
OOP 8 
ODdC 



&50GFFFE 

COFF 

75800DE2 

6 926 

F0FS 

4C1800BC 

4..000F83 

3168 

f OIF 



G848 BSI L TOOO SIGN CHANGE-NO SKIP 

DC /3139 ERR ID 
HS48 BSI L F005 CK I OC K ON ERRDR 

MDX A8*t8 LOOP 
********************************************* 



A 64 9 
H849 



006D FOiF 

008 E 00 4C1800C3 

ODCO 00 *>4Q00F83 

0DC2 313A 

0DC3 00 44000FDE 

0DC5 70EA 



K849 



G84 9 



LDX 

t.D 

MDX 

STX 

LOR 

8SL 

3SS 

DC 

LO 

EOR 

asc 

BSI 

DC 
BSI 

MOX 



LI -2 

H849 

II N845 

1 N840 

H849 
L K849,»~ 
L FOOO 

/31o8 

NE40 



N84i 

G8<»9,*- 

FOOO 

/313A 

F005 

A849 



ID XR 1 WITH 



STORE CUR 1) AT NS40 

BRANCH GN ZERO 

ACC GONE AFTER MOX 1NDEXE; 

ERR ID 

LD VALUE OF XR 1 AFTER 

* "OX OP 

ZERO ACC WITH /FFFF 

BRANCH ON ZERO 

INDIRECT MDX FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



******* s* *t **************************** ********** f 



00C6 





(400CD0A 


0DC8 





700i 


0DC9 





700 3 


ODCA 


00 


44000F83 


OOCC 





3171 


ODCO 


ro 


44000FDE 


OOCF 





70F6 


00 DO 


00 


"•'.0OCDD8 


0002 





700 3 



^84 A 



G84tt 



H84A 



MDX 

MIX 

M'JX 

SSI 

OC 

BSI 

MDX 



N84A.C 

G84A 
H84A 
FOOO 

/3171 

F005 

A84A 



TEST SKIP IF ZERO 
8VPASS IF CORRECT OP 

MDX L FAILED TD SKIP 
ERR ID 

CK LOCK ON ERROR 
LOOP 



*********** <-****************t****************** ** + 



0003 00 44U0CF8 3 

0005 3172 

ODD«s 00 44000FOE 

0D08 70F7 



ODD 9 

CDCA 

ODDB 



700A 

nooo 

0001 



A 85 A 



S-.85A 



N34A 

N85A 



MDX I NS5A.C TESf NCN SKIP 

HD* H85A 

BSI K FOOD iQX L SKIPED 

01 /3172 FRR ID 

3Sl L F005 CK LOCK ON ERROR 

HDX A8i<l LOOP 

MDX Afa80 TXIT TC NEXT ROUTINE 

DC CONSTANT ZERO 

Of- 1 NON ZERO CONSTANT 



**»>** *******f**** 
COBE DATA OR 

ADOK INSTRUCTIO 

********* ********* 

ODDC 0000 

ODDO FFFF 

ODDE 3000 

ODOF 3000 

ODEO 3000 

0DE1 0001 

0DE2 0DE1 

0DE3 3001 



tttttt»ttt4»t4*Sttt*>«,!ttt*st}*u***St«*«*>t««« 
**S-**»***S*tSt **-?******<!-****** t****x** *************** t 

*LA- OPER- 
N *BEL ATION FT OPFRANDS + REMARKS ID+SEO= AT RIGHT 

*********** ******************************$********.*** 



N84 
N841 
N842 



DC 

DC 

WAIT 

WAIT 

WAIT 

DC 

DC 

DC 



/oooo 

/FFFF 



ADO TO MEM FAKED 
ADD TO MEM FAILED 
ADD TO MEM FAILED 



TEST OF SLC OPERATION 



0DE4 

0DE5 

0DE7 

CDE8 

0DE9 00 

ODEB 

ODEC 

OOEE 

ODFO 

0DF1 

0DF3 





CO 





00 

00 



00 





0DF4 00 



610A 

CCOOOEDE 

2002 

1140 

6D000EDC 

2812 

4C180DF1 

44000F83 

313B 

44000FB2 

70F0 

C4000EDC 



N843 

N844 DC /0001 

N845 DC N84* 

N846 DC /3001 

• 

* 

* 

********************************************* 

A88O LDX i 10 LD XR 1 WITH *10 

LDD L N882 LD A=/0000 0=/FFFF 

LDS 2 SET C ON 

SLCA I NOW A=/0000 C=/FFFF 

STX LI N880 S10RE CtXR II 

STS G881 STORE CARRY CONDITION 

BSC L G880.+- BRANCH CN ZERO 

BSI L FOOO ACC NOT=ZERO 

DC /313B ERR ID 

G88O 3SI L FOOE CK LOCK ON ERROR 

MDX A880 LOOP 

LD L N880 LD PREVIOUS CIXR 1J 



8B452390 
8B45 t >400 
8B452410 
8B452420 
8B452430 
834!.?440 
8B452450 
8S452460 
86452470 
8B452480 
8B452490 
) 8B452500 
8B452510 
88452S20 
86452530 
83452540 
8B452550 
8B452560 
8B452570 
81452580 
8B452590 
88*52600 
88452610 
8B452620 
8B452630 
8B452640 
88452650 
8B452660 
8B452670 
8B452680 
83452690 
66452700 
8B452710 
8H452720 
8B",52730 
8b45?7<»J 
884527S0 
83452760 

&8452r ro 

3B43278C 
8E45i790 
83452800 
8B452810 
884528?0 
8B452830 
88452840 
bB452650 
PB452860 
8B452870 
86452880 
8B452890 
86452900 
8B4529S0 
8B452920 
8B452930 
8B452940 
88452950 
88452960 
83452970 
88452980 
88452990 
86453000 
8B453010 
8B453020 
83453030 
8B453040 
88453050 
8B453060 



OATE 28FEB66 tSl*AY66 04N0V66 

EC NO. 415120 *15120A 4 15233 



PROG ID 
PAGE 



08B4-1 
39 



OATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4-1 



IBM MAJMENANCF DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
PROCESSOR-CONTROLLER FACTION TEST 



PART NO. 2196-.71 
PAGE 40 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FJR THE 1800 SYSTEM 
PROCESSUR-CONTRCI LER FUNCTION TEST 



PART NO. 2196471 
PAGE 40A 



OOF 6 00 
0DF8 00 
OJFA 
OUFB 
ODFD 
ODFE 
ODFF 
OEOO 
OtOl 00 
0E03 
0E04 
01-05 00 
0EO7 
0EO8 00 
OEOA 





ou 






OEOB 00 
OfcOD 00 
OEOF 
0E10 o 
0E11 
0E12 Co 
0E14 00 
0E16 00 
0E18 
0E19 00 
0E1B 
0E1C 00 
OfclE 00 
0E20 00 
OE22 00 
0E2» 00 
0E26 
0t27 OU 
0F?9 
0t2A 
0E.2B 
0E2C 
0E2D 00 
0E2F 
0E30 00 
0E32 

******** 
CORE 

AODR 
•«•**«» * 

Ot3 3 00 

0E35 00 

0E37 

0E3B 00 

0E3A 00 

QE3C 00 

0E3E 

0E3F 00 

Of. 4 I 

01 4 2 Ou 

014 4 00 

0E46 00 

064o 00 

Ot4A 00 

Oc4L 

0'40 00 

0L4F 



4C160DFB 

440UOF83 

313C 

440G0FB2 

70E6 

2000 

4802 

?004 

44000FDE 

70tO 

7006 

44000F83 

3160 

44000FDE 

70D9 

65301/FFi 

CCOOOFFO 

2000 

1140 

2818 

F4000EF 2 

4C180E19 

44000F83 

313D 

44000FB2 

70EF 

60000CDC 

C4000EDC 

F4000EEA 

4C180E27 

44000F83 

313E 

44000FB2 

70E1 

2000 

4802 

7003 

4C00OF83 

3161 

44000FDE 

70D8 

********* 
DATA uR 
1NST-UCT I 

t»t» **»* • 

65&00t k 1 
CCO001E2 
1140 

F400UFE2 
".ClSOt }F 
440OUF H 3 
ilif 

<<*060f» < ' 
7t)f t 

tDOOOtOC 
C400 0£DC 
F 40001 1 1 
4C1£UE*0 
.,400 OF » J 

1140 

<.4000f Pt 
7oFi 



BSC L G882 t +- BRANCH CN ZERO 

BSI L FOOO XR 1 NOT=ZERO 

DC /313C ERR ID 

G8«2 BSI L FOOE CK LOCK ON ERROR 

MDX A880 100P 

C-Bbl LDS C SAVED BY STS ABOVE 

BSC C SK IF CARRY OFF 

MDX G883 CARRY ON 

BSI L F005 CK LOCK ON ERROR 

MDX A880 LOOP 

*DX A884 EXIT TO NEXT ROUTINE 

G8&J BSI L FOOO CARRY ON (SHOULD NOT DEI 

DC /3160 ERR ID 

BSI L F005 CK LOCK ON ERROR 

MDX A880 LOOP 

*«:;ei**-4*************************************** 

A&** LDX 11 N687 LD XI 1 WITH /FTDO 

LDD L N8b4 LD A=/0001 Q*/0010 

LDS SET C AMD OF OFF 

iLCA 1 ACC NOW /8000 

STS G885 STORE C AND OF CONDITION 

EOR L N886 ZERO WITH /8000 

aSC L G3B4,t- BRANCH ON ZERO 

BSI L FOOO ACC N0T=/8000 

DC '3130 ERR ID 

GPP* BSI L FOOE CHFCK LCOP SWITCH 

MDX A884 LOOP 

STX LI N880 STORE CIXR 1) AT N880 

LD L N880 LD CIN880) 

EOR L N88E ZERO WITH /FF01 

8SC L G886.+- BRANCH ON ZERO 

8SI L FOOO XR-1 NOT FF01 

DC /313E ERR ID 

G8£6 bSI L FOOE CK LOCK ON ERROR 

MDX A884 LOOP 

G5B5 LDS SAVfcD BY ST" '80VE 

BSC C SK IF CARRY OFF 

MDX G887 

BSC L FOOO CARRY OFF ( SHCULD BE ON) 

DC /3161 ERR ID 

06a7 BSI L F005 CK LOCK ON ERROR 

MDX A884 LOOP 

tea ********** ************************ ******** 

♦ ♦♦it**.*********************************************** 

*L£- OPER- 

PN « u ci AT ION FT OPERANDS ♦ REMARKS !D+SEQ= AT RIGHT 

♦ ♦ret.***********************************************-** 



Ae&r 



c»et 



LDX 

LDD 

S. CA 

tOR 

BSC 

BSI 

DC 

BSI 

MDX 

STX 

I 'J 

FOR 

BSC 

rsi 

DC 

e si 

MDX 



II N885 



N886 



N886 

G838 f +- 

FOGO 

/313F 

FOOF 

A888 

N880 

N880 

N885 

G68A, ♦- 

FOOO 

/3140 

F005 

A868 



LD XR I WITH /0010 

LO A= /8000 Q=/FFDO 

ACC NOW /8000 

ZERO WITH /8000 

BRANCH ON ZERO 

ACC N0r=6000 

ERR ID 

CK LOCK ON ERROR 

LOOP 

STORF CIXR 1) IN N880 

LD CIN880) 

ZERO WITH /0010 

BRANCH ON ZERO 

XR 1 N0T=0010 

ERR ID 

CK LOCK ON ERROR 

LOOP 



0F50 6110 
OF SI 6/10 
OF 52 6*10 



•«»t a***************************** *********** 
A6S9 LDX 1 16 LD XR 1 WITH /0010 

LDX 2 16 LD XR 2 WITH /0010 

LDX 3 16 LD XR 3 WITH /0010 



PA1 t 
FC Nu. 



41 I/O 



Ol***** 

«I!i).UA 



0-.N0V66 
•41523 3 



8B453070 

8B453080 

8B453090 

8B453100 

8B453110 

8B453120 

8B453130 

8B453140 

8B453150 

8B453160 

8B453170 

8B453180 

8B453190 

8B453200 

8B453210 

8B453220 

8B453230 

8B453240 

8B45325Q 

8B453260 

8B453270 

8B453280 

8B453290 

8B453300 

8B453310 

8B453320 

8B453330 

8B453340 

8B453350 

8B453360 

8B453370 

8S453380 

8B453390 

8B453400 

8B453410 

8B453420 

8B453430 

8B453440 

8B453450 

8B453460 

8B453470 

8B453480 

8B453490 

8B453500 

8B453510 

8B453520 

8B453530 

3B453540 

88453550 

8B453560 

8B453570 

8B453580 

8B453590 

8B453600 

8B453610 

8B453620 

8B453630 

SB453640 

8B453650 

8B453660 

8B453670 

8B453680 

8B453690 

8B453700 

8B453710 

8B453720 

8B453730 

8B453740 



PROG ID 
PAGE 



08B4-1 
40 



0E53 


00 


C4000EE0 




LD 


L 


N884 


LD A*/0001 


8B453750 




0E5 5 





1041 




SLCA 




1 


ACC NOW /0002 


8B453760 




0E56 


00 


F40Q0EE7 




EOR 


L 


N883 


ZERO WITH /0002 


88453770 




0E58 


00 


4C180E5D 




BSC 


L 


&b«9,+- 


BRANCH FN ZERO 


8B453780 




0E5A 


OU 


4400CF83 




BSI 


L 


FOUO 


NON INDEXED SLCA FAILtD 


8B453790 




0E5C 





3162 




DC 




/3162 


ERR ID 


8B453800 




0E5D 


00 


44000FDE 


G889 


BSI 


L 


F0U5 


CK LOCK ON ERROR 


8B453810 




0E5F 





70F0 




MDX 




A889 


LOOP 


8B453820 










********************************************* 


83453830 




0E60 





6110 


A88A 


LDX 


1 


16 


LD XR 1 WITH /0010 


88453840 




0E61 





6210 




LDX 


2 


16 


LD XR 2 WITH /0010 


8B453850 




0E62 





6310 




LDX 


3 


16 


LD XR 3 WITH /0010 


8B453860 




0E63 


00 


CCOOOEDE 




LDD 


L 


N8b2 


LD A=/0000 Q*/FFFF 


8B453870 




0E65 





10CF 




SLC 




15 


NOW A-/7FFF C=/1000 


8345388C 




0E66 


00 


F4000EEB 




EJR 


L 


N68F 


ZERO WITH /fFFF 


8B453890 




0Eo8 


00 


4C180E6B 




ESC 


L 


G8b5,+- 


NON INDEXED SLC FAILED 


8B4539CT0 




0E6A 





3173 




DC 




/3173 


ERR ID 


8B453910 




0E6B 


00 


44000FDE 


G88B 


BSI 


L 


F005 


CK LCCK on error 


88453920 




0E6D 





70F2 




MDX 




A88A 


LOOP 


8B453930 










********************************************* 


8B453940 










********************************************* 


83453950 




0E6E 


00 


65800EE8 


A88C 


LDX 


11 


N88C 


LD XR 1 WITH /0020 


83453960 




0E70 





C873 




LDD 




N88? 


ID A=/0000 0*/0000 


eB453970 




0E71 





11C0 




SLC 


1 





ACC NOW A=/0000 Q=/0000 


8B453980 




0E72 


00 


4C180E77 




BSC 


L 


Gb8C»-»- 


BRANCH CN ZERO 


8B453990 




0E74 


00 


44}00F83 




BSI 


L 


FOOO 


ACC NOT=0000 


83454000 




0E76 





3141 




DC 




/3141 


ERR ID 


8B454010 




OE77 


00 


44000FB2 


G88C 


BSI 


L 


FOOE 


CK LOCK ON ERROP 


8B454020 




0E79 





70F4 




MDX 




A88C 


LO&P 


8B454030 




0E7A 





18D0 




RTE 




16 


ACC NOW A*/0000 C=/0000 


8B454040 




0E7B 


00 


4C130E80 




BSC 


L 


G88F,*- 


BRANCH ON ZERO 


8B454050 




0E7D 


00 


44C00F83 




BSI 


L 


FOOO 


2 REG NCT*0000 


8B454060 




0E7F 





3142 




DC 




/3142 


ERR ID 


8B454070 




0E80 


00 


44000FB2 


C88E 


BSI 


L 


FOOE 


CK LOCK ON CRROR 


8B454080 




0E82 





70EB 




MDX 




A88C 


LOOP 


8B454090 




0E83 





6958 




STX 


1 


N8S0 


STORE CIXR 1) IN N880 


33454100 




Ot34 





C057 




LD 




Neeo 


LD CIN880) 


8B454110 




0E65 


00 


4C180EPA 




BSC 


L 


J880t+- 


BRANCH CN ZEPO 


8B454120 




0E87 


00 


4400QF83 




BSI 


L 


FOOO 


XR 1 NUT=0000 


8B454130 




0E89 





3143 




DC 




/3143 


ERR ID 


8B454140 




0E8A 


00 


44000FDE 


J880 


BSI 


L 


F005 


CK LCCK ON ERROR 


8B454150 




0E8C 





70E1 




MDX 




A8RC 


LOOP 


83454160 










********************************************* 


8B454170 




******************************************* 


******** ******************** 


8B454180 




CORE 




DATA OR 


*LA- 


OPER- 








83454190 




ADDR 




INSTRUCTION 


*6FL 


ATION 


FT 


OPERANDS 


♦ REMARKS ID+SEC= AT RIGHT 


8B454200 




***************************** * 


***************************************** 


8B454210 




0E8D 


00 


65800EE9 


B882 


LDX 


11 


NR8D 


LD XR 1 wlTH /FFDF 


83454220 




0E8F 





C856 




LDD 




N83A 


LD A-/0000 C=/0002 


8B454230 




0E90 





11C0 




SLC 


1 





NOW A* 'oOOO 0=/0000 


8B454240 




0E91 





F050 




EOR 




N886 


ZERO WITH /8000 


8B454250 




0E92 


00 


4C180E97 




BSC 


I 


J882t+~ 


BRANCH CN ZERO 


83454260 




0E94 


00 


44000F83 




BSI 


L 


FOOO 


ACC NOT=/8000 


8B454270 




0E96 





3144 




DC 




/3144 


ERR ID 


8B454280 




0E97 


00 


44000FB2 


J882 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


8B454290 




0E99 





70F3 




MDX 




B882 


LOOP 


8B454300 




0E9A 





18D0 




RTE 




16 


NGfc A=/0000 C=/8000 


8B454310 




0E9B 


00 


4C180EA0 




BSC 


L 


J8R4t+~ 


BRANCH ON ZERO 


8B454320 




0E9D 


00 


44000F83 ' 




BSI 


L 


FOOO 


C REG NOT*0000 


8B454330 




0E9F 





3145 




DC 




/3145 


ERR ID 


8B454340 




OEbO 


00 


44000FB2 


J884 


BSI 


L 


FOOE 


CK LCCK ON ERROR 


83454350 




0EA2 





70EA 




MDX 




8882 


LOOP 


88454360 




0EA3 





6938 




STX 


1 


N880 


STORE CUR 1) AT N880 


8B454370 




0EA4 





C037 




LD 




N880 


LD CCN880) 


86454380 




0EA5 


00 


F4000EEA 




EOR 


L 


N88E 


ZERO WITH /FF01 


8B454390 




0EA7 


00 


4C180EAC 




BSC 


L 


J866.+- 


BRANCH ON ZERO 


8B454400 




0EA9 


00 


44000F83 




BSI 


L 


FOOO 


XR-1 NOT FFOl 


8B454410 




OEAB 





3146 




DC 




/3146 


ERR ID 


8B454420 




DATE 




28FEB6b 


01MAY66 


04N0V66 




PROG ID 
PAGE 


08B4-1 

40A 


EC NU. 


415120 


415120A 


415233 





oooooooooo oooooooooooooooooooooooc 



ooooooooooooooo 



OOOOOO COOCOCCCOOOO( 
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OFAC OJ 44000FDE 
QUE II 70DE 


J 186 


BSI 
MOX 


L F005 

B882 


CK LOCK ON ERROR 
LOOP 


8B454430 

88454440 




*i«**«»t»*t.«*«*»»*»*»*j***tt*«t*««*»»«««»«»» 


88454450 


DEAF C836 


fa8J»4 


LDO 


N88A 


LD A=/0000 0=/0002 


8B454460 


QEBO 611F 




LDX 


1 31 


LD XR 1 WITH /00.1F 


8B4544?0 


0EB1 UCO 




SLC 


1 


NOW A=/8000 0=/Q000 


8B454480 


0EB2 U 4802 




BSC 


C 


SK IF CARRY OFF 


88454490 


QFB3 7003 




MQX 


J887 


CARRY ON 


8B454500 


0tS4 00 44000F83 




BSI 


L FOOO 


CARRY NOT ON 


8B454510 


0Fo6 3147 




oc 


/3147 


ERR 10 


8B454520 


0EB7 00 44000F62 


J887 


BSI 


L FOOE 


CK LOCK ON ERROR 


8B454530 


Gtfo9 70F5 




MDX 


B884 


LOOP 


88454540 


OEBA F027 




EOR 


N886 


ZERC WITH /8000 


8B454550 


0EB8 00 4C180ECO 




BSC. 


L J888.+- 


BRANCH ON ZERO 


8B454560 


0E6D 00 44U00F63 




BSI 


L FOOO 


ACC NOT EQUAL 8000 


88454570 


OEBF 3148 




OC 


/3148 


ERR ID 


8B454580 


OECO 00 44000FB2 


JB8S 


BSI 


L FOOE 


CK LOCK ON ERROR 


8B454590 


0EC2 70EC 
OECi 00 6D000EDC 




POX 
STX 


B884 
LI N88O 


LOOP 

STORE XR 1 WITH C( N88C I 


8B454600 

8B454610 


OtC5 C0l<6 




LD 


N880 


LD C1N880) 


8B454620 


OfcCb F019 




EOR 


N884 


ZERO WITH /OOOl 


8B454630 


0EC7 00 4C180ECC 




BSC 


L J889.+- 


BRANCH ON ZERO 


8B454640 


0CC9 00 44000F83 




BSI 


L FOOO 


XR 1 NOT EQUAL OOOl 


8B454650 


OECB 3149 




OC 


/3149 


ERR ID 


8B454660 


OEtC 00 44000F0E 


J889 


BSI 


L F005 


CK LOCK ON ERROR 


8B454670 


OECE 70E0 




MOX 


B884 


LOOP 


8S4546B0 




******************* *#****************** **.*t*4 


83454590 


OiCF 611C 


8685 


LOX 


1 28 


LD xr. 1 WITH /001C 


8B454700 


OEDO C815 




LOD 


N88A 


LD A=/0000 Q=/0002 


8B454710 


0ED1 1100 




SLA 


1 


NOW A=/2000 Q=/0000 


88454T20 


0^02 480 2 




BSC 


C 


SKIP IF CARRY OFF 


8B454730 


QED3 7001 
0ED4 7003 
0ED5 00 44000F83 


JB8A 


MDX 
MDX 
BSI 


J88A 

J88B 

L FOOO 


CARRY IS ON 


83454740 
8B454750 
8B454760 


0E07 314A 




OC 


/314A 


ERR ID 


88454770 

88454780 


0ED8 00 44000FDE 


J68B 


BSI 


L F005 


CK LOCK ON ERROR 


OEDA 70F4 
OEDB 7010 




MDX 

MDX 


3885 
B8A0 


LOOP 

EXIT TC NEXT ROUTINE 


8B454790 
8B454800 


M-DC OOOO 

otce oooo 

CEDE 0000 
OEOF FFFF 
CEEO 0001 


N860 
N88? 

N684 


OC 
BSS 

DC 
OC 
OC 


/OOOO 
E 

/OOOO 
/FFFF 

/OOOl 




8B454810 
8B454820 
8B454830 
8B454840 
88454850 
88454860 
8B454870 
8B4S4880 
8B454B90 
8B454900 
8B454910 
8B454920 
8B454930 
8B454940 
8B454950 
854 54960 


0EE1 0010 


N665 


DC 


/0010 




C6E2 8000 


N866 


OC 


/8000 




0EE3 FFOO 


N887 


DC 


/FFOO 




0EF4 OOOO 
0EE5 OOOO 
0EE6 OOOO 


N888 
N88A 


DC 
DC 

DC 


/OOOO 
/OOOO 
/OOOO 




OEE? 0002 


N68B 


OC 


/0002 




OEEB » 0020 


N88C 


or: 


/0020 




0EE9 FFQF 


N880 


DC 


/CFDF 




OEEA FF01 


N88E 


DC 


/FF01 




06 IB 7FFF 


N8SF 


DC 


/7FFF 






******** ******************************* ****** 


8B454970 




*t*««*t**t«|*t«**«>4««« 


****************** **** 


8B454930 




• 








8B454990 




* 




TEST 


COMPARE INSTRUCTION 


8B455000 




* 








88455010 




* 


A 


« ACCUMULATOR 


8B455020 




* 





= ACCUMULATOR EXTENTION 


8B455030 




» 


M 


= WORD BEING 


COMPARED 


8B45504Q 




* 


M+l = 2ND WORD 


CN OCM 


8B455050 




* 








8B455060 




• 




THE 1800 


HAS A COMPARE INSTRUCTION 


8B455070 




* 




BUT THE 1130 DOES NOT. THIS ROUTINE 


8B455080 




* 




DETERMINES WHICH MACHINE IS BEING 


8B455090 




* 




TESTED BEFORE ATTEMPTING A COMPARE 


8B455100 


GATE 28FEB66 
EC NO. 415120 


01MAY66 04N0V66 
415120A 415233 




PROG ID 
PAGE 



INDEX REGISTERS ARE HARCWARE IN 1600 
AND CORE STORAGE LOCATIONS IN 1130. 



**** 

CORE 
ADDR 
**** 

OEEC 

06 ED 

OEEF 

OEFO 

0EF2 

0EF4 

0EF5 

0EF6 

0EF7 

0EF3 

OEFA 

OEFB 

OEFD 

GEFE 

OEFF 

0F01 

0F03 

OF04 

0F06 

0FO7 
0F08 
0F09 
OFOA 



DATA OR 
INSTRUCT 

4*********** 

1810 

00 D4000001 

6 IFF 

00 C4000001 

00 4C200F76 

C075 

B072 

7004 

1000 

00 44000F83 

3148 

00 44000FB2 

Q 70EE 

F06B 

00 40180F07 

00 440QOF83 

314C 

00 44000FDE 

70E5 



INSTRUCTION. 8B455110 

8B455120 
8B455130 
8B455140 

******************** *********************************** 8B455160 

*LA- OPER- 8B455170 

ION *BEL ATION FT OPERANDS ♦ REMARKS ID + SEO AT RIGHT 8B455180 



C060 
B060 
7001 
7003 



OF03 00 «»4000F83 

OFOO 314D 

OFOE 00 44000FDE 

OF 10 70F6 



OF 11 





C056 


OF 12 





8058 


OF 13 





7001 


OF 14 


a 


700 3 



0F15 00 44000F83 
OF 17 314E 

0F18 00 44G0QFDE 
0F1A 70F6 



08B4- 1 
*1 



OF IB 


C04C 


0F1C 


B040 


0F1D 


7001 


0F1E 


7003 


0F1F 00 


440GOF83 


OF 21 


314F 


0F22 00 


44000FDE 


0F24 


70F6 


0F25 


C046 


0F26 


B041 


0F2 7 


7001 


0F28 


7003 


OF 29 00 


4400 0F83 


0F2B 


3150 


0F2C 00 


44000FDt 


0F2E 


70F6 


0F2F 


C039 


OF 30 


B038 


0F31 


7002 


EC T NO. 


28FEB66 
415120 



I 

L 

L 



B6A0 SRA 

STO 

LDX 

LD 

3SC 

LD 

CMP 

MDX 

SI A 

BSi 

DC 
J SAO BSI 

MDX 

EOR 

BSC 

BSI 

DC 

3SI 

MDX 
*********** ***. 



16 CK fVh 1130 OR 1800 

/OOOl STb(-t /OOOO AT ACCR /OOOl 

-1 LD XR 1 WITH /FFFF 

/OOOl LD CI/0001 ) 

k8C0,Z BRANCH IF 1130 

N8A2 LD CIN8A2! /4000 

NBAO A GREATER THAN M 

J8A0 A GREATER THAN M 

A LESS THAN M 

EOOO A CHEATER THAN M FAILED 

/314B ERR ID 

FOOE CK LOCK ON ERROR 

B8A0 LOOP 

N8A2 2ER0 WITH /4000 

BBA1.+- BRANCH CN ZERO 

FOOO ACC CHANGED ERROR 

/314C EPR ID 

F005 CK LOCK ON ERROR 

B8A0 LOOP 
**************** ************** 



BSA1 LD N8A0 N8A0 =/OQ0O 

CMP N8AI N8A1 s/1000 

MDX J8A2 A LESS THAN M FAILED 

M D" J8A1 A LESS THAN M 

J8A2 BSI L FOOO A LESS THAN M FAILED 

DC /314D ERR 50 

J8A1 BSI L F005 CK LOCK ON ERROR 

MDX B8A1 LOOP 

B8A2 



J8A4 



J8A3 



LD 

CMP 

MDX 

MDX 

BSI 

DC 

BSI 

MOX 



N6A0 

N8A3 

J8A4 

J8A3 

FOOO 

/314E 

F005 

B8A2 



N8A0 =/0000 

N8A3 =/2000 

A LESS THAN M FAILED 

A LESS THAN M 

A LESS THAN M FAIL EC 

ERR 3D 

CK LOCK ON ERRCR 

LOOP 



• ♦•ft*******************.,**********,** **,**„,* 

B8A3 LD N8A0 N8A0 =/0000 

CMP N8A2 NSA2 =/4000 

MDX J8A6 A LESS THAi\ 

MDX J8A5 A LfcSS THAN 

J8A6 BSI L FOOO A LESS THAN 

OC /314F ERR ID 

J8A5 BSI L F005 CK LOCK ON ERROR 

MDX 88A3 100P 

******************* ***********,» ****** ******** 



FAILED 



FAILED 



88A4 



J8A8 



J8A7 



LD 

CMP 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



N6A4 

NBAO 

J8A8 

J8A7 

FOOO 

/3150 

F005 

B8A4 
**t**»****»*»»»****«t»*»*»»,«„ nn , 
B8A5 LD N8A1 LP /1000 

N8A1 CMP /1000 

•J8AA A ECUAL M FAILED 



LD /8000 

compare c1n8a0) /oooo 
a less than m failed 
a less than m 
a less than h failed 

ERR 10 

CK LOCK ON ERRCR 

LOOP 

******** 



CMP 
MDX 



01MAY66 
415120A 



04N0V66 
415233 



8B455190 

83455200 

8B455210 

8B455220 

8B455230 

86455240 

8B455250 

6B455260 

8B455270 

83455280 

88455290 

8B455300 

8B455310 

8B455320 

8B455330 

8B455340 

3B455350 

8B455360 

8B455370 

83455380 

8B455390 

SB455400 

83455410 

8B455420 

8B455430 

8B455440 

8B455450 

8B455460 

88455470 

88455480 

88455490 

88455500 

8B455510 

8B455520 

88455530 

8B455540 

88455550 

8B455560 

8B455570 

8B45558G 

8B455590 

SB455600 

8B455610 

8B455620 

8B455630 

8B455640 

88455650 

88455660 

8B455670 

8B455680 

8B455690 

88455700 

8B455?10 

83455720 

8B455730 

8B455740 

88455750 

8B455760 

8B455770 

8B455780 



PROG 10 
PAGE 



09B4-1 
41a 
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OF32 





7001 


0F33 





7003 


or 3* 


00 


**OC0FP3 


0FJ6 





3151 



OF 37 00 **0OOFDE 
OF 3 9 70F5 



J8AA 



J8A9 



MDX 




J3AA 


MOX 




J8A9 


SSI 


L 


FOOO 


DC 




/3151 


BSI 


L 


F005 


MOX 




B8A5 



A FQUAL M FAILED 

A = M 

A=M FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 



******* 
CORE 
AODK 
*•* »*** 

0F3A 
OF 38 
0F3C 
OFiC 
0F3E 
Of3F 
0F*0 00 
0F42 
OF 4 3 
0F44 
0F46 
0F4 7 
0F48 00 
OF* A 
0F4B 
0F4C 
0F4D 00 
0F4F 
0F50 
OF 51 00 
0F53 





00 





OF 54 
OF55 
OF 50 
0F57 
OF 58 
OF 59 



**««**«**»** 
DATA OR 
INSTRUCTION 

************ 

C835 

B832 

7003 

1000 

4044 

3152 

44000FH2 

70F7 

F02C 

4C180F48 

40 3C 

3153 

44000FB2 

70EF 

1800 

F024 

4C180F51 

4033 

3154 

44000FDE 

70E6 

C81D 
BrilE 
7001 
7002 
402A 
3155 



**************»**»<*»******«****»*********»*<. 

» TEST DOUBLE CCMPARE 

* 

4 »**»**<■** ****»*<- *********************************** 

«LA- OPER- 

»bEL ATION FT OPERANDS ♦ REMARKS ID*SE0= AT RIGHT 



0F5A 00 44000FDE 
0F5C 70F7 



0F50 

0f5E 

0F5F 

0F60 

OF 6 1 

0F62 

0F6 3 

OF 64 00 

0F66 

OF 6 7 

0F68 

QFbtt 

OF 6 9 

OF&A 

OF 6 8 

0F6C 

0F6E 

OFcF 

0F6F 

OF 70 

OF 71 

OF 72 

OF73 












C814 

B813 

7002 

700 i 

I0'<2 

4020 

3156 

*'.OOOFDt 

70F6 

700t 

0000 

0000 

1000 

4000 

2000 

8000 

0000 

8000 

OOOO 

8000 

0001 

0000 

8000 



B8C0 LDD N8C6 LD A=/8000 Q=/0001 

DCM N8C5 AQ GREATER THAN M, M+l 

MOX J8C0 

SLA NO-OP 

BSI FOOO FAILEO A,Q NCT GREATER 

OC /3152 ERR ID 

J8C0 BSI L FOOE CK LOCK ON ERROR 

MOX BPCO LOOP 

EOR N8C6 ZEkO WITH /8000 

BSC L J8C1.+- BRANCH ON ZERO 

BSI FOOO ACC CHANGED 

DC /3153 tRR ID 

J8C1 BSI L FOOE CK LCCK ON ERROR 

MDX B8C0 LOOP 

RTE 16 NOW A*/0001 Q=/0000 

EOR N8C6+1 ZERO WITH /0001 

BSC L J8C2.*- BRANCH ON 2ER0 

BSI FOOO REG CHANGED 

DC /3154 ERR ID 

J8C2 BSI L F005 CK LOCK ON ERROR 

MPX B8C0 LOOP 

*•••••**<-***$«********•****** **************** 

B8C1 LDD N8C7 LO A=/0000 Q=/8000 

DCM \flC8 A,Q LESS THAN M, M + l 

MDX JPf3 A,Q GREATER THAN M.M+1 

MOX J8C4 A.Q LFSS THAN M,M*1 

J8C3 BSI FOOO FAILED A,0 GREATER 

DC /3155 ERR ID 

J8C4 BSI L F005 CK LOCK ON ERROR 

MDX B8C1 LOOP 

• »***•***»****«* ***************************** 



B8C2 



J8C5 



JBC6 



NhAO 
N8A1 
N8A2 
N8A3 
N8A4 

NBC 5 

NHC6 

N6C7 



LDD 

DCM 

MDX 

MDX 

MDX 

3S1 

DC 

BSI 

MDX 

MDX 

BSS 

DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 



N8C7 

Nec7 

J8C5 

J8C5 

J8C6 

FOOO 

/3156 

F005 

BRC2 

W8C0 



/OOOO 

/1000 

/4000 

/2000 

/8000 



/8000 

/OOOO 

/8000 

/0001 

/OOOO 

/8000 



LD A=/0000 Q=/8000 

A.Q EOUOL M.M+1 

A,Q GREATER 

A.Q LESS 

A,Q * M.M+1 

A.Q = M.M+1 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



8B455790 

8B455800 

8B455810 

8B455820 

8B455830 

8B455840 

8B455850 

8B455860 

BB455870 

8B455880 

8B455890 

8B455900 

8B455910 

8B455920 

8B455930 

8B455940 

83455950 

8B455960 

8B455970 

8B455980 

8B455990 

8B456000 

SB456010 

8B4S6020 

8B456030 

8B456040 

8B456050 

8B456060 

8B456070 

3B456080 

8B456090 

88456100 

83456110 

8B456120 

8B456130 

8B456140 

8B456150 

88456160 

8B456170 

83456180 

8B456190 

8B456200 

8B456210 

8B456220 

8B456230 

8B456240 

8B456250 

86456260 

8B456270 

8B456280 

8B456290 

8B456300 

SB456310 

8B456320 

8B456330 

8B456340 

8B456350 

82456360 

8B456370 

8B456380 

8B456390 

8B456400 

8B456410 

8B456420 

8B456430 

8B456440 

6B456450 

8B456460 



OF 74 OOOO N8C8 DC /OOOO 
OF75 8001 DC /8001 

******$* ****************«t**«»< **<********»** 

$«****««****«*************«***£************** 

*****••**«** **->******»***».******* ***•*******••****» ******************** 

COKE DATA OR *LA- OPER- 

ADDR INSTRUCTION *BtL ATION FT OPERANDS + RIMAKKS ID«SEC = AT PIGHT 



0F76 

OF 7 7 

OF 78 

OF 79 

0F7A 

0F7B 

0F7C 



0809 
COOA 
1804 
4804 
7002 
C003 
3003 



0F7D 00 4C00015* 
0F7F 0003 

OOOO 

0F82 



OF80 
CF60 
OF 81 
0FS2 



0240 
OOOO 



0F83 

0F84 
0F85 
0F8b 
OF 8 7 
0F88 
OF 89 
OF 8 A 
0F8B 



0F8C 



OOOO 
2816 
D063 
1800 
D062 
0863 
C066 
1807 
4 804 
7012 



OraO 00 C4300F83 
0F8F OOOC 

C0F2 

D01F 

805C 

DOEF 

C05B 

1801 

4 804 

700D 

C051 

18D0 

C04E 

2000 

3000 



0F90 
0F91 
0F92 
0F93 
0F9* 
0f95 
OF 96 
0F97 
0F98 
CF99 
0F9A 
0F9d 
0F9C 



0F9D 00 4C800F83 



W8C0 



X00 7 
W8C4 
Z020 



X1C 
LD 
SRA 
BSC 

MDX 

LD 

DC 

3SC 

DC 

BSS 

OC 

DC 

DC 



N8C1 

N8C3 

4 

E 

W8C4 

Z020 

/3O03 

A1*0 

/0003 



READ SWITCHES 

ID Sw BITS 

PLACE Sw 11 AT BIT 15 POS. 

IS SwITCH 11 ON 

SWITCH 11 ON 

SWITCH 11 IS OFF-WAIT 

PROGRAM FINISHED 



EQUAL /3A0O IN 1130 



N8C1 OC N8C3 

N8C2 DC /0240 

NSC 3 DC /OOOO 

* 

* 

********************************************* 

* 

ERROR CONTKOL ROUTINE 



* 
FOOO 



FOOL 



FOOX 
F002 

* 
FOOB 

* 
* 

* 

* 
* 
* 



DC 

STS 

STO 

RTE 

STO 

X10 

LD 

SRA 

BSC 

MOX 

LO 

STO 

LO 

STO 

A 

STO 

LD 

SRA 

BSC 

MDX 

LD 

RTF 

LD 

LDS 

WAIT 





FOOX 

UOOO 

16 

U001 

F003 

ZOOO 

7 

E 

FOOA 

FOOO 

F002 

FOOO 

UOOB 

U006 

FOOO 

ZOOO 

1 

E 

FOOF 

U001 

16 

UOOO 







BSC i FOOO 



REENTER ADDRESS 
SAVE STATUS 
SAVE A REG 

SAVE REG 

READ SWITCHES 

LD SW READINGS 

PLACE SW 8 AT BIT PCS 15 

Ck. LOOP ON INSTRUCTION 

* BEING TESTED SW 
GFT WAIT ERROR ID 
STOKE IRROR 10 AT F002 
GET RETURN ADDR 

STORE AT UOOB 

ADD ONE 

STORE NEW RETURN ACCRESS 

CK BYPASS FPROR SW 

PLACE SW 14 AT BIT POS 

SKIP IF SW 14 OFF 

CK FUR 8 OR 12 ON ALSO 

RESTORE REG AND WAIT 

PLACE IN Q REG 

RESTORE A PEG 

RESTORE C AND OF INO. 

ERKOR WAIT B REG 

* SHOWS ERROR ID 
EXIT FRCM ROUTINE 

* CIFOOOUS NOW ONE 

* GREATER THAN Al THE 

* BEGINNING OF ROUTINE 



LOOP ON INSTRUCTION BEING 
» TFSTED 



15 



CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS ♦ REMARKS ID*SEO= AT RIGHT 

0F9F C0E3 FOOA LD FOOO GLT RtTUl-N ADDR AT FOOO 



8B456470 

88*50*80 

83*56*90 

88*56500 

8B456510 

83*56520 

88*56530 

86*56540 

8B456550 

88*56560 

8B456570 

83456580 

8B456590 

83456600 

83*56610 

83*56620 

8B456630 

8B4S6640 

8B456650 

8B456660 

8B456670 

3B-.56680 

8B456690 

83456700 

8B456710 

8B456720 

8B456730 

8B*56740 

8B456750 

83456760 

88456770 

88*56780 

HB456790 

8B456800 

88*56810 

88*56820 

83*56830 

83456840 

83456850 

8B456860 

8B456870 

8B456880 

88456890 

8B456900 

83456910 

88*56920 

8B456930 

88456940 

83456950 

8B456960 

8B456970 

8B456980 

8B456990 

8B457000 

8B457010 

8B457020 

8B457030 

8B457040 

BB457050 

83457060 

88*57070 

8B*57080 

83*57090 

8B*57100 

6B*57110 

3B457120 

8B*57i30 

8B457140 



DATE 
EC NO. 



,'Hf E3<>o 
*151/< 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



0884-1 
42 



DATE 

EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



04N0V66 
415233 



PROG ID 
PAGE 



08B4- J 
42A 



00 00000000. O 000000 ooooooooooooo OOOC 



ooooooooooooooooooooo ccccocccocooc 
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OFAO 





D010 




STO 




UOOB 


STORE RETURN ADDRESS 




8B457150 




0FA1 





800D 




A 




U0G3 


ADD 3 




88457160 




0FA2 





QOEO 




STO 




FOOO 


UPDATE RETURN ADDRESS 




8B457170 




OF A 3 


00 


4C800F83 


* 


BSC 


I 


FOOO 


BR TO UPDATAD ADCRESS 
CK FOR SW 8 OP 12 




883-57180 
88457190 




0FA5 





1802 


FOOF 


SRA 




2 


PLACE SW 12 AT BIT POS 


15 


8B457200 




0FA6 





4804 




BSC 




F 


SKIP IF SW 12 OFF 




8B457210 




0FA7 





70F5 




MDX 




FOOB 


BR TO EXIT IF SW 12 ON 




8B457220 




OF Ad 





1804 




SPA 




4 


PLACE SW 8 AT BIT POS 15 


8B457230 




0FA9 





4804 




bSC 




E 


SKIP IF SW 8 OFF 




8B457240 




OFAA 





70F2 




MDX 




FOOB 


BR TO EXIT IF SW 8 ON 




8B457250 




OFAB 





C044 




LD 




ZOOO 


LD SWITCH READINGS 




8B457260 




OFAC 





0000 




DC 






IMPROPFR BIT SWS, 14 ON 




8B457270 




OFAD 





083E 




XIO 




F003 


♦WITHOUT 8 OR 12 CN 




8B457280 




OFAfc 





70E5 




MDX 




FOOL 






8B457290 




OFAF 





000 3 


U00 3 


DC 




3 


CONSTANT 3 




6B457300 




OFBO 





FFFO 


UOOA 


DC 




-3 


CONSTANT -3 




8B457310 




0FB1 





0000 


UOOB 

* 


oc 







ERROR CCCURED CONTROL 




8S457320 
8B457330 










******************************************** 




8B457340 








, 


* 












8B457350 










* 






LOCK 


ON ERROR RT 




33457360 










* 












8B457370 




♦a**************************** 


***************************************** 


8B4573S0 




COKE 




DATA OR 


*LA- 


OPER- 










8B457390 




ADOR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS ♦ 


REMARKS 10+SE0= AT RIGHT 


8B457400 




******* 


A * ^** **.** ***#*&* **************** *** ********** ******* $****#****** 


8B457410 




0FB2 





0000 


FOOE 


DC 







CONTAINS RETURN ADDRESS 




3B457420 




0FB3 





281A 




STS 




FOOH 


SAVE REGS C AND OF 




88457430 




0FB4 





D040 




STO 




UOOX 


ACCUMULATOR 




88457440 




CFB5 





18D0 




RTE 




16 






8B»57450 




0FB6 





00 iF 




STO 




UOOX+l 


ACC EXTENTION 


88457460 










* 












88457470 










*** *********************************************** 


8B457480 










» SET UP 


FOR RESTART 




* 


8B457490 










* 










* 


8B457500 










* TO RESTART — PRESS 


STOPt RESET AND START. 


* 


8B457510 










* 










* 


8B457520 




OF 37 





C03F 


* 


LO 




RSU 


LD /6004 


* 


88457530 
88457540 




0FB8 


00 


D4000000 


* 


STO 


L 


/oooo 


STO IN WORD ZERO 


* 


8B4575S0 
8B457560 




OFBA 





C03D 


* 


LD 




RST2 


LD /4C00 


* 


88*57570 
88457580 




OFBB 


00 


D4000004 


* 


STO 


L 


/0004 


STO IN WORD FOUR 


* 


8B457590 
8B457600 




OFBD 





C03B 


* 


LO 




RST2+1 


LD /012C 


* 


8B457610 
8B457620 




OFEE 


00 


D4000005 


* 


STO 


L 


/0G05 


STO IN WORD FIVE 


* 


8B457630 
8B457640 










************************************************* 


8B457650 




UF£0 





082B 




XIO 




F003 


READ SWITChES 




8B457660 




0FC1 





C02E 




LD 




2000 


CK LOOP ON INST BEING 




8B457670 




0FC2 





1807 




SRA 




7 


* TESTED SW 




8B457680 




0FC3 





4 804 




BSC 




E 


SKIP IF EVEN 




8B457690 




0FC4 





7O0A 




MOX 




F008 


EXIT TO LOOP INST 




8B457700 




0FC5 





COEB 




LD 




UOOB 


CK IF ERROR HAS 




8B457710 




0FC6 





4820 




BSC 




Z 


* OCCURRED 




8B457720 




0FC7 





7009 




MDX 




F009 






88457730 




0FC8 





C0E9 


FOOK 


LD 




FOOE 


GOT RETURN ADDR 




8B457740 




0FC9 





8025 




A 




U006 


ADD ONE 




8B457750 




OFCA 





D0E7 




STO 




FOOE 


STORE RETURN ADDRESS 




8B457760 




OFCB 





C02A 




LD 




UOOX+l 


RESTOR": REGS 




8B457770 




OFCC 





1800 




RTE 




16 






8B457780 




OFCD 





C027 




LD 




UOOX 






88457790 




OFCE 





2000 


FOO*M 


LOS 







SET C AND OF OFF 




8B457B00 




OFCF 


00 


4C800FB2 


F008 


BSC 


I 


FOOE 


BR TO RETURN ADDRESS 




BB457810 




0FD1 





C01E 


F009 


LO 




ZOOO 


CHECK LOCK ON ERROR SW 




8B457820 




DATE 




23FEB66 
415120 


01MAY66 


04N0V66 






PROG ID 


0884- 1 


EC NO. 


4151: 


!0A 


415233 






PAGE 


43 



0FD2 





1803 




SRA 


3 


*.M!FT BIT 12 10 POS 15 


3B457830 


0FD3 





4804 




BSC 


E 


SHIP If OF F 


8B457840 


OF 04 





7003 




MOX 


FOOC 


EKRCO SV (B 12) ON 


8B457850 


0FD5 





1810 




SRA 


16 


HISf T £RROK occurreo 


88457860 


0FD6 





DODA 




STO 


UOOB 


* CONT-KOL 


8B457870 


0FD7 





70F0 




MDX 


FOOK 


BR TO 6Er KETURN ACCkESS 


86457880 


0FD8 





C0D9 


FOOC 


LD 


FOOE 


GOT ADD* 


8B457890 


0FD9 





8006 




A 


UOOA 


AOD MiHUS THREE 


P34 5 7900 


OF DA 





F0D6 


* 


EOR 


UOOB 


COMPAkE 10 ERR CCNTR 

* ACDR 


eB457910 
83457920 


OFDB 





4820 




BSC 


I 


SK1° ON ZERO 


8B457930 


OFDC 





70EB 




MDX 


FOOK 


BR TO GET RETURN ADDRESS 


08457940 


OFDD 





70F1 


* 


MOX 


Fooa 


EXIT 


88457950 
88457960 








************»**:»***************************** 


88457970 








* 






CK LOOP RT SW RT 


83457980 








• 








38457990 


**********************<.<.**********»******** 


**************************** 


8B458000 


CORE 




DATA OR 


*LA- 


OPER- 






83458030 


ADDR 




INSTRUCTION 


*BEL 


AT ILN 


FT OPERANDS 


+ REMARKS 10+SEC= AT RIGHT 


83458020 


************-********************************$************************** 


88458030 


OFDE 





ooco 


FOOS 


DC 





WILL CONTAIN RETURN ADCR 


SB458040 


OFDF 





080C 


* 


XIO 


F003 


READ SWS - PLACE IN LABEL 
* ADDRESS ZOOO 


88458050 
8B458060 


OFEO 





COOF 




LD 


ZOOO 


CK LCOP ROUTINE SW 


8B458070 


0FE1 





1805 




SRA 


5 


CHECK FOR BIT 11 


8B458080 


0FE2 





4804 




BSC 


E 


NO SKIP FOR LOOP 


8B458090 


0FE3 





7003 




MDX 


FUOG 


LOOP ROUTINE SWITCH ON 


8B458100 


0Ffc4 





C0F9 




LD 


F005 


LD RETURN ADDRESS 


88458110 


0FE5 





DOCC 




STO 


FOOE 


SAVE FCR LCCK ON ERROR RIN 


8B458120 


0FE6 





70CC 




MDX 


FOOE+1 


Bi* TO SAVE REGISTERS 


8B458130 


0FE7 


00 


4Cfi00F0E 


FOOG 

* 


SSC 


I F005 


BR TO MAIN PROGRAM 
* RETURN ADORESS 


83458140 
8B458IS0 


Of E9 





0000 


UOOO 


DC 


/OOOO 


A REG SAVED HERE 


83458160 


QFEA 





0000 


U001 


DC 


/OOOO 


Q REG SAVED HERE 


66458170 


OFEC 




0000 




BSS 


E 




8B458180 


OF EC 





OFFO 


F00 3 


DC 


ZOOO 




8B458190 


OFEO 





0240 


FOG 4 


DC 


/0240 


EQUAL /3A00 IN 1130 


8B458200 


OFEE 





0002 


U004 


; J v 


/0002 




8B458210 


OFEF 


fj 


0001 


U006 


oc 


/0001 




8B45822C 


OFFO 





0000 


ZOOO 


DC 


/OOOO 


SW READING STORED HERE 


8B45823G 


0FF1 





0001 




DC 


/0001 




8B458240 


0FF2 




0000 




BSS 


E 




8B458250 


0FF2 





0000 


U008 


DC 


/OOOO 




SB458260 


0FF3 





0000 


U009 


OC 


/OOOO 




8B458270 


OFF 4 





0240 


F00 7 


DC 


/0240 


EQUAL /3A00 IN 1130 


8B458280 


0FF5 




G002 


UOOX 


BSS 


2 


SAVED FOR A + Q STORAGE 


8B458290 


0FF7 





6004 


RSTi 


LDX 


/0004 




SBt58300 


OFF 8 


00 


4C00012E 


RST2 


BSC 


L 4030 




88458310 


OF FA 




012D 




END 


xooo 




8B458320 
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CROSS REFERENCE LISTING 



SYMBOL 

AOCO 

A080 

A1C0 
A1DU 
A1EU 
A1F0 
A1O0 
A140 



A180 

A2CC 
A2C0 
A2C4 
A2C8 
A2U0 



A240 

A280 
A281 
A282 
A283 
A284 
A3C0 
A3C4 
A300 
A302 
A304 
A340 
A38C 
A380 
A384 
A388 
A4CC 
A4C0 
A4C2 
A4C8 
A400 
A408 
A44A 
A440 
A444 
A480 
A462 
A5C0 
A5C4 
A5C8 
A50A 
A50C 
A50E 
A c .00 
A502 
A504 
A508 
A54A 
A54C 
A54E 
A54F 
A540 
A544 
A546 
A54b 



VALUE KEFEfcENCES 

01JF 300F, 3010, 3011, 3012, 013A 

012E 3004,3005,3006,3007,3008, 

300E,0FF8 

01EB 303D,303fc,01E9 

01F5 303F, 3040, 304 1,3042,3043, 

0214 3046,3047,0210 

0320 3048,3049,0210 

014C 3013, 301"., 3015 

0154 3016, 3017, 3018, 3019, 301A, 

3020, 3021,3022,3023,3024, 

302E.0F7D 

01A0 302A, 302"?, 302C, 3020, 3C2F, 

3035, 3036,3037,3038,3039, 

0337 3072,0341 

0319 306F, 0312,0322 

0323 3070, 022C 

032D 3071,0336 

022D 304A, 30*8, 30<»C, 3040, 304E, 

3054,3055,3 056,3057,3 058, 

305E.3O5F.0229 

0270 3060,3061,3062,3063,3064, 

0^09 306A,028B,02C8,02E2 

02E3 306B.02ED 

02EE 306C02F8 

02F9 3060,0303 

0304 306E.0311 

030D 3080, 3081 ,0306, 03E9.03F3 

03F4 3062,3083,0407,0410 

0345 3073, 0342, 034E 

034F 3074,0359 

035A 3075,0364 

0368 3076,3077,0365,0373,0370 

03BD 307E,307F,03CB,03D5 

0381 3078, 3079, 037E.038B, 0395 

0396 307A,307B,039F,03A8 

03A9 3O7C,307D,0382,03BC 

05AC 30A8,30A9, 0588,050 

0566 30A1, 0562, 0570 

0571 3OA?,3OA3,30A4,30A5,0571, 

0596 30A6,30A7,05A2,05AB 

0419 3084,3085,3086,0411,0426, 

043A 3087,3088,3089,0448,0450, 

0500 3099, 3G9A,309B,050C, 0515, 

04C4 3093, 3094, 30°5,04BC,04CF, 

04E1 3096,3097, 3098, 04ED,04F6, 

0549 309F, 0542, 0554 

0555 30A0.0561 

074C 30CE.30CF, 0747, 0756, 075F 

0760 3OD0,3ODl,O76E,O778 

0779 3002,3003,0788,0792 

0600 30AF.30B0, 3170, 060B, 0612 

061D 30B1,3UR2,061C, 0629, 0630 

0631 30tJ3, 3084, 062A, 0630, 0644 

05C8 30AA,05C2,05D2 

05D3 30AB.05DD 

05DE 30AC,30AD,0aE9,05F4 

05F5 30AE.05FF 

06C1 30C0, 30C1,06B9,06CA,0602 

0603 30C2,30C3,06CB,06DC,06E4 

06E5 30C4,30C5,06DD,06EE,06F6 

06F7 30C6,30C7,06EF, 0701, 0709 

0663 3037, 30B8.3C89, 0654,0656, 

0687 30BA.30BB, 0670, 0692, 0699 

069C 30bC,30BD,0693,069A,06A7, 

06AF 30BE,30BF,06A8,06B8,06C0 



3009 , 300A ,3008 , 300C, 300D, 



3044, 3045, 01F2 



301 B, 301 C, 30 10, 301 E, 30 IF, 
3025,3026,3027,3028,3029, 

3030,3031,3032,3033,3034, 
303A,303B,303C,019E 



304F, 3050, 3051, 3052, 3053, 
3059,305A,305B,305Ci3050, 

026B 



0574,0582,0588,0595 

042E,0439 
0459 
051F 

0407, 04E0 
04FF 



066F,0676,0686 
06AE 



A580 070F 30C8,30C9, 0702, 070A, 0717, 0720 

A584 0721 30CA,30Cd,072A,0734 

A588 0735 30CC , 30CD, 0730,0746 

A6C0 0964 3CFQ,30F1. 0954, 0953, 0974, 0978 

A6C2 097C 30F2.30F3, 0975, 098C, 0993 

A6C4 0994 30F4,30F5,098D,09A3,09AA 

A6C6 09A8 30F6, 30F7, 09A4,09BS,09C2 

A6C8 09C3 30F8,30F9,098C,09D3,09DA,09EB 

A6D0 09EC 3150,09D4,090B,09F7 

A6D2 09F8 315E.0A03 

A603 0A04 315F.OAOF 

A6D5 0A10 3163, 0A1B 

A6D6 0A1C 3164, 0A27 

A6F0 CA28 3165, 0A36 

A6F1 0A39 3166,0A37,OA47 

A60A 0707 30D9,07E3 

A60C 07E4 30DA.07FO 

A60E 07F1 30DB.07F0 

A600 079F 3U04.0796.07A7 

A602 07A8 3005, 07B0 

A604 07B1 30D6.C78C 

A606 07B0 30D7.07C9 

A608 07CA 3008,0706 

A64A 086C 30E3.0879 

A64C 087A 30E4,0887 

A640 0820 30DE, 3167, 081A.082C, 0836 

A642 0837 30DF.0843 

A644 0844 30E0.08SO 

A646 0851 30E1.085D 

A648 085E 30E2.086B 

A660 O88F 3157, 3158, O88A, 089C, 08A6 

A662 08A7 3159, 31 5A , 0834, 08BE 

A664 08BF 315B, 31 5C , 08C C , 08D6 

A670 0809 3169,08D7,08E2,08E9 

A68C 0928 30EB, 30EC ,0932,093B 

A680 08EC 3CE5, 30E6, 08E 3, O8F7.0900 

A684 0901 30C7,30E8,090B,0913 

A688 0914 30E9,30EA,091E,0927 

A7CC 0C3D 3125, 3126. 0C46.0C4F 

A7C0 0C01 311F,3120,GBF3,OC06,OC15 

A7C4 0C16 3121, 3122, 0C1F.0C29 

47C8 0C2A 3123, 3124, 0C33.X3C 

m70C 0A8D 3100, 3101, 3102, 0A99.0 AA7 ,OAAE 

A700 0A48 30FA,30F8,OA54,0A5E 

A704 0A5F 3CFC, 30FD , 0A66 ,0A75 

A708 0A76 30FE, 30FF , 0A82.OA8C 

A74C 0614 3l0B,31OC,310O,31UE,0B20,OB2A,OB36,OB30 

A740 0AB8 3103, 310*. 3105,31 06, 0AA8 , OAAF ,0AC8 ,0AD3,0A0F,0AE6 

A746 0AE7 3107, 3108, 3109, 31 OA ,0 AF5 ,0 AF E .OBOC ,08 13 

A78A OBCB 3118 , 31 1C ,0304, OBDE 

A78E OBOF 31 ID, 31 IE ,0SE 8.0BF2 

A780 0B8C 3115, 3116, 3117, 3118, 0670, CB98.0BA2 ,0BAE,0BB5 

A786 0BB6 31 19, 31 1A, OBCO.OBCA 

A80C 0C32 312F.0CAB.0C8C 

A80E OCBD 3130, 0CC7 

A800 0C58 3127, 3128, 3129, 312A,0C5O,0C68,0C73,OC7F,OC86 

A806 0C87 312B,312C,3120,312E,0C80,0C94,0C9F,OCAA,0CBl 

A84A 00C6 3171, OOCF 

A840 0D6A 3135,0041,0077 

A842 0078 3136, 316F ,0D8C 

A844 008D 3137,0096 

A846 009C 3138, 0DA5 

A848 0OA6 3139, OOAF 

A849 0080 313A,3168,00C5 

A85A ODOO 3172,0008 

A88A 0E60 3173, 0E6D 

A88C 0E6E 3141, 3142, 3143, 0E79.0E82 ,0E8C 

A880 0DE4 313B , 31 3C , 316 0, 00D9, PDF3 , 0CFD.0E03 ,OEOA 
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G88C 


0E77 


0E72 




C.88E 


0E80 


0E78 




G880 


0DF1 


OOEC 




G88 1 


OOFE 


00E8 




G882 


00F8 


OOF 6 




G883 


0E05 


OEOO 




G384 


0E19 


0E14 




G885 


0E2A 


OEU 




G8 8 6 


0E27 


OE22 




G887 


0E30 


0E2C 




G888 


063F 


0E3A 




G889 


0E50 


OE58 




G900 


02AE 


02A1.0235 




G901 


02A6 


0295 




G902 


029E 


02A5 




G903 


0288 


02C0 




G904 


02C1 


0289,0260i 


,02C6 


H4C2 


0570 


057A 




H4C3 


057A 


0575 




H4C4 


0586 


0583 




H40A 


0460 


04AB 




H400 


04A8 


04A3 




H40E 


0439 


0484 




H400 


046C 


0467 




H402 


046 3 


045E 




H404 


0475 


0470 




H40 5 


0482 


047E 




H406 


0483 


0486 




H40 7 


047F 


04 7C 




H408 


0494 


048F 




H440 


"536 


0531 




H44 3 


052E 


0529 




H444 


053F 


053A 




H50A 


0606 


0604 




H508 


0617 


0615 




H50C 


0624 


0621 




K50E 


0642 


0636 




H508 


05FD 


05F9 




H54A 


0600 


06C4 




H54C 


06E2 


0o06 




H54E 


06F4 


06E8 




H54F 


0707 


06FA 




H540 


066A 


0668 




H544 


0680 


0688 




H546 


06A9 


06 A 




H548 


063E 


0682 




HoCO 


09 76 


0968 




H6C2 


098E 


0980 




H6C4 


09A5 


0998 




H6C6 


0960 


09AF 




H6C8 


0905 


09C7 




H6D0 


09F5 


09F0 




H6D2 


OAOl 


09FC 




H6D3 


OAOO 


0A08 




H605 


0A19 


0A14 




H6D6 


0A25 


0A20 




H6F0 


0A34 


0A2F 




H6F1 


0A42 


OA3COA30, 


0A3F.0A40 


H6F2 


0A45 


0A41 




H600 


07A5 


07A1 




M602 


07AE 


G7AA 




H640 


0822 


0822,0824 




H680 


08F5 


Q8F1 




H74A 


OBOE 


0805 
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H744 


0AE1 


0AD8 


H780 


03F0 


OBEB 


H7B4 


UBBO 


OB A 7 


HttOA 


OCAC 


OCA? 


H804 


0C81 


0C78 


H84A 


ODCO 


0DC9 


H84 2 


ODdl 


0D7C 


H346 


00A3 


009F 


Hb4 8 


OOAD 


0DA9 


H84 9 


00B2 


OOB2.0DB6 


H85A 


0DD6 


ODD 2 


J50A 


060D 


0605 


J50C 


0628 


0622 


J50E 


063F 


0637 


J5-.0 


0671 


0669 


J544 


0694 


068C 


J546 


06AC 


069F 


J600 


0809 


0804 


.1602 


0817 


0812 


J6BU 


0945 


0940 


J682 


0958 


094 A 


J70E 


0AA9 


OAAO 


J74A 


087A 


0B75 


J740 


0B3B 


0B2 0,08 37 


J742 


0B48 


0B43 


J744 


0B52 


0B4D 


J746 


0B65 


0B57.0B61 


J748 


0B70 


0B6B 


J8AA 


OF 34 


0F31t0F32 


J8A0 


OEFB 


0CF6 


JSA1 


OFOE 


OFOA 


J*A2 


OFOB 


0F09 


J8A3 


OF 18 


OF 14 


J8A4 


0F15 


OF 13 


J8A5 


0F22 


0F1E 


J8A6 


0F1F 


0F1D 


J8A7 


0F2C 


0F28 


J8A8 


0F29 


0F27 


JSA9 


0r37 


0F33 


J8C0 


0F4O 


0F3C 


J8C1 


0F48 


0F44 


J8C2 


0F51 


0F4D 


J8C3 


0F58 


OF 56 


J8C4 


0F5A 


0F57 


J8C5 


0F62 


OF 5F, OF 60 


J8C6 


0F64 


0F61 


J800 


OCDO 


OCCB 


J802 


OCDB 


0CD6 


J804 


0CE6 


0CE1 


J806 


0CF1 


OCEC 


J808 


0D20 


CD1B 


J809 


0D2B 


0D26 


J810 


0037 


0033 


J811 


0D44 


0D53.0D5C0D6 3 


J812 


0D51 


0D4C 


JU13 


ODSA 


0D55 


J81* 


0D3B 


0D66 


J815 


0D34 


0D31 


J816 


005D 


0D6O 


J88A 


0ED5 


0ED3 


J88B 


0ED8 


0ED4 


J880 


OtBA 


0E85 


J882 


0E97 


0E92 


J884 


OEAO 


0E9B 


J886 


OEAC 


0EA7 


J887 


0EB7 


0EB3 


J888 


OECO 


OEBB 


J869 


oecc 


0EC7 


DATE 
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K50B 
K50C 
K640 
K682 
K740 
K746 
K849 
N1C0 
N1C1 
N1D0 
NIDI 
N1D2 
N1E0 
N1E1 
N1F0 
N1F1 
N1F2 
N100 
N140 
N180 
N2C0 
N2C? 
N200 
N201 
N202 
N203 
N240 
N241 
N2 42 
N243 
N280 
N281 
N28 2 
N283 
N2 84 
N285 
N3C0 
N3C1 
N3C2 
N3C3 
N3C4 
N3C5 
N3C6 
N300 
N302 
N340 
N341 
N380 
N381 
N382 
N383 
N384 
N385 
N4C0 
N4C1 
N4C2 
N4C3 
N4C4 
N400 
N401 
N402 
N403 
N404 
N405 
N406 
N440 
N441 
N442 



DATE 
EC NO. 



061A 0616 

062E 0623 

0824 088C 

0955 094C 

0B38 0B2T 

0B62 0B59 

ODBC 00B7 

01F3 01EB 

01F4 01EE 

0211 01FB.01FC01FF.0207 

0212 01F5,C1F8,0208 

0213 0204,0200 
021E 0218,021A,021E 
021F 0214 

022A 022C 

0228 0224,0^26,0226 

022C 0220 

0143 014C014F 

019F 0154 

01EA 01A0.01A4 

0343 0319.031A, 0323, 032E 

0344 0324, 03£D, 0337, 0338, 0339 
026C 0231,0250 

026D 0258 

026E 0262 

026F 0267 

0271 0271,0275 

0273 0270,0274 

027C 027F 

0270 0278, 027E 

0313 02D9 

0314 02E3.0304 

0315 02E5.0309 

0316 02EE 

0317 02F0.02F9 

0318 02FB 

0412 03DF 

0413 03D0 

0414 03F6 

0415 03F4 

0416 03E1 

0417 03EB 

0418 03FF 

0366 0345, 0346, 034F 

0367 0350, 0351, 035A,035B,035C 
037F 0368 

0380 036A.0375 

03D7 0381 

03D8 0383,0380 

0309 0396 

03DA 03A9,03BD 

03DB 0384 

03DC 03CD 

05C3 0567, 0568, 0573, 058C, 0597, 0599, 05AD, 05 AF 

05C4 058D 

05C5 0598,05A3,05AE,05B9 

05C6 059A 

05C7 05B0 

04BD 0419, 041C, 0430 

04BE 0499 

04BF 047A 

04C0 045C0485 

04C1 0466 

04C2 043A.045A, 0478, 0497 

04C3 043D 

0543 04C4.0520 

0544 04C6.04E3, 0502. 0522 

0545 04E1,04EE 
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415120 
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PROG ID 
PAGE 
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N44 3 
N444 
N44 5 
N«.ftO 
N48 1 
M.H2 
NSC 1 
NSC 3 
NSC 5 
NSC 6 
NSC/ 
NSOO 
NSOl 
N502 
K'jlji 
NSC" 4 
N505 
N50 6 
N507 
N540 
N541 
N54 2 
N543 
N5H1 
N582 
N583 
N5R4 
N6CA 
Nt.Cb 
NoCD 
N6CF 
NbCU 
N6C1 
NSC2 
NbC3 
N6C4 
N6C5 
N6C6 
N6C7 
N6C8 
N6C9 
N6F0 
N6F1 
N6F2 
N6f 3 
NtiOO 
N6U1 

N602 
NS0 3 
Nt>04 • 
N64 



N64 2 
N64 3 
N644 
N66 

Nb70 

N6fc0 
N681 
N6S2 
N683 
N684 
Nb86 
N687 
N688 



DATE 
EC NO. 



0546 
0547 
0548 
0563 
0564 
056 5 
079b 
u79A 
079C 
079D 
U79E 
065C 
0650 
06Sfc 
065F 
0660 
0661 
0662 
05EA 
070B 
70C 
0700 
070E 
0748 
07<»9 
074A 
074b 
09E6 
09E7 
09E8 
09[ A 
U9DC 
O900 
09Dfc 
U9DF 
09E0 
09E1 
09t2 
09E3 
09E4 
09E5 
0A2D 
0A38 
0A30 
0A41 
081b 
081C 

OHIO 
OHlfc 
U81F 
088b 



oesc 

0880 
088E 
0808 

OSES 
09SC 
09*0 
095E 
095P 
U960 
0961 
0962 
0963 



0500 

0500 

0517 

0549, 

U54B, 

054A, 

74C, 

763, 

074D, 

0.57, 

77C, 

05C9, 

05D4 

05CF 

0Sr6, 

061E 

0649, 

064B 

05E0 

0664, 

0679, 

0670, 

069C 

070F 

0735 

0721 

0722. 

096C 

0984, 

09b3, 

09C4, 

0967, 

0900, 

09DE, 

090F 

0965. 

09AE, 

09E2 

09E3 

097F, 

096A, 

0A2A 

0A29, 

0A3A 

0A3E 

07UB, 

07B2, 

080F, 

0803, 

07BE, 

080E 

0821, 

0854, 

087E, 

082E 

085E, 

0820, 

0893, 

08CO, 

080A 

08t0, 

08EE 

0903 

0929, 

0933, 

0949 

091F 

093F, 



0557 

0555,0559 

05 4C, 0556, 0558 

0760, 0770, 0/7F 

0766, 07 70, 0779, 78A, 0793 

074fc, 0761, 0764, 0765, 077A 

0762, 076F,077B,077E, 0780, 0794 

0789,0795 

0601,0613,0633 



0646 
064A 



06AF 
067B 
0687, 06C 1,0603 



072C 

OA13.0A10 

0A11.0A1F 

C9CB 

090C09EF 

09EC,09F8,OA04,OA07 

09FB 

0970,0995,0997,0 9AC,09C6,09EO,09E9 
09E1 



09E4 

09oB, 0982, 0983, 099A.099B.09B1, 09 B2.09C9.09CA 



0A2E.0A38 



07E8.07F5, 0811,0818 

0784, 0?BF,07C 1, 07CC07CE, 0709, 07E6.07F3, 0801, 

08 1C 

0810 

07CB,O708,O7F5,0 7F2,0800,080C 

0823, 0820, 083 8, 83A, 0836,064 5, 0847, 0848, 0852, 
08 55, 085F, 086 1,0 862, 086D, 086 F, 08 70, 0878,0870, 
0889 

0R6C,087A,0888 

0837, 0844, 085 1,0 863, 0871, 087F 

0694,08?0,089E,0 8AB,08AC,08B5,08B6,08C3,OBC4, 

08CE 

0eF8,0°02,0915,0916 



09£ A 
093D.093E 



0948 
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N7C0 


0C51 


0C01 


N7C1 


0C52 


0C02 


N7C2 


0C53 


0C03 


N7C3 


0C54 


ocyj 


N7C4 


OC55 


OC16,OC17,oC23,0C30 


N7C5 


0C56 


0C21 


N7C6 


0C57 


OC2A.OC3E 


N700 


OABO 


OA49.0A60.0A8E 


N701 


0AB1 


OA4A,GA63,OA7 8,0A84,OA9F 


N702 


OA32 


OA43,OA55,0A6?,0A6C,0A79,OA83,0A90,0A9A,OA9E 


N703 


0AB3 


0A4C.0A61 


N704 


0AB4 


0A56.0A6D 


N705 


0AB5 


0A77,0At>F,0A91 


N706 


0AB6 


0A9B 


N707 


0AB7 


0A7A 


N74A 


0B88 


0B22 


N74B 


0B89 


0B4C 


N74C 


0B8A 


0B3F 


N740 


037E 


OAB0,0A04,OAEC,0AFF,0B17,0B2B,0B41,0B55 


N74 2 


0660 


OAo9,0ABF,0ACA,0AEA,0B15,CB16,OB18,0B40,OB42 


N744 


0B82 


OAoB 


N746 


0B84 


OAE8.0B68 


N747 


0B85 


0B69.0B6A 


N74 8 


0G86 


030i,Ob2C,OB5 6,OB74 


N76A 


OBFE 


OoCB 


N78D 


OCOO 


0306 


N780 


0BF4 


U38F, ObA3 


N782 


0BF6 


0B«D,OBB7,0BDF 


N784 


0BF8 


0B8E 


N705 


0Bf9 


0bC2,0BEA 


N786 


OBFA 


•jB90,0b9A,0BB8,0BCC 


N787 


OBFb 


OBFO 


N788 


OBFC 


0BA4 


N8A0 


0F68 


0£F5,0Fu7,0Fl 1,0F1B,0F26 


N8A1 


0F69 


OF08.0F2F ,0F30 


N8A2 


OFoA 


GEF'i.OEFE.OFlC 


N8A3 


0F6B 


0F12 


N8A4 


0F6C 


0F25 


N8C1 


0F80 


0F76 


N8C2 


0F81 


0298, 02A8 


N8C3 


0F82 


0F77.0F80 


N8C5 


0F6E 


0F3B 


N8C6 


0F70 


OF3A.OF43.0F4C 


N8C7 


OF 72 


0F54.0F5D.OF5E 


N8C8 


0F74 


0F55 


NbOA 


OCFE 


0CC9 


N80C 


0000 


0C04 


N80E 


0002 


0Cb4,0C0F 


N80F 


0003 


0025 


N800 


0CF5 


0C5O,0C74,0C8A,OCA0 


N802 


0CF6 


0C59 


N804 


0CF8 


0C87 


N806 


OCFA 


0CB3 


N807 


OCFB 


0CBF,OCE0,0CEB,O05E 


N808 


OCFC 


OCBE.OCCA 


N810 


0004 


OCEA 


N811 


0005 


0C6A 


N812 


0006 


OC5B,OC5F,0CO5 


N813 


OD07 


0C88,0C8B 


N816 


0008 


0C96 


N817 


0009 


001A 


N818 


OOOA 


0019 


N819 


OOOC 


0024 


N820 


ODOE 


0030 


N821 


OOOF 


0043, OD 44, 004 5, 0049, 0D4A, 0050, 005 F 


N822 


0013 


0042,0062 


N823 


0014 


002F 


N824 


0016 


0047 


OATE 
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01MAY66 04N0V66 
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NP4A 


OODA 


00C6 




N84 


ODOC 


OObD.OOhE ,OU91,0092,0C8S,0t.aC 




N84 1 


ODDD 


0D6F, 0093. 0030 




N842 


ODOfc 


0079, 0D8I, 0089 




N84 3 


OOEO 


0088 




N844 


00E1 


0DE2 




NBAS 


00E2 


0078,007b, 0083 




N346 


ODE 3 


0082 




N85A 


OODB 


ODOO 




N88A 


0EE6 


OESF,OEAF,OEOO 




N86B 


0EE7 


0E56 




N88C 


0EE8 


0E6E 




N86D 


0EE9 


0E8D 




N88E 


OEEA 


0620, OtA5 




N68F 


OFEB 


0E66 




N880 


otoc 


ODE °,0DF4,0£1C,0E1E,CE42, Of 44, 018 3,0184 
0EC3,0EC5 


t0(A3,0eA4, 


N8fe2 


OEDt 


00E5.0E63 




Nd84 


OEEO 


OEOO,0E53,OCC6 




N885 


UEE1 


0E33.0E46 




KBUb 


0Efc2 


OE12,0E35,OE3 8,OE91,OEBA 




N88? 


0EE3 


OEOB 




N888 


0EE4 


0E70 




RST1 


0FF7 


0FB7 




RST2 


0FF8 


OFBA.OFBO 




SS61 


0655 


0648 




S503 


0658 


064C 




UuOA 


0F80 


0F09 




UOOB 


0FB1 


OF91,OFA0,OFC5,0F06,OF0A 




UOOX 


0FF5 


0F54,0FB6,0FCB,0FC0 




uooo 


0FE9 


0F85.0F9A 




U001 


OFEA 


OF87.0F98 




U003 


OFAF 


0FA1 




U004 


OFEE 






U006 


OFEF 


0F92.0FC9 




UU08 


0FF2 






U009 


0FF3 






V1AC 


027A 


02 7C 




V154 


0241 


023E 




VI68 


024E 


024B 




V170 


0253 


0250 




V174 


0257 


0254 




V180 


0261 


025E 




V184 


0266 


0263 




H8C0 


OF 76 


0EF2.0F67 




W8C4 


OF 70 


0F7A 




xooo 


0120 


3000, OFFA 




X001 


0286 


3001,0281 




X003 


02C7 


3002, 02C 3 




X007 


0F7C 


3003 




zooo 


OFFO 


003D,0F69,0F94,0FAB,0FC1,0F01,0FE0,0F6C 




1020 


0F7F 


0F7B 
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3001 



3001 013D 



3002 0146 



3003 01 4A 



3004 0153 



3005 0169 



3006 0178 



3007 01B0 



* 
* 
* 

» 
* 
* 

* 

* 

* 
* 

* 

* 
* 
* 

* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 

* 

* 

* 
* 

* 

* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 



ABS 
ORG 



DC 



DC 



DC 



DC 



DC 



DC 



DC 



/3001 

*♦ PROGRAM WAITS *♦ 

WT1E1 WAIT 1 - 

NORMAL WAIT AFTER PROGRAM 
LOAD. BIT SWITCH 8 OFF TO 
RUN PROGRAM. BIT SWITCH 8 
ON TO SELECT SCOPING RTN. 
PUSH START TO EXECUTE 

NOTE 

INSERT 3 JUMPERS AS PER 
SECTION 3.2 A. SET OISPLAY 
ADDRESS REGISTER SWITCH TO 
DISPLAY CAR BEING TESTED. 

WT2EI WAIT 2 

OBSERVE CAR LAMPS. CAR 
SHOULD BE 0000. PUSH START 

WT3E1 WAIT 3 

OBSERVE CAR LAMPS. CAR 
SHOULD BE 7FFF. PUSH START 

WT4E1 WAIT 4 

THIS WAIT WILL OCCUR 15 
TIMES TO ALLOW THE OPER. 
TO CHECK A 1 BIT RIPPLE 
THROUGH THE CAR. THE CAR 
SHOULD BE THE SAME AS THE 
A REG AT EACH WAIT. PUSH 
START . 

WT5E1 WAIT 5 

THIS WAIT WILL OCCUR 16 
TIMES. AT EACH WAIT THE CAR 
CONTENTS SHOULD BE THE 
SAME AS THE A REG. EACH 
WAIT OCCURS AFTER THE CAR 
IS LOADED WITH 1 OF 16 
STARTING ADDRESSES AND 
STEPPED 50 TIMES. PUSH 
START AFTER EACH WAIT. 

WT6E1 WAIT 6 

OBSERVE CAR LAMPS. CAR 
SHOULD BE 7FFF. THIS WAIT 
OCCURS AFTER CAR IS LOADED 
TO 0000 AND STEPPED 7FFF 
TIMES. PUSH START TO RETURN 
TO WAIT 1. THIS IS THE END 
OF PROGRAM WAIT. 

WT7E1 WAIT 7 

SCOPE ROUTINE WAIT. ENTER 
DESIRED STARTING ADDRESS 
IN DATA ENTRY SWITCHES. 
PUSH START TO CONTINUE. 



8B500020 

8B500030 

8B500040 

8B500050 

8B500060 

8B500070 

8B500080 

8B500090 

8B500100 

8B500110 

8B500120 

8B500130 

8B500140 

8B500150 

8B500160 

88500170 

8B500180 

8B500190 

8B500200 

8B500210 

8B500220 

88500230 

8B500240 

8B500250 

8B500260 

8B500270 

8B500280 

8B500290 

8B500300 

8B500310 

8B500320 

8B500330 

8B500340 

8B500350 

8B500360 

88500370 

8B500380 

8B500390 

8B500400 

8B500410 

8B500420 

8B500430 

8B500440 

8B500450 

8B500460 

8B500470 

8B500480 

8B500490 

8B500500 

8B500510 

8B500520 

8B500530 

8B500540 

8B500550 

8B500560 

8B500570 

8B500580 

8B500590 

8B500600 

8B500610 

8B500620 

8B500630 

8B500640 

8B500650 

8B500660 

8B500670 

OB500680 

8B500690 



3008 01 B4 



DC 



3009 01C4 



300A 01ED 



300B 022B 



300C 01B8 



012C 



012C 
012D 
012E 
012F 
0131 
0132 
0133 
0135 



B500 
631B 
C04A 

D700 0007 
73FF 
70FC 

6700 0228 
6F0O 0008 



* 

* 
* 

* 

* 

* 
* 

* 

* 

* 
* 
* 
* 

* 

* 

* 
* 
* 
» 

* 
* 
* 

* 
* 
* 

* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

CARCK 



DC 



DC 



DC 



DC 



ORG 



WT8E1 WAIT 8 

SCOPE ROUTINE WAIT. ENTER 
DESIRED NUMBER OF CAR 
STEPS IN DATA ENTRY SWITS. 
PUSH START TO CONTINUE. 

WT9E1 WAIT 9 

SCOPE ROUTINE WAIT. BIT SW 
4 OPTION SELECTED. SINGLE 
STEP CAR WITH START BUTTON 

WTAEi WAIT A 

SCOPE ROUTINE WAIT. BIT SW 
3 OPTION SELECTED. DESIRED 
NUMBER OF CAR STEPS HAVE 
• BEEN ISSUED. CAR SHOULD BE 
THE SAME AS THE A REG. 
PUSH START TO CONTINUE 

WTBE1 WAIT B 

AN INTERNAL INTERRUPT 
OCCURED.THE ILSW IS IN THE 
A REG. PUSH START TO CONTIN 
UE FROM POINT OF INTERRUPT 

WTCE1 WAIT C 

SCOPE ROUTINE WAIT. ENTER 
CONTROL OPTIONS IN DATA 
ENTRY SWITCHES ACCORDING 
TO TABLE 1 SEC. 3. 
PUSH START TO CONTINUE 



300 



0137 C868 

0138 DCOO 0000 

013A 0867 
013B 0868 



DC 

LDX 

LD 

STO 

MDX 

MDX 

LDX 

STX 

LDD 
STD 

XIO 
XIO 



L3 
3 



/B500 

27 

CONST 

7 

-1 

*-4 
L3 ERROR 
L3 8 

RESRT 
L 

UMSKO 
UMSK1 



♦CHANNEL ADDRESS REG* 

* CHECK PROGRAM * 

* * 

* ** CARCK *♦ * 

THIS PROGRAM IS TO BE USED 
IN CONJUNCTION WITH THE 
CYCLE STEAL REQUEST TEST 
AND THE CYCLE STEAL ACKNOW 
LEDGE TEST FEATURE OF THE 
1800 SYSTEM DATA CHANNELS 

PID 

LOAD INTFRRUPT 
♦ADDRESS WITH TRAP 
♦ROUTINE ADDRESS 



SET INTERNAL INTRP 
♦ADDRESS 

SET RESTART INSTRN 



UNMASK INTERRUPT 
♦LEVELS 



8B500700 

8B500710 

8B500720 

8B500730 

8B500740 

8B500750 

8B500760 

8B500770 

8B500780 

8B500790 

8B500800 

8B500810 

8B500820 

8B500830 

8B500840 

8B500850 

8B500860 

8B500870 

8B500880 

8B500890 

8B500900 

88500910 

88500920 

8B500930 

8B500940 

8B500950 

8B500960 

8B500970 

8B500980 

8B500990 

88501000 

8B501010 

8B501020 

8B501030 

8B501040 

8B501050 

88501060 

8B501070 

8B501080 

8B501090 

8B50U00 

8B501U0 

8B501120 

8B501130 

8B501140 

8B581150 

8B501160 

8B501170 

8B501180 

8B501190 

8B501200 

8B501210 

8B501220 

8B501230 

8BS01240 

8B501250 

8B501260 

8B501270 

8B501280 

8B501290 

8B501300 

8B501310 

8B501320 

8B50133O 

8B501340 

8B501350 

BB501360 

8B501370 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CAR EXERCISER 
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013C 3001 



0130 086C 
013E C03E 
013F 1008 
0140 4C28 01AE 

0142 C04B 

0143 D062 

0144 0861 

0145 3002 

0146 C038 

0147 D05E 

0148 085D 

0149 3003 



014A 6301 
014B 6B30 
014C 6310 



* 

WT1 

* 

* 



0140 
014F 
0150 
0151 



C700 018E 
D056 
0855 
C02A 



0152 3004 



0153 1001 

0154 D027 

0155 73FF 

0156 70F6 



0157 
0158 
015A 
015B 
015C 
015D 
015E 

015F 
0160 
0162 
0163 
0164 
0165 
0166 
0167 



6110 

C500 017D 

D04B 

801E 

D01E 

6232 

0847 

0848 

7401 017B 

1000 

72FF 

70FA 

C015 

1000 

1000 



0168 3005 



0169 71FF 
016A 70ED 



WT2 
* 



* 

WT3 
* 
* 

* 

* 



* 
CAR1 



* 
WT4 

* 

* 



* 
* 
* 

CAR2 



* 
CAR 3 



* 
WT5 

* 
* 



WAIT 



XIO 
LD 
SLA 
BSC 

LD 

STO 

XIO 

WAIT 

LD 

STO 

XIO 

WAIT 



LOX 3 
STX 3 
LDX 3 

LD L3 
STO 
XIO 
LD 

WAIT 



SLA 
STO 

MDX 3 
MDX 



BSW 
BSW1 
8 
CARMN.6Z 

ADDRS616 

LOAD 

LOAD 



ADDRSS1 

LOAD 

LOAD 



SET BIT SW 8 TO 
♦SELECT MANUAL MODE 

GO TO MANUAL ROUTINE 
*IF SELECTED 



LOAD CAR 

CAR SHOULD BE 0000 
LOAD CAR 

CAR SHOULD BE 7FFF 



**RIPPLE ONE BIT THROUGH** 
**ALL CAR BIT POSITIONS ♦♦ 

SET UP CHECK STORAGF 



1 

RIPL 

16 



RIPPL-1 GFT BIT LOAD ADDRESS 

LOAD SET ADDRESS IN IOCC 

LOAD LOAD CAR 

RIPL LOAD A WITH EXP ADRS 

4 CAR SHOULD BE THE 

♦SAME AS A REG 

1 SFT CHECK STORAGE FOR 

RIPL *NEXT BIT POSITION 

-1 SKIP WHEN ALL BIT 

CAR1 *POSITIONS CHECKED 

** CHECK CAR INCREMFNT ♦ ♦ 



1 
LI 



LDX 

LD 

STO 

A 

STO 

LDX 2 

XIO 

XIO 

MDX L 

NOP 

MDX 2 

MDX 

LD 

NOP 

NOP 

WAIT 



MDX 
MDX 



16 

ADDRS-1 

LOAD 

ONE 

COUNT 

50 

LOAD 

STEP 
COUNT, 1 

-1 

CAR3 
COUNT 





-1 
CAR2 



ADDRESS INDEX 

SET STARTING ADDRESS 

*IN IOCC AND IN 

♦COUNTER 

STEP INOEX 
LOAD CAR 

STEP CAR 
STEP COUNTER 

SKIP IF 50 STEPS 



ELIMINATE BIT POS. 
*0 FROM CK WORD 

CAR SHOULD BE THE 
♦SAME AS A REG 

SKIP IF ALL ADDRESS 
♦USED 



♦♦CHECK INCREMENT FROM+^ 
♦♦ZERO TO 7FFF ♦♦ 
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8B501380 




* 








8B501390 


016B 1010 




SLA 


16 




8B501400 


016C D039 




STC 


LOAD 




8B501410 


0160 C011 




LD 


ADDRStl 


SET UP STEP COUNTER 


8B501420 


016E DOOC 




STO 


COUNT 




8B501430 
8B501440 


016F 0836 


* 


XIO 


LOAD 


LOAD CAR 


8B501450 


0170 0837 


CAR4 


XIO 


STEP 


STEP CAR 


8B501460 


0171 74FF 017B 




MDX L 


COUNT, -1 STEP COUNTFR -1 


8B501470 


0173 1000 




NOP 






8B501480 


0174 C006 




LD 


COUNT 




8B501490 


0175 4820 




BSC 


7 


SKIP IF ALL STEPS 


8B501500 


0176 70F9 




MDX 


CAR4 




8B501510 




♦ 








8B501520 
8B501530 


0177 3006 


WT6 
* 


WAIT 


6 


CAR SHOULD BF 7FFF 


8B501540 
8B501550 


0178 70B4 


* 


MDX 


CARCK 


REPEAT CHECK 


8B501560 
8B501570 




* 
* 




*♦ 


PROGRAM CONSTANTS *♦ 


8B501580 


0179 01F6 


CONST 


DC 


SVINT 


INTERRUPT ADDRFSS 


8B501590 


017A 0001 


ONE 


DC 


1 


CONSTANT ONE 


8B501600 


017B 0000 


COUNT 


DC 





STEP COUNTER 


8B501610 


017C 0000 


RIPL 


DC 





RIPPLE CHECK WORD 


8B501620 


0170 0000 


BSW1 


DC 





BIT SWITCH READ IN 


8B501630 


017E FFFF 


ADORS 


DC 


/FFFF 


TABLF OF STARTING 


8B501640 


017F 7FFE 




DC 


/7FFE 


♦ADDRESSES 


8B501650 


0180 7FEF 




DC 


/7FEF 




8B501660 


0181 7F0E 




DC 


/7F0E 




8B501670 


0182 7EFF 




DC 


/7EFF 




8B501680 


0183 70FE 




OC 


/70FE 




8B501690 


0184 70EF 




DC 


/70EF 




8B501700 


0185 700E 




nc 


/700E 




8B501710 , 


0186 6FFF 




DC 


/6FFF 




8B501720 


0187 OFFF 




nc 


/OFFE 




8B501730 


0188 OFEF 




DC 


/OFEF 




8B501740 


0189 OFOE 




DC 


/OFOE 




8B501750 


018A OEFF 




DC 


/OEFF 




8B501760 


018B OOFF 




DC 


/OOFE 




8B501770 


018C OOEF 




DC 


/OOEF 




8B501780 


0180 OOOE 




DC 


/OOOE 




8B501790 


018E FFFF 




DC 


/FFFF 




8B501800 


018F 7FFF 


RIPPL 


DC 


/7FFF 


RIPPLE TEST LOAD 


8B501810 


0190 3FFF 




DC 


/3FFF 


♦ADDRESSES 


8B501820 


0191 1FFF 




DC 


/1FFF 




8B501830 


0192 OFFF 




DC 


/OFFF 




8B501840 


0193 07FF 




DC 


/07FF 




8B501850 


0194 03FF 




OC 


/03FF 




8B501860 


0195 01FF 




DC 


/OlFF 




8B501870 


0196 OOFF 




DC 


/OOFF 




8B501880 


0197 007F 




DC 


/007F 




8B501890 


0198 003F 




DC 


/003F 




86501900 


0199 001F 




DC 


/001F 




8B501910 


019A OOOF 




DC 


/OOOF 




8B501920 


019B 0007 




DC 


/0007 




8B501930 


019C 0003 




DC 


/0003 




8B501940 


019D 0001 




DC 


/0001 




8B501950 


019E 0000 




DC 


/OOOO 




8B501960 


01A0 0000 




BSS E 







8B501970 


01A0 4C00 


RESRT 


DC 


/4C00 


RESTART INSTRUCTION 


8B501980 


01A1 0120 




DC 


CARCK 




8B501990 


01A2 0000 


UMSKO 


DC 


/OOOO 


UNMASK INTERRUPTS 


8B502000 


01A3 0480 




DC 


/0480 


♦ IOCC 


8B502010 


01A4 0000 


UMSK1 


DC 


/OOOO 




8B t !02020 


01A5 0481 




DC 


/0481 




8B5020 30 


01A6 0000 


LOAD 


DC 





LOAD CAR IOCC 


8B502040 


01A7 05A0 




DC 


/05A0 




8B502050 


01A8 0000 


STEP 


DC 





INCREMENT CAR IOCC 


PROG ID 08B5-1 


DATE 28FEB66 04N0V66 


14N0V69 






PAGE 2 


EC NO. 415120 415233 


431319 







8B502060 
8B502O70 
8B502080 
8B502090 
8B502100 
8B50211O 
8B502120 
8B502130 
8B502140 
8B502150 
8B502160 
8B502170 
8B502180 
88502190 
8B5022Q0 
8B502210 
88502220 
8B502230 
8B502240 
8B502250 
8B50226O 
8B502270 
8B502280 
8B502290 
8B502300 

8B502310 
8B502320 
8B502330 
88502340 
8B502350 
8B502360 
8B502370 
8B502380 
8B502390 
8B502400 
8B502410 
8B502420 
8B502430 
8B502440 
8B502450 
8B502455 
8B502460 
8B502470 
8B502480 
8B502490 
8B502500 
8B502510 
8B502520 
8B502530 
8B502540 
8B502550 
8B502560 
8B502570 
8B502580 
8B502590 
8B502600 
8B502610 
8B502620 
8B502630 
8B502640 
8B502650 
8B502660 
8BS02670 
8B502680 
8B502690 
8B502700 
8B502710 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CAR EXERCISER 



PART NO. 
PAGE 



2196475 
3A 



01A9 01A0 
01AA 017D 
01A8 0240 
01AC 0000 
01AD 0760 



01AE 1000 
01AF 3007 

01B0 08F9 
01B1 COCB 
01B2 D040 



01B3 
01B4 
01B5 
01B6 



3008 
08F5 
C0C7 
D03D 



01R7 300C 



01B8 
01R9 
01RA 
01BB 
01BC 
01BD 



C03A 
DO EC 
DOCO 
C038 
D038 
08E8 



01BE 08EB 
01BF COBD 
01C0 1004 
01C1 4810 
01C2 700F 

01C3 3009 



01C4 
01C5 
01C6 
01C7 
01C8 
01CA 
01CB 
01C0 
01CE 
01CF 

oino 

01P1 



C02F 

4818 

70F1 

08E0 

7401 017B 

1000 

74FF 01F5 

1000 

C026 

4820 

70 ED 

70E6 



01D2 
01D3 
0104 
01D5 
01D6 
01D8 
01D9 
01DB 
01DC 
01DD 
01DE 



C021 

4818 

70 OA 

08D2 

7401 017B 

1000 

74FF OIF* 

1000 

C018 

4820 

70F6 



DC 

BSW DC 
DC 

SNSW DC 
DC 

* 

* 

* 

* 

* 

CARMN NOP 

WT7 WAIT 

* 

XIO 

LD 

STO 



* 
WT8 



WAIT 

xm 

LD 
STO 



WAIT 



* 

WTC 

* 

CARH2 LD 
STO 
STO 
LD 
STO 
XIO 

* 

CARM3 XIO 

LD 
SLA 
BSC 
MDX 

WAIT 



* 
WT9 

* 



LD 

BSC 

MDX 

XIO 

MDX 

NOP 

MDX 

NOP 

LD 

BSC 

MDX 

MDX 

* 

* 

* 

CARM4 LD 
BSC 
MDX 

CARM5 XIO 
MDX 
NOP 
MDX 
NOP 
LD 
BSC 
MDX 

* 

* 



/OlAO 

BSW1 

/0240 

/OOOO 

/0760 



READ BIT SWITCH IOCC 
READ SNS SWITCH IOCC 



****** ****************** 

MANUAL AND SCOPE ROUTINE 
************************ 



BSW 

BSW1 

MNAD 

8 

BSW 

BSW1 

MNCT 

12 

MNAD 

LOAD 

COUNT 

MNCT 

MNCTR 

LOAD 

BSW 

BSW1 

4 

CARM4 

9 



ENTFR STARTING ADDRS 

READ IN ADDRESS AND 
♦ SAVF 



ENTFR NUMBER OF CNTS 

READ IN NUMBER OF 
♦COUNTS AND SAVE 

ENTER CNTRL OPTIONS 

SET STARTING ADDRESS 

♦INTO IOCC AND INTO 

♦COUNTER 

SET NUMBER OF STEPS 

*IN STEP COUNTER 

LOAO CAR 

READ BIT SWITCHES 

SKIP IF BIT SW 4 ON 
SKIP IF BIT SW 4 ON 



SINGLE STEP CAR WITH 
♦START BUTTON 



MNCT IF NUMBER OF STEPS 

6- *ENTERED IS ZFRO 

CARM2 *SS WILL LOAO CAR 

STFP STEP CAR 

L CrUNT.l STEP COUNTER 

L MNCTR, -1 DECREMENT STFP CNTR 



MNCTR 
7 

CARM ' 
CARM? 



SKIP IF COUNTER ZERO 
CONTINUE STEP 
RELOAD CAR 

** NOT BIT SWITCH 4 ♦♦ 



MNCT 

£- 

CARM6 

STEP 

COUNT,! 



CHECK NUMBER OF STEP 
♦SKIP IF STEPS NOT 

STEP CAR 
STEP COUNTER 



L MNCTR.-1 DECREMENT STEP CNTR 
SKIP IF COUNTER ZERO 
♦♦COUNT CMPLT CK BIT SW2+* 



MNCTR 

Z 

CARM5 



8B e >027?0 

8B502730 

8B502740 

8B502750 

8B502760 

RB502770 

8B502780 

88502790 

8B502800 

8B502810 

8B502820 

8B502830 

8R502P40 

8B502850 

8B502860 

8B502870 

8R502880 

8B502 890 

8B502900 

8B502910 

8B502920 

8B502930 

8B502940 

8B502950 

8B502960 

RB502970 

88^02980 

RR502990 

8B503000 

8B503010 

RB503020 

8B503030 

8B503040 

88503050 

RB503060 

8B503070 

8B503080 

8R5030O0 

8B503100 

8B503110 

RB503120 

8B503130 

8B503140 

RB5031S0 

8 850 3160 

8B503170 

8B503180 

8B503190 

8B503200 

8B503210 

8B503220 

8B503230 

8B503240 

8B503250 

8B503260 

8B503270 

8B503280 

8B503290 

8B503300 

8B503310 

8B503320 

8B503330 

SB 503 340 

8B503350 

8B503360 

8B503370 

8B503380 

8B503390 



01DF 





08CA 


01EQ- 





C09C 


01EI 





1002 


01E2 





4810 


01E3 





7001 


01E4 





70C9 


01E5 





1001 


01E6 





4810 


01E7 





70D0 


01E8 





C092 


01E9 





8090 


01EA 





1001 


01EB 





1801 


01EC 





300A 


01ED 





08BC 


01FE 





C08E 


01EF 





1002 


OlFO 





4810 


01F1 





70C6 


01F2 





70BB 


01F3 





0000 


01F4 





0000 


01F5 





0000 



01F6 

01F7 

i\F» 

01F9 

01F8 

01FC 

01FD 

01FE 

01FF 

0200 

0201 

0202 

0203 

0204 

0205 

( >206 

0207 

0?09 

020A 

020C 

0?OD 

020E 

020F 

0210 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

021A 



0000 
D02C 
082D 
7402 022 3 

1010 

D023 

C020 

D023 

coin 

D020 

coif 

100B 

E81D 

F81D 

D01F 

081D 

74FF 0221 

70F7 

7401 0220 

C013 

900E 

4808 

70EF 

74FF 0223 

7001 

7005 

COOA 

DOOC 

1010 
D008 
70 E6 
COOA 
4CC0 01F6 



CARM6 XIO 
LD 
SLA 
BSC 
MDX 
MDX 
SLA 
BSC 
MDX 
LD 
A 

SLA 
SRA 



* 
WTA 

* 



WAIT 



XIO 

LD 

SLA 

BSC 

MDX 

MDX 



DC 
DC 
DC 



* 

MNAD 
MNCT 
MNCTR 
* 
* 
* 
* 
* 

SVINT DC 
STO 
XIO 
MDX 
SI A 
STO 
LD 
STO 
SVINO LD 

STO 
SVIN1 LD 
SLA 
HR 
OR 
STO 
XIO 
MDX 
MDX 
MDX 
LD 
S 

BSC 
MDX 
MDX 
MDX 
MDX 
LD 
STO 
SLA 
STO 
MDX 
LD 
SVEXT BOSC 
* 
* 



BSW 

BSW1 

2 

♦ 61 

CARMN 

1 

CARM2 

COUNT 

ONE 

1 

1 

10 



BSW 

RSW1 

2 

CARM2 
CARMN 








READ BIT SWITCHFS 

SKIP IF BIT SW 2 ON 

CHANGE PARAMETERS 

SKIP IF BIT SW 3 ON 
LOOP ROUTINE 



ELIMINATE BIT POS. 
♦0 FROM CK WORD 

CAR SHOULD BE SAME 
♦AS A REG 

READ BIT SWITCHES 



SKIP IF BIT SW 2 ON 
RERUN PRESENT SETUP 
CHANGE PARAMETERS 

ADDRESS ENTRY 
NUMBER STEPS ENTRY 
STEP COUNTFR 



********************** 

INTERRUPT TRAP ROUTINE 

********************** 





SVIO 

ILSW 

SV7,2 

16 

SV4 

SV2 

SV6 

SV1 

SV5 

SV4 

11 

SV5 

SV6 

svioei 

SVIO 

SV5.-1 

SVIN1 

SV4,1 

SV4 

SVO 

£ 

SVINO 

SV7.-1 

♦ei 

SVEXT-1 

SV3 

SV6 

16 

SV4 

SVINO 

SVIO 

SVINT 



IF 



SAVE ACCUMULATOR 

RESET ILSW 

SET PASS SWITCH 

CLEAR AREA CODE CNTR 

SET IOCC IN USE SW 

SET MODIFIER COUNTER 
* 

* 

♦BUIUi IOCC 

* 

* 

SENSE/RESET DSW 

BRNCH IF NOT ALL MOD 
INCREMENT ARFA CODE 

CHECK IF ALL AC USED 
SKIP IF ALL AC USED 
GO SENSE WITH NXT AC 
SKIP IF SECOND PASS 

SET IOCC FOR PI 

SET AC FOR NEXT PASS 

RESTORE ACCUMULATOR 
EXIT ix 



*♦ CONSTANTS ♦♦ 



8B503400 

RB«503410 

RB503420 

8B503430 

8B503440 

8B503450 

RB503460 

8B503470 

8B503480 

8B503490 

8B503500 

8B503510 

8B503520 

8B503530 

8R503540 

8B503550 

8R503560 

RR503570 

8B503580 

8B503590 

8R503600 

8B503610 

8B503620 

8B503630 

8B503640 

8B503650 

8B503660 

8B503670 

8B5036P0 

8R503690 

8B503700 

8B503710 

8B503720 

8B503730 

8B503740 

8B503750 

8B503760 

8B503770 

8B503780 

8B503790 

8B503800 

8B503810 

8B50382O 

86503830 

8B503840 

8R503850 

8B503860 

8B503870 

8B503880 

8B503890 

8B503900 

8B503910 

8B503920 

8B503930 

8B503940 

8B503950 

8B503960 

8B503970 

8B503980 

8B503990 

8B504000 

8B504010 

8B504020 

8B504030 

8B504040 

8B504050 

8B504060 

8B504070 
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* 








8B504080 


021C 





001F 


svo 


DC 


/001F 


NUMBER OF AREA CODES 


8B504090 


0210 





OOFF 


SV1 


DC 


/OOFF 


NUMBER OF MODIFIERS 


8B504100 


021E 





0701 


SV2 


DC 


/0701 


SENSF/RESET DSW 


8B504110 


021F 





0700 


SV3 


DC 


/0700 


SENSE/RESET PtSW 


8B504120 


0220 





0000 


SV4 


DC 





AREA CODE INDICATOR 


8B504130 


0221 





0000 


SV5 


DC 





MODIFIER INDICATOR 


8B504140 


0222 





0000 


SV6 


DC 





IOCC TN USE 


8B504150 


0223 





0000 


SV7 


DC 





PASS SWITCH 


8B5 04160 


0224 




oooo 




BSS 


E 




8B50417t) 


0224 





0000 


SVIO 


DC 





SENSE DSW/PISW IOCC 


8B504180 


0225 





0000 




DC 







8B504190 


0226 





0000 


ILSW 


DC 


a 


SENSE ILSW IOCC 


8B5O4200 


0227 





0300 


* 


DC 


/0300 




8B504210 
8B504220 








* 




*****************# 


88504230 








* 




ERROR 


TRAP ROUTINE 


8B504240 








* 




****************** 


8B504250 








* 








8B504260 


02?8 





0000 


ERROR 


DC 





ENTRY POINT IE 


8B504270 


0229 





08FC 




XIO 


ILSW 


SFNSE ILSW 


8B504280 


022A 





300B 


WTB 


WAIT 


11 


ILSW IN A REG 


8B504290 


022B 





4CC0 0228 


* 


BOSC 


I ERROR 


EXIT IX 


8B504300 
8B504310 


022E 




012D 




END 


CARCK 




8B504320 


NO 


STATEMENTS 


FLAGGFO IN THE 


ABOVE ASSEMBLY 





ADDRS 


017E 


0142 


0146 


0158 


016D 




BSW 


01AA 


013D 


01B0 


01B4 


OIBE 


01DF 01ED 


BSW1 


017D 


01 3E 


01AA 


01B1 


0185 


01BF 01E0 01EE 


CARCK 


012D 


0178 


01A1 


022E 






CARMN 


01AE 


0140 


01E4 


01F2 






CARM2 


01B8 


01C6 


OlDt 


01E7 


01F1 




CARM3 


OIBE 


0-1 DO 










CARM4 


0102 


01C2 










CARM5 


01D5 


010E 










CARM6 


OiOF 


01 D4 










CAR1 


0140 


0156 










CAR2 


0158 


016A 










CAR3 


0L5F 


0164 










CAR4 


0170 


0176 










CONST 


0179 


012E 










COUNT 


017B 


01 5C 


0160 


0165 


016E 


0171 0174 01BA 


ERROR 


0228 


0133 


022B 








ILSW 


0226 


01F8 


0229 








LOAD 


01 A6 


0143 


0144 


0147 


0148 


014F 0150 015A 


MNAD 


01F3 


01B2 


01B8 








MNCT 


01F4 


01 B6 


01BB 


01C4 


01D2 




MNCTR 


01F5 


01BC 


01CB 


01CE 


01D9 


01DC 


ONE 


017A 


015B 


01E9 








RESRT 


01A0 


0137 








* 


RIPL 


01 7C 


014B 


0151 


0154 






RIPPL 


018F 


0140 










SNSW 


01 AC 












STEP 


01A8 


015F 


0170 


01C7 


01D5 




SVEXT 


021A 


0213 










SVINT 


01 F6 


0179 


021A 








SVINO 


01FF 


020F 


0218 








SVIN1 


0201 


0209 










SVIO 


0224 


01F7 


0205 


02 06 


0219 




SVO 


02 1C 


020D 










SV1 


021D 


01FF 










SV2 


021E 


01FD 










SV3 


021F 


0214 










SV4 


0220 


01FC 


0201 


020A 


020C 


0217 


SV5 


0221 


0200 


0203 


0207 






SV6 


0222 


01FE 


0204 


0215 






SV7 


0223 


01F9 


0210 








UMSKO 


01A2 


013A 










UMSK1 


01A4 


013B 










WTA 


01EC 


300A 










WTB 


022A 


300B 










WTC 


01B7 


300C 










WT1 


013C 


3001 










WT2 


0145 


3002 










WT3 


0149 


3003 










WT4 


0152 


3004 










WT5 


0168 


3005 










WT6 


0177 


3006 










WT7 


01AF 


3007 










WT8 


01B3 


3008 










WT9 


01C3 


3009 










END OF 


ASSEMBLY 











LAST PAGE 



DATE 
FC NO. 



28FEB66 
415120 



04NOV66 
415233 



14N0V69 
431319 



PROG ID 


08B5-1 


DATE 


28FEB66 


04NOV66 


14N0V69 


PAGF 


4 


EC NO. 


415120 


415233 


431319 



PROG ID 
PAGE 



08B5-1 

4A 



o o o o v, v, o o o o n n o « o o a o o o o o o o o o n n o o o o o o 



i> 



cccooccccccco ccccccc ccccooocoocoo 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CAR EXERCISER 

TABLE OF CONTENTS 

PARAGRAPH p AGE 

1. PURPOSE 

2. PREREQUISITES . 

1 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 PROGRAM TERMINATION 

3.4 RESTART PROCEDURE 

3.5 PROGRAM HALTS (PROGRAM WAITS IN LISTING) 

4. PRINTOUTS (NOT APPLICABLE). 

5. COMMENTS 2 

6. APPENDIX (NONE) 

1. PURPOSE 

THE CAR EXERCISER PROGRAM IS TO BE USED IN CONJUNCTION WITH THE 
CYCLE STEAL REQUEST TEST AND THE CYCLE STEAL ACKNOWLEDGE TEST 
FEATURES OF THE DATA CHANNEL. THE PROGRAM IS USED TO LOAD AND STEP 
THE CAR SELECTED FOR TEST. ALL BIT POSITIONS IN THE C.A.R. ARE 
TESTED. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE BASIC DIAGNOSTIC LOADER IS REQUIRED TO LOAD THIS PROGRAM. 

2.2 EQUIPMENT PREREQUISITES 

THE FOLLOWING EQUIPMENT IS REQUIRED. 

A. 1800 PROCESSOR/CONTROLLER 

B. 1442 CARD READ/PUNCH OR 1054 PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

REFER TO BASIC DIAGNOSTIC LOADER DOCUMENTATION FOR PROGRAM LOADING 
PROCEDURES. 

3.2 PROGRAM OPERATION 

WITH PROGRAM STOPPED AT WAIT 1, B REG = 3001t 

A. INSERT 3 JUMPERS AS FOLLOWS, TO ACTIVATE THE CYCLE STEAL 
REQUEST TEST AND CYCLE STEAL ACKNOWLEDGE TEST LEVELS. 

JUMPER 1 - B-B1G2D02 (CR221) TO B-B1G5D09 (CQ111) 

THIS JUMPER ACTIVATES THE SET CAR FUNCTION DURING AN INITIALIZE 
READ OR WRITE. 
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JUMPERS 2 AND 3 - REFER TO LOGIC PAGE CT971. INSTALL JUMPER 2 

FROM CS REQUEST TEST SIGNAL TO CS REQUEST LEVEL TO BE TESTED. 

INSTALL JUMPER 3 FROM CS ACKNOWLEDGE TEST TO CS ACKNOWLEDGE LEVEL TO BE TES 

INSTALL JUMPER 3 FROM CS ACKNOWLEDGE TEST TO CS ACKNOWLEDGE LEVEL TO 

BE TESTED. 

NOTE - POINTS FOR CHANNEL 0-8 ARE ON THE 60 I - Bl BOARD AND 
POINTS FOR CHANNEL 9-14 ARE ON THE 60 D - Al BOARD. 

B. SET 'DISPLAY ADDRESS REGISTER* SWITCH TO DISPLAY C.A.R. BEING 
TESTED. 

C. TO RUN PROGRAM CONTROLLED MODE, SET OATA ENTRY SWITCHES TO 0000. 
DEPRESS START. PROCEED WITH PROGRAM ACCORDING TO WAIT 
INSTRUCTIONS 2 THROUGH 6. 

D. TO RUN MANUAL CONTROLLED (SCOPING) MODE, SET DATA ENTRY SWITCH 8 
ON AND DEPRESS START. PROGRAM WILL COME TO WAIT 7. PROCEED WITH 
PROGRAM ACCORDING TO WAIT INSTRUCTIONS 7 THROUGH A. 

TABLE 1 
PROGRAM OPTIONS - DATA ENTRY SWITCHES 

NOTE — FUNCTIONS OF SWITCHES 2,3,4 ARE FOR SCOPING ROUTINES ONLY. 

* * 

* NOTE. TABLE 1 PROGRAM OPTIONS MAY BE ENTERED ONLY WHEN PROGRAM IS STOPPED AT * 

* WAIT 1. £ 

* * 

* * * 

* DATA ENTRY SWITCHES * OPTION DESCRIPTION * 

•♦♦♦a************************************ ^ 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

! 

• • • ° RUN PROGRAM CONTROLLED MODE * 

* ... 1 RUN MANUAL CONTROLLED (SCOPING) MODE * 

* ' * * SINGLE STEP C.A.R. WITH START * 

* • • PUSHBUTTON * 
¥ • x STOP AFTER EACH PASS THROUGH SCOPE * 

* • ROUTINE * 
1 l RETURN TO WAIT 7 TO CHANGE ADDRESS * 

* AND NUMBER OF STEPS * 

3.3 PROGRAM TERMINATION 

IF RUNNING PROGRAM CONTROLLED MODE, PROGRAM WILL EXECUTE ONCE AND 
STOP AT WAIT 6. DEPRESSING THE START PUSHBUTTON WILL RETURN THE 
PROGRAM TO WAIT 1, WHICH IS THE START OF THE PROGRAM. 

IF RUNNING MANUAL (SCOPE) CONTROLLED MODE, PROGRAM MAY BE 
TERMINATED BY DEPRESSING THE STOP PUSHBUTTON. DEPRESSING RESET AND 
START WILL RETURN THE PROGRAM TO WAIT 1. 

IMPORTANT NOTE 

BEFORE RETURNING SYSTEM TO THE CUSTOMER, INSURE THAT THE 3 JUMPERS 
INSERTED AT WAIT 1, ARE REMOVED FROM THE CHANNEL. 

3.4 RESTART PROCEDURE 

PRESS THE STOP, RESET AND START BUTTONS. THE PROGRAM SHOULD GO TO 
WAIT 1. IF THIS DOES NOT OCCUR, THE PROGRAM MUST BE RELOADED. 
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PROGRAM WAITS ARE USED IN THIS PROGRAM, AND ARE IDENTIFIED BY 
REFERENCING THE B REG AND 1 REG. 

A PROGRAM WAIT IS OF THE FORM, 

30XX, ( B REG >. 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION FOLLOWS. 
IT IS INCLUDED TO SHOW THE FORMAT OF THE LISTING, AND IT IS NOT 
NECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. 

3001 01ED DC WAIT1+1 



4. 


0007 


12. 


07FF 


5. 


OOOF 


13. 


OFFF 


6. 


001F 


14. 


1FFF 


7. 


00 3F 


15. 


3FFF 


8. 


007F 







WAIT 5 IS USED TO DISPLAY THE RESULTS OF THE C.A.R. INCREMENT TEST. 
THE C.A.R. IS LOADED 16 TIMES WITH 16 DIFFERENT STARTING ADDRESSES, 
AND AFTER EACH LOAD THE C.A.R. IS INCREMENTED 50 TIMES. EACH TIME 
THE WAIT OCCURS, THE A REG. WILL CONTAIN THE VALUE WHICH SHOULD 
APPEAR IN THE C.A.R. 

THE STARTING ADDRESSES USED ARE AS FOLLOWS, 



* 

# 
* 
* 

* 
* 
* 
* 
* 



WAIT 1 

ONE OF THE METERED I/O UNITS 
FAILED TO SEND A RESPONSE 
INTERRUPT TO THE PROGRAM. INDEX 
REGISTER 1 WILL HAVE THE ADDRESS 
OF THE IOCC. THE AREA CODE WILL 
INDICATE THE I/O UNIT NOT READY. 
IF A 2401/02 ORIVE IS NOT READY, 
PROGRAM WILL NOT STOP AT WAIT 1. 



1. 


7FFF 


9. 


6FFF 


2. 


000 E 


10. 


700E 


3. 


OOEF 


11. 


70EF 


4. 


00 FE 


12. 


70FE 


5. 


OEFF 


13. 


7EFF 


6. 


OFOE 


14. 


7F0E 


7. 


OFEF 


15. 


7FEF 


8. 


OFFE 


16. 


7FFE 



B REG, ( FIRST 4 DIGIT GROUP ) CORRESPONDS TO B REG READING. 
1 REG, ( SECOND 4 DIGIT GROUP ) CORRESPONDS TO 1 REG REAOING. 

4. PRINTOUTS 

THERE ARE NO PRINTOUTS ASSOCIATED WITH THE CAR EXERCISER PROGRAM. 

5. COMMENTS 

( THE CAR EXERCISER CONSISTS OF A PROGRAM CONTROL ROUTINE, AND A 
MANUAL (OPERATOR CONTROL) ROUTINE. 

THE PROGRAM CONTROL ROUTINE CONTAINS THE STARTING ADDRESS AND 
PREDEFINED NUMBER OF STEPS USED TO LOAD AND INCREMENT THE C.A.R. 
BEING TESTED. 

THE C.A.R. IS LOADED USING AN XIO INSTRUCTION WHOSE IOCC IS 
0000 05A0. THE CAR WILL AUTOMATICALLY BE INCREMENTED BY 1 EACH TIME 
IIA S L0A0ED « ™E INCREMENT BY 1 IS A HARDWARE FUNCTION. THE CAR IS 
STEPPED USING AN XIO INSTRUCTION WHOSE IOCC IS 0000 01A0. EACH XIO 
CAUSES THE CAR TO BE INCREMENTED BY 1. 

WAITS 2 AND 3 ARE USED TO DISPLAY THE RESULTS OF LOADING TESTS. 
THE C.A.R. IS FIRST LOADED TO 7FFF. THE AUTO INCREMENT SHOULD 
STEP IT TO 0000. THIS RESULT IS DISPLAYED AT WAIT 2. THE C.A.R. 
IS THEN LOADED TO 7FFE. THE AUTO INCREMENT SHOULD STEP IT TO 7FFF. 
THIS IS DISPLAYED AT WAIT 3. 

WAIT 4 IS USED TO DISPLAY THE RESULTS OF RIPPLING A 1 BIT THROUGH ALL 
CAR BIT POSITIONS. EXCEPT BIT 0. EACH TIME THE WAIT OCCURS, THE A 
REG WILL CONTAIN THE VALUE THAT SHOULD APPEAR IN CAR. 

THE LOAD ADDRESSES ARE AS FOLLOWS, 



FOLLOWING THE INCREMENT TEST, THE CAR. IS LOADED TO 0000 AND STEPPED 
7FFE TIMES. AT WAIT 6, THE CAR SHOULD CONTAIN 7FFF. 

ANY ERRORS OBSERVED BY THE OPERATOR CAN BE LOOPED BY SETTING THE 
STARTING ADDRESS AND NUMBER OF STEPS USED BY THE AUTO ROUTINE INTO 
THE MANUAL ROUTINE, AND RUNNING THE MANUAL ROUTINE WITH SENSE 
SWITCH ON. 

THE MANUAL CONTROLLED ROUTINE WILL LOAD THE C.A.R. WITH THE ADDRESS 
ENTERED BY THE OPERATOR AT WAIT 7. IT WILL THEN STEP THE C.A.R. 
THE NUMBER OF TIMES SPECIFIED BY THE OPERATOR AT WAIT 8. CONTROL 
OF THE ROUTINE IS TRANSMITTED VIA THE DATA ENTRY SWITCHES. (SEE 
TABLE 1). IF THE NUMBER OF STEPS ENTERED BY THE OPERATOR AT WAIT 8 
IS ZERO, THEN THE PROGRAM WILL ISSUE CONTINUOUS LOAD C.A.R. 
INSTRUCTION ACCORDING TO THE DATA ENTRY SWITCH SETTING. IF NO 
CONTROL OPTIONS ARE ENTERED, THE SCOPING ROUTINE WILL LOOP 
CONTINUOUSLY USING THE DATA ENTERED AT WAITS 7 AND 8 AS INPUT 
PARAMETERS. 



6. APPENDIX (NONE) 
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1A 



1001 



3001 01F6 



ABS 
ORG 



3002 0210 



3003 0230 



3004 0200 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 

* 
* 

* 

* 
* 
* 
* 

* 

* 
* 

* 

* 

* 

* 

* 

* 

*- 

* 



DC 



DC 



DC 



DC 



0123 
0123 



B600 



***** 

* 
* 
* 
* 
* 
***** 



ORG 
DC 

****** 



A3001 

PROGRAM WAIT SECTION 



WAIT161 



WAIT 1 



ONE OF THE METERED I/O UNITS 
FAILED TO SEND A RESPONSE 
INTERRUPT TO THE PROGRAM. INOEX 
REGISTER 1 WILL HAVE THE ADDRESS 
OF THE IOCC. THE AREA CODE WILL 
INDICATE THE I/O UNIT NOT READY. 
IF A 2401/02 DRIVE IS NOT READY, 
PROGRAM WILL NOT STOP AT WAIT 1. 



WAIT2S5 



WAIT ? 



SET THF PC DATA ENTRY SWITCHES TO 
INDICATE THE NUMBER OF 72 SECOND 
DELAY LOOPS DESIRED. PRESS THE 
PC START BUTTON TO START THE 
EXERCISE. 



WAIT3C1 



WAIT 3 



ENO OF DELAY. METERS SHOULD BE 
READ AND THE FLAPSED TIME COMPUTED 
TBY HAND<. TO RUN THE TEST AGAIN, 
SET THE PC DATA ENTRY SWITCHES 
TO INDICATE THF NUMBER OF 72 
SECOND DELAY LOOPS DESIREO AND 
PRESS THE PC START BUTTON. 



WAIT4S1 



WAIT 4 



DID NOT RFCEIVE A PRINTER COMPLETE 
INTERRUPT FROM THE 1443. 
MAKE THE 1443 READY AND THEN PRESS 
THE PC START BUTTON. 



0124 
012C 
012C 
012E 
0130 
0132 
0134 
0135 
0136 



012C 



C400 02D0 
D400 0000 
C400 02D1 
0400 0001 
610D 
6203 
6700 02A9 



LOAD 



****** 
DC 
ORG 
LD 
STO 
LD 
STO 
LDX 
LDX 
LDX 



/0123 

/B600 

********************************** 

TO RESTART THE PROGRAM, 
PRESS THE PC RFSET BUTTON AND 
START BUTTON. THE PROGRAM 
WILL START ALL METERS AGAIN 
AND STOP AT SWAIT 23. 
********************************** 

LOAD 



/012C 

RSTR 



RSTRS1 

1 

13 

/0003 



XR1# NO OF EDITS 



L3 CNFIG 



* 

***** 
* 
* 



**************************************** 
TRANSFER THE EDIT CARD INFO 
TO I/O CONFIGURATION 



0138 





C200 


0139 





D3GC 


013A 





7201 


013B 





7301 


013C 





71FF 


013D 





70FA 



* TABLE. ?CNFIG< 

********************************************* 

XFER 



LD 


2 





STO 


3 





MOX 


2 


1 


MDX 


3 


1 


MDX 


1 


-1 


MDX 




XFER 



********************************************* 

* BUILD INTR LVL WORD AND STORE 

* IN INTERRUPT TABLE. SITBLE< 

********************************************* 



013E 





C400 


02BB 


RERUN 


LD 


L 


ITBLE 


ADDR OF ITBLE 


0140 





0400 


02B7 




STO 


L 


ITBL1 




0142 





C400 


02C8 




LD 


L 


EDCT - 


SET EDIT COUNT 


0144 





D400 


02 B6 




STO 


L 


EDCT1 


*T0 12. 


0146 





6500 


0280 




LDX 


LI 


IOCC 




0148 





6600 


02A9 




LOX 


L2 


CNFIG 




014A 





C200 




BUILD 


LD 


2 







014B 





4828 






BSC 




ez 


IS THIS DEV ON SYS 


014C 





7028 






MOX 




NODEV 


DEV NOT ON SYSTEM 


014D 





1808 






SRA 




8 




014E 





4818 






BSC 




6- 




014F 





7022 






MDX 




BITO 




0150 





D400 


02BA 




STO 


L 


WORD 




0152 





6780 


02BA 




LDX 


13 


WORD 




0154 





C400 


2CB 




LD 


L 


EASY 


A REG III OOOE 


0156 





B400 


02BA 




CMP 


L 


WORD 


IS INTR LVL LESS 


0158 





7010 






MDX 




LES14 


♦THAN FOURTEEN 


0159 





1000 






NOP 









015A 





73F2 






MDX 


3 


-14 




015B 





7005 






MDX 




ILWD1 




015C 





C400 


02B8 




LD 


L 


EIGHT 


INTR LVL # 14 


015E 





ECOO 


02C9 




OR 


L 


ONE 




0160 





700D 






MDX 




ST01 




0161 





C400 


02B8 


ILWD1 


LD 


L 


EIGHT 




0163 





1801 




SHRT2 


SRA 




1 




0164 





73FF 






MDX 


3 


-1 




0165 





70FD 






MDX 




SHRT2 




0166 





ECOO 


02C9 




OR 


L 


ONE 


BIT 15* 1 MEANS IL 


0168 





7005 






MDX 




ST01 


*IS GREATER THAN 13 


0169 





C400 


02B8 


LES14 


LD 


L 


EIGHT 




016B 





1801 




SHRT1 


SRA 




1 




016C 





73FF 






MDX 


3 


-1 




016D 





70FD 






MDX 




SHRT1 




016E 





D480 


02B7 


ST01 


STO 


I 


ITBL1 


STO IL WO IN TABLE 


0170 





4C00 


017F 




BSC 


L 


ILSWD 


GO TO BUILD ILSW WD 


0172 





C400 


02B8 


BITO 


LD 


L 


EIGHT 


A0# 1 


0174 





70F9 






MDX 




ST01 




0175 





D500 


0000 


NODEV 


STO 


LI 







0177 





7102 






MDX 


1 


2 




0178 





7402 


02B7 




MDX 


L 


ITBL1.2 




017A 





7202 






MDX 


2 


2 




017B 





74FE 


02B6 




MDX 


L 


EDCTl,-2 




017D 





70 CC 






MDX 




BUILD 




017E 





7023 






MDX 




A DDR 





********************************************* 

* BUILD ILSW WORD AND STORE IN 

* INTERRUPT TABLE. TITBLE< 
********************************************* 

017F 7401 02B7 ILSWD MDX L ITBL1.1 

0181 C200 LD 2 

0182 1008 SLA 8 

0183 180C SRA 12 

0184 4818 BSC 6- 

0185 700F MDX BZERO 
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0186 D400 02BA 




STC 


L 


WORD 




0188 6780 028A 




LDX 


13 


WORD 




018A C400 02B8 




LD 


L 


EIGHT 




018C 1801 


SHRT3 


SRA 




1 




0180 73FF 




MDX 


3 


-1 




018E 70FD 




MDX 




SHRT3 




018F D480 02B7 


ST0 2 


STO 


I 


ITBL1 




0191 7401 02B7 




MDX 


L 


ITBLltl 


INCR ITBLE 


0193 4C00 0198 




BSC 


L 


CTLWD 




0195 C400 02B8 


BZERO 


LD 


L 


EIGHT 




0197 70F7 




MDX 




ST02 





01CC 703E 



MDX 



WAIT2 



RDY TO START DELAY 



0198 7201 

0199 7101 
019A C200 
019B E900 
019C DIOO 



019D 7201 
019E 7101 
019F 74FE 02B6 
01AI 70A8 



********************************************* 
* BUILD IOCC CONTROL WORD 

********************************************* 
CTLWD MDX 2 1 

1 1 

2 
1 

PUT CTRL WD IN IOCC 





MDX 


1 1 




LD 


2 




OR 


1 




STO 


1 PUT 


* 






* 




DECR REGISTERS 




MDX 


2 1 




MDX 


1 1 




MDX 


L EDCTl, -2 




MDX 


BUILD 



01A2 





6218 




01A3 





6108 




01A4 





C400 


02CC 


01A6 





DIOO 




01A7 





7101 




01A8 





72FF 




01A9 





70FC 





********************************************* 

* LOAD THE ADDR OF SSVINT< INTO 

* ALL INTR ADDR LOCATIONS. 
********************************************* 

ADDR 



ADDR1 



********************************************* 

* DETERMINE IF THIS DEVICE IS 

* ON THE SYSTEM AND IF DESIRED 

* INTR IS GREATER THAN 

* LEVEL 13 
********************************************* 



LDX 


2 


24 


LDX 


1 


8 


LD 


L 


INTRN 


STO 


1 





MDX 


1 


1 


MDX 


2 


-1 


MDX 




ADDR1 



01AA 





C400 


02C8 




LD 


L 


EDCT 




01AC 





D400 


02B6 




STO 


L 


EDCTl 




01AE 





6500 


0280 




LDX 


LI 


IOCC 


XR1# IOCC 


01 BO 





6600 


02BC 




LDX 


L2 


ITBLEC1 


LOC OF INTR TABLE 


01B2 





C100 




LDRT2 


LD 


1 





PUT IOCC IN ACCUM 


01B3 





F400 


02B9 




EOR 


L 


FFFF 




01B5 





4818 






BSC 




6- 


IS THIS DEV ON SYS 


01B6 





700C 






MDX 




INCR 


NO 


01B7 





C200 




LDRT1 


LD 


2 





PUT IL WO IN ACCUM 


01B8 





4804 






BSC 




E 


GREATER THAN 13 


01B9 





7013 






MDX 




GREAT 




01BA 





C400 


028D 




LD 


L 


MASKS1 




01BC 





E400 


02CA 




AND 


L 


FFFE 


SET BIT 15# ZERO 


01BE 





D400 


028D 




STO 


L 


MASK61 




01C0 





C200 






LD 


2 





PUT IL WD IN ACCUM 


01C1 





630B 






LOX 


3 


/OOOB 


XR3# 11 


01C2 





7012 






MDX 




VECT 




01C3 





C400 


02B9 


INCR 


LD 


L 


FFFF 




01C5 





D400 


02D3 




STO 


L 


PASS1 




01C7 





7102 






MDX 


1 


2 




01C8 





7202 






MDX 


2 


2 




01C9 





74FE 


02B6 




MDX 


L 


EDCTl, - 


•2 


01CB 





70E6 






MDX 




LDRT2 


GO TO NEXT IOCC 


DATE 28FEB66 


01MAY66 


01JUL66 


01SEP67 


14N0V69 


EC NO. 415120 


415120A 


415178 


411857 


431319 



********************************************* 

* PLACE THE XFER VECTOR IN THE 

* CORRECT ADDRESS 
********************************************* 



01CD 





C400 


028D 


GRFAT 


LD 


L 


MASK61 




01CF 





ECOO 


02C9 




OR 


L 


ONE 




01D1 





D400 


028D 




STO 


L 


MASKS1 


SET BIT 15# ONE 


01D3 





6319 






LDX 


3 


/0019 




01D4 





C200 




* 


LD 


2 





PUT IL WD IN ACCUM 


01D5 





4828 




VECT 


BSC 




£Z 


IS BIT ON 


01D6 





7003 






MDX 




VECT1 


* YES 


01D7 





1001 






SLA 




1 


* NO 


01D8 





7301 






MDX 


3 


1 




01D9 





70FB 






MDX 




VECT 




01DA 





C400 


02CD 


VECT1 


LD 


L 


XFER1 


ADDR OF DESIRED LVL 


01DC 





D300 




* 
* 

* 


STC 


3 



















COMPLEMENT 


THE IL WD AND STORE 


01DD 





C200 




LD 


2 





PUT IL WD IN ACCUM 


01DE 





F400 


02B9 




EOR 


L 


FFFF 


COMPLEMENT IL WORD 


01E0 





D400 


028C 




STO 


L 


MASK 




01E2 





OCOO 


028C 


* 
* 


XIO 


L 


MASK 


UNMASK THE DESIRED 
*INTR LEVEL 



********************************************* 

* PUT CORRECT AREA CODE IN SENSE 

* DEVICE IOCC WORD AND START 

* THE I/O METERSS<. 

********************************************* 



01E4 
01E5 
01E7 
01E9 
01EA 
01EC 
01ED 
01EE 
01F0 
01F2 
01F4 
01F5 
01F6 
01F7 
01F9 
01FB 
01FC 
01FE 
01FF 

0200 
0201 
0203 
0204 
0206, 
0207 
0208 
0209 
020A 
020B 
020D 
020F 
0210 



C101 

ECOO 

D400 

7201 

C400 

4810 

7009 

OCOO 

7401 

OCOO 

0900 

3001 

1000 

C400 

D400 

C100 

F400 

4818 

3004 



02D2 
0293 

02D3 



029 2 
02BA 
0292 



02B9 
02D3 

0284 



1000 * 

C400 02CC 

D300 

74FE 02B6 

7001 

7003 

7102 

7201 

70A7 

OCOO 028 E 

OCOO 0290 

3002 

1000 



LD 

OR 

STO 

MDX 

LD 

BSC 

MDX 

XIO 

MDX 

XIO 

XIO 

WAIT1 WAIT 
NOP 

BYPAS LD 
STO 
LD 
EOR 
BSC 

WAIT4 WAIT 

* 

NOP 

LD 

STC 

MDX 

MDX 

MDX 

MOX 

MDX 

MDX 

XIO 

XIO 

WAIT 

NOP 



INCR1 



WAIT2 



1 

SENSE 

SNSD61 

1 

PASS1 

BYPAS 

SNSD 

WORDtl 

SNSD 



1 



FFFF 

PASS1 



I0CCE4 

t- 

4 



INTRN 



EDCTl, -2 

INCR1 

WAIT2 

2 

1 

LDRT2 

MASK1 

MASK2 

2 





PUT CTRL WD IN ACCUM 



XR2# ILSW WORD 
BYPASS THE FIRST 1442 
*IF THIS IS THE FIRST 
♦PASS THRU THE PROGRAM. 
THESE 3 OPS NEEDED 
*IF THE DEVICE BEING 
*STARTED IS A TAPE DR 
START A METER 



ADDR WORD OF IOCC 
1443 IOCC ADDR WORD 
IS THIS DEVICE 1443 
YES, WAIT FOR 
♦PRINTER COMPL INTR 

RESTORE ALL XFER 
♦VECTORS TO SVINT 



RDY TO START DELAY 

XR1# NEXT IOCC 

XR2# I/O DEV INT TBLE 



MASK 
MASK 



INTRS 0-13 
INTRS 14-23 



********************************************* 
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* DETERMINE THE NO OF 72 SEC 

* LOOPS TO BE TAKEN ?FROM DATA 

* ENTRY SWS< AND THEN START DLY. 
********************************************* 



0211 





OCOO 


027E 


DLYO 


XIO 


L 


DESWS 


RD DATA ENTRY SWS 


0213 





6580 


02CE 




LOX 


11 


COUNT 


XR1# NO OF 72 SEC LP 


0215 





C400 


02B5 




LD 


L 


CNFIGS12 


CORE STOR SPEED 


0217 





18C1 






SRA 




1 




0218 





4804 






BSC 




E 


2 OR 4 USEC STORAGE 


0219 





7019 






MOX 




FAST 


2 US STORAGE 


021A 





C400 


02A6 




LD 


L 


FORUS 


4 US STORAGE 


021C 





D400 


02A8 


DLY1 


STO 


L 


CONST 




02IE 





6365 




DLY2 


LDX 


3 


101 


XR3# 101 


021F 





C400 


02A8 


DLY3 


LD 


L 


CONST 




0221 





8400 


02C9 


DLY4 


A 


L 


ONE 


ADD 1 TO ACCUM 


0223 





4820 






BSC 




Z 




0224 





70FC 






MDX 




DLY4 




0225 





73FF 






MDX 


3 


-1 




0226 





70F8 






MOX 




DLY3 




022 7 





71FF 






MDX 


1 


-1 


MODIFY LOOP COUNT 


0228 





70F5 






MDX 




DLY2 




0229 





C400 


028B 




LD 


L 


MASK-1 


CHANGE IOCC FOR 


022B 





F400 


02D4 




EOR 


L 


TWTY 


♦THE 2402 


022D 





04 00 


028B 




STO 


L 


MASK-1 




022F 





30C3 




WAIT3 
* 


WAIT 




3 


END OF TEST 










********************************************* 










* 






TO RUN TEST AGAIN, SET DATA 










* 






SWITCHES 


TO THE NUMBER OF 










* 






T2 SECOND 


LOOPS DESIRED, AND 










* 






PRESS THE 


START BUTTON. 










********************************************* 


0230 





1000 






NOP 









0231 





4CQ0 


0211 




BSC 


L 


DLYO 




0233 





C400 


02A7 


FAST 


LD 


L 


TWOUS 




0235 





70E6 






MDX 




0LY1 





* 
********************************************* 

* ROUTINE TO SERVICE PROGRAM 

* GENERATED INTERRUPTS. 
********************************************* 



0236 0000 




IRTN 


DC 









0237 OCCO 


027A 




XIO L 


SV8 


SENSE ILSW 




0239 E200 






ANO 2 









023A 4C20 


023F 




BSC L 


SENS1.Z 


DOES ILSW MATCH 




023C C0F9 






LD 


IRTN 


NO 




023D 0005 






STO 


SVINT 






023E 7005 






MDX 


SVINTS1 


GO TO COMM INTR 


RTN 


023F OCCO 


0292 


SEN SI 


XIO L 


SNSD 


SENSE AND RESET 


DFV 


0241 4CC0 


0236 




BOSC I 


IRTN 


EXIT 





********************************************* 

* ROUTINE TO SERVICE NON 

* PROGRAM GENERATED INTERPT 

* SWILL HANDLE ONLY ONE 

* INTERRUPT AT A TIME< 

******************************* ************** 





0243 


0000 




SVINT 


DC 











0244 
0245 


0037 
OCOO 


027A 




STO 
XIO 


L 


SVIO 
SV8 


SAVE ACCUMULATOR 
RESET ILSW 




0247 
0249 


7402 
1010 


0279 




MDX 
SLA 


L 


SV7.2 
16 


SET PASS SWITCH 




024A 
024B 


D02B 
C028 






STO 
LD 




SV4 
SV2 


CLEAR AREA CODE CNTR 




024C 

024D 


D02B 
C025 




SVINO 


STO 
LD 




SV6 
SVl 


SET IOCC IN USE SH 




024 E 
024F 


D028 
C026 




SVIN1 


STO 
LD 




SV5 
SV4 


SET MODIFIER COUNTER 

* 
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0250 100B 






SLA 




11 


* 




0251 E825 






OR 




SV5 


♦BUILD IOCC 




0252 E825 






OR 




SV6 


* 




0253 D029 






STO 




SVI061 


* 




0254 0827 






XIO 




SVIO 


SENSE DSW AND RESET 




0255 74FF 


0277 




MDX 


L 


SV5.-1 






0257 70F7 






MDX 




SVIN1 


BRANCH IF NOT ALL MD 




0258 7401 


0276 




MDX 


L 


SV4,1 


INCREMENT AREA CODE 




025A C01B 






LD 




SV4 






025B 9016 






S 




SVO 


CHECK IF ALL AC USED 




025C 48C8 






BSC 




£ 


SKIP IF ALL AC USED 




025D 70EF 






MDX 




SVINO 


GO SENSE WITH NXT AC 




025E 74FF 


0279 




MDX 


L 


SV7.-1 


SKIP IF SECOND PASS 




0260 7001 






MDX 




♦ 61 






0261 7005 






MDX 




SVEXT 






0262 C012 






LD 




SV3 






0263 D014 






STO 




SV6 


SET IOCC FOR PI 




0264 1010 






SLA 




16 






0265 D010 






STO 




SV4 


SET AC FOR NEXT 




0266 70E6 






MDX 




SVINO 


♦PASS 




0267 C400 


02CF 


SVEXT LD 


L 


NOOP 


IF INTERRUPTED OUT 




0269 F480 


0243 




EOR 


I 


SVINT 


♦OF ANY WAIT, RETURN 




026 B 4C20 


026F 




BSC 


L 


SV11.Z 


♦TO THAT WAIT. 




026D 74FF 


0243 




MDX 


L 


SVINT, -1 






26F COOC 




SV11 


LD 




SVIO 


RESTORE ACCUMULATOR 




0270 4CC0 


0243 


* 

* 
* 


BOSC 


I 


SVINT 

** 


EXIT 
CONSTANTS ** 




0272 001F 




svo 


DC 




/001F 


NUMBER OF AREA CODES 




0273 OOFF 




SVl 


DC 




/OOFF 


NUMBER OF MODIFIERS 




D274 0701 




SV2 


DC 




/0701 


SENSE/RESET DSW 




0275 0700 




SV3 


DC 




/0700 


SENSE/RESET PISW 




0276 0000 




SV4 


DC 







AREA CODE INDICATOR 




0277 0000 




SV5 


DC 







MODIFIER INDICATOR 




0278 0000 




SV6 


DC 







IOCC IN USE 




0279 OOCO 




SV7 


DC 







PASS SWITCH 








* 






I/O CONTROL COMMANDS 




027A OOOO 






BSS 


E 









027A 0000 




SV8 


DC 




/OOOO 


IOCC TO SENSE 




027B 0300 




SV9 


DC 




/0300 


THE ILSW 




027C 0000 




SVIO 


DC 







SENSE DSW IOCC 




027D 0000 






DC 











027E 02CE 




DESWS 


DC 




COUNT 


IOCC TO READ THE 




027F 0240 






DC 




/0240 


DATA ENTRY SWITCHES 




0280 0000 




IOCC 


DC 




/OOOO 


IOCC TO START 




0281 0402 






DC 




/0402 


1442 N01 METER 




0282 OOCO 






DC 







IOCC TO START 




0283 0402 






DC 




/O402 


1442 N02 METER 




0284 0294 






DC 




PRINT 


IOCC TO START 




0285 0500 






DC 




/0500 


1443 N01 METER 




0286 029D 






DC 




READ 


IOCC TO START 




0287 0600 






DC 




/0600 


2401 N01 METER 




0288 029D 






DC 




READ 


IOCC TO START 




0289 0620 






DC 




/0620 


2401 N02 METER 




028A 029D 






DC 




READ 


IOCC TO START 




028B 0600 






DC 




/0600 


2402 METER 




028C 0000 




MASK 


DC 




/OOOO 


IOCC TO SET THE 




028D 0480 






DC 




/0480 


MASK REGISTER 




028E FFFF 




MASK1 


DC 




/FFFF 


IOCC TO MASK 




028F 0480 






DC 




/0480 


INTERRUPTS 0-13 




0290 FFFF 




MASK2 


DC 




/FFFF 


IOCC TO MASK 




0291 0481 






DC 




/0481 


INTERRUPTS 14-23 




0292 0000 




SNSD 


DC 




/OOOO 


IOCC TO SENSE 




0293 0701 






DC 




/0701 


A DEVICE 




0294 0008 




PRINT 


DC 




8 


1443 PRINT TABLE 




0295 2435 






DC 




Z2435 


HE 




0296 1335 






DC 




/1335 


TE 


DATE 
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0297 





29C0 




DC 


/2900 


R 


0298 





3517 




DC 


/3517 


EX 


0299 





3529 




DC 


/3529 


ER 


029A 





3339 




DC 


/3339 


CI 


029B 





1235 




DC 


/1235 


SE 


029C 





2900 




DC 


/2900 


R 


029D 





40C8 


READ 


DC 


/4008 




029E 




00C8 




BSS 


8 




02A6 





84AA 


FOR US 


DC 


/84AA 


CONST FOR 4US SYS 


02A7 





0900 


TWOUS 


DC 


/0900 


CONST FOR 2US SYS 


02A8 





0000 


CONST 


DC 


/OOOO 


NO OF 72 SEC LOOPS 


02A9 




OOOD 


CNFIG 


BSS 


13 


EDIT CD INFORMATION 


02B6 





oooc 


EDCT1 


OC 


/OOOC 


KEEP TRACK OF ED CTS 


02B7 





02BC 


ITBL1 


DC 


ITBLE61 


LOC OF INTR TABLE 


02B8 





8000 


EIGHT 


DC 


/8000 


CONSTANT* /8000 


02B9 





FFFF 


FFFF 


DC 


/FFFF 


CONSTANT* MINUS ONE 


02BA 





0000 


WORO 


DC 


/OOOO 


A UTILITY LOCATION 


02BB 





02BC 


ITBLE 


DC 


IT8LE61 


ITBLE ADDRESS 


02BC 




OOOC 




BSS 


12 




02C8 





OOOC 


EDCT 


DC 


/OOOC 


NO OF EDIT FIELDS 


02C9 





0001 


ONE 


DC 


/0001 


CONSTANT* /0001 


02CA 





FFFE 


FFFE 


DC 


/FFFE 


CONSTANT* /FFFE 


02CB 





OOOE 


EASY 


DC 


/OOOE 


CONSTANT* /OOOE 


02CC 





0243 


INTRN 


DC 


SVINT 


SPURIOUS INTR RTN 


02CD 





0236 


XFER1 


DC 


IRTN 


PROG GEN INTR RTN 


02CE 





0000 


COUNT 


DC 


/OOOO 


DATA ENTRY SW SETNG 


02CF 





1000 


NOOP 


DC 


/1000 




02D0 





4C00 


RSTR 


DC 


/4C00 




02D1 


0. 


013E 




DC 


RERUN 




02D2 





0701 


SENSE 


DC 


/0701 




0050 







BEGIN 


EQU 


/50 




02D3 





OOCO 


PASS1 


DC 







0204 





0020 


TWTY 


DC 


/0020 


CONSTANT FOR 2402 


02D6 




0050 




END 


BEGIN 




NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



01SEP67 
411857 



14N0V69 
431319 





ADDR 


01A2 


017E 








ADDR1 


01 A6 


01 A9 








BEGIN 


0050 


02D6 








BITO 


0172 


014F 








BUILD 


014A 


017D 


01A1 






BYPAS 


01F7 


01ED 








BZERO 


0195 


0185 








CNFIG 


02 A9 


0136 


0148 


0215 




CONST 


02A8 


02 1C 


021F 






COUNT 


02CE 


0213 


027E 






CTLWD 


0198 


0193 








DESWS 


027E 


0211 








DLYO 


0211 


0231 








DLYl 


02 1C 


0235 








DLY2 


021E 


0228 








DLY3 


021F 


0226 








DLY4 


0221 


0224 








EASY 


02CB 


0154 








EDCT 


02C8 


0142 


01AA 






EDCT1 


02B6 


0144 


017B 


019F 01AC 01C9 0204 




EIGHT 


02B8 


015C 


0161 


0169 0172 018A 0195 




FAST 


0233 


0219 




* 




FFFE 


02CA 


01 BC 








FFFF 


02B9 


01B3 


01C3 


01DE 01F7 




FORUS 


02 A6 


021A 








GREAT 


01CD 


01 B9 








ILSWD 


017F 


O170 








ILWD1 


0161 


015B 








I NCR 


01C3 


C1B6 








INCR1 


0208 


0206 








INTRN 


02 CC 


01 A4 


0201 






IOCC 


0280 


0146 


01AE 


01FC 




IRTN 


0236 


023C 


0241 


02C0 




ITBLE 


02BB 


013E 


01B0 


02B7 02BB 




ITBL1 


02B7 


0140 


016E 


0178 017F 018F 0191 




LDRT1 


01B7 










LDRT2 


01B2 


01CB 


020A 






LES14 


0169 


0158 








LOAD 


012C 


0124 








MASK 


028C 


01BA 


01BE 


01CD 01D1 01E0 01E2 0229 ( 




MASK1 


028E 


020B 








MASK2 


0290 


02 OD 








NODEV 


0175 


014C 








NOOP 


02CF 


0267 








ONE 


02 C9 


015E 


0166 


01CF 0221 




PASS1 


0203 


01C5 


01EA 


01F9 




PRINT 


0294 


0284 








READ 


0290 


0286 


0288 


028A 




RERUN 


013E 


02D1 








RSTR 


02D0 


012C 


0130 






SENSE 


02D2 


01E5 








SENS1 


023F 


023A 








SHRT1 


016B 


016D 








SHRT2 


0163 


0165 








SHRT3 


018C 


018E 








SNSO 


0292 


01E7 


OlEE 


01F2 023F 




ST01 


016E 


0160 


0168 


0174 




ST02 


018F 


0197 








SVEXT 


0267 


0261 








SVINT 


0243 


02 3D 


023E 


0269 026D 0270 02CC 




SVINO 


02 40 


C25D 


0266 






SVIN1 


024F 


0257 








SVIO 


027C 


0244 


0253 


0254 026F 




SVO 


0272 


025B 








SV1 


0273 


024D 








SV11 


026F 


026B 








SV2 


0274 


024B 








SV3 


0275 


0262 
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SV4 


0276 


024A 


024F 


0258 025A 0265 


SV5 


0?77 


024E 


0251 


0255 


SV6 


0278 


024C 


025? 


0263 


SV7 


0279 


0247 


025E 




SV8 


027A 


0237 


0245 




SV9 


027B 








TWOUS 


02A7 


0233 






TWTY 


02 D4 


022B 






VECT 


01D5 


01C2 


01D9 




VECT1 


OlDA 


01D6 






WAIT1 


01F5 


3001 






WAIT? 


0?CB 


01CC 


0207 


30C2 


WAIT3 


022F 


3003 






WAIT4 


01FF 


3004 






WORD 


02BA 


0150 


0152 


0156 0186 0188 01F0 


XFER 


0138 


013D 






XFER1 


02 CD 


OlDA 






END OF 


ASSEMBLY 
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2. 



2.1 
2.2 



PROGRAM 
EQUIPMENT 



3. USE PROCEDURE. 



3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 CUSTOMER METERS 

3.2.2 CONTROL CIRCUIT CHECK 



3.3 

3.* 
3.5 



TERMINATION 
RESTART 
PROGRAM HALTS 



4. PRINTOUTS INONE) 

5. COMMENTS (NONE> 

6. APPENDIX . . . 3 

6.1 EDIT PROCEDURE 

' . PURPOSE 

A. CHECK THE ACCURACY OF ALL OF THE USE METERS. 

B. INSURE THAT NO METERS ADVANCE WHEN THE METER KEY IS SWITCHED 
TO CE MODE. 

C. CHECK THE CETER CONTROL CIRCUITS. 

2. PREREQUISITES 

2.1 PROGRAM 

THIS PROGRAM IS LOADED BY THE RELOCATABLE DIAGNOSTIC LOAOER. AN EDIT 
CARD, CONTAINING THE NECESSARY IOCC INFORMATION FOR THIS 1800 SYSTEM. 
MUST FOLLOW THE LAST CARD OF THE PROGRAM. (SEE SEC 6.1) 

2.2 EQUIPMENT 

A. CUSTOMER ENGINEER USE METER KEV. 
8. CARD OR PAPER TAPE READER. 

3. USE PROCEOURE 

!"™'* E J STEPS T0 THE USE PROCEDURE. A DETAILED DESCRIPTION STARTS IN 

1. RECORD ALL METER READINGS. 

2. MAKE ALL METERED 1/0 UNITS READY. 

3. LOAD THE PROGRAM. 

t. check H !ustomer°meterI R 0F 72 SEC0N ° L00PS 1H THE PC DATA ENTRY SW1TCHES * 

6. COMPUTE THE ELAPSED TIME. IBY HAND) 

7. CHECK THE METER CONTROL CIRCUITS. 



€ 

i 

« 

t 

f 

i 

l 



OATE 
EC NO. 



3.1 



28FEB66 
415120 



LOADING 



1. RECORD THE READINGS ON ALL OF THE CUSTOMER METERS. THE CUSTOMER 



01MAY66 
415120A 



01JUL66 
415178 



01SEP6T 
411857 
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s 

1 

1 
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4. 



MUST BE GIVEN CREDIT FOR THIS TEST TIME. 
MAKE ALL METEREO I/O UNITS READY, 

1442 (FIRST) IF THE 1800 SYSTEM IS EQUIPPED WITH A 14*?, IT 
MUST BE USED TO LOAD THE PROGRAM. AFTER THE 
PROGRAM HAS LOADED, DO NOT PRESS THE 1442 NPRO 
BUTTON, AS THIS WILL PREVENT THE METER FRDM RUMMIMr 

1442 .SECOND ONLY) PLACE A FEW CAROS IN THE FEED HOPPER AnS 
PRESS THE 1442 START KEV. THE 1442 READY LAMP 
SHOULD GLOW. 

1443 TURN ON THE POWER SWITCH AND PRESS THE 1443 

START KEY * THE 14 * 3 REA0Y LAMP SHOULO GLOW. 
2310 DISK STORAGE-TURN THE SWITCH ON THE FRONT OF THE UNIT TO 
'ENABLE'. 

2401 p LACE A REEL OF TAPE IN EACH TAPt DRIVE. PRESS 
THE 24C1 LOAD REWIND BUTTON(S). PRESS THE 2401 
START BUTTON(S). 

2402 PtACE A REEL OF TAPE IN EACH TAPE DRIVE. PRESS 
BOTH LOAD REWIND BUTTONS AND BOTH 
START BUTTONS. IT IS NECESSARY TO RUN THE 
DELAY LOOP TWICE TO ENSURE THAT EACH DRIVE 
CAN CONTROL THE METER. DURING THE FIRST 
TIMING LOOP THE METER WILL BE UNDER CONTROL 
OF DRIVE 2ER0. WHEN THE TIMING LOOP TERMINATES 
THE TAPE IN DRIVE ZERO SHOULD BE RETURNED TO 
LOAD POINT SO THAT ONLY DRIVE ONE CAN CONTROL 
THE METER DURING THE SECONO TIMING LOOP. ORIVE 
J. E , R = c UI!: L n BE ST -» RTE ° BY THE PROGRAM ON ALL ODD 
NUMBEREO RUNS AND DRIVE ONE ON ALL EVEN 
NUMBEREO RUNS. 

?hE F "0A T DING E PR0CEDURe! LE 0IA6N0STIC L0ADER DOCUMENTATION FOR 

NOTE 

IF THE PROGRAM LOADED CORRECTLY, AND ALL METERED I/O UNITS ASF in 
A READY STATUS, THE PROGRAM WILL STOP ^T MIT " «B «"sm" 

3.2 OPERATION. 

3.2.1 TO CHECK CUSTOMER METERS. 

1. SET THE DATA ENTRY SWITCHES TO INDICATE THE NUMBER OP 75 
SECOND LOOPS THAT YOU WISH TO MAKE. ?2 

READING^ (JgAIN 1 )** USC ° T ° L0A ° ™ E PR0GRAM » R «° R ° THE METER 
3. PRESS PC START BUTTON. 

DE\lY E IWn R prPTln L S I° P AT " A1T 3 <B REG 3003 » HHEN THE DESIRED 

hourI for^chSTsecond lo U o S p TO Eu R . METERS SH0UL ° HAVE ADVANCE0 - 02 
"t^lI^oTt^ 

^n NUM 2! RE , D T RUNS '' ™ E METER WJLI - BE UNDER CONTROL OF DRm 

! , HHEN THE RUN IS COMPLETED (PROGRAM STOPS AT WAIT 3 . 
PRESS THE -RESET- AND THE 'LOAD REWIND- BUTTONS ON DR VE 
ZERO, PLACE A FEW CAROS IN THE 1442 AND PRESS THE 1802 

R R ES S S ET THE N ? 80 r? R T T : B ?V T a T0NS - PR ° GRAM «IlTItoJ H At"mT 2. 
PRESS THE 1802 'START- BUTTON TO START THE DELAY LOOP. 

?HE I METE T R E wtfl :0N p IT J*?2 ^ SUBSEQUENT EVEN NUMBERED RUNS), 
IHt METER WILL BE UNDER CONTROL OF DRIVE NUMBER 1 Bffnoe 

6 TO^EPEAT TeIt K IIT, 2SJ H r°" IVES * RE ^lSaTpSiNT AND^ADY- 
PRESS R HE PE PC S T TART B^TToSf "^ ** ^ °*" tMTRY SH1 ' CH " AN0 

3.2.2 CONTROL CIRCUITRY CHECK. 

EACH METER WILL NOW BE CHECKED TO INSURE THAT IT RUNS ANO STOPS 
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RUNNING AT THE CORRECT TIMES. 

1. CHECK THAT NO METERS ARE RUNNING WHILE THE PROGRAM IS AT WAIT 
3. 

2. TURN THE METER KEY TO C.E. MODE. WHILE THE PROGRAM IS 
RUNNING CHECK THAT N METERS ARE RUNNING. RETURN THE 
PETER KEY TO THE NORMAL POSITION. 

3. WHILE THE PROGRAM IS RUNNING IN A 72 SECOND DELAY LOOPt 
1442-THE METER SHOULD STOP WHEN THE NPRO BUTTON IS PRESSEO. 
IHOPPER MUST BE EMPTY) 

1443-THE METER SHOULD STOP IF THE 1443 STOP BUTTON IS 

PRESSED. 

2310-THE METER IS CONTROLLED BY THE •ENABLE/DISABLE' SWITCH 

ON THE FRONT COVER. IF THE POSITION OF THE SWITCH IS CHANGED, 

THIS CHANGE SHOULD NOT AFFECT THE METER UNTIL AFTER THE PC 

HAS COME TO A WAIT. (AND THEN HAS STARTED AGAIN). 

2401/02 THE METER SHOULD RUN WHENEVER THE TAPE IS LOADED AND 

NOT AT LOAD POINT. IF A TAPE DRIVE IS LOADEO AND NOT AT LOAD 

POINT, PRESSING THE 'LOAD REWIND' BUTTON SHOULD STOP THE 

METER WHEN THE TAPE REACHES LOAD POINT. 

3.3 TERMINATION 

THE PROGRAM WILL STOP AT WAIT 3 (B REG 3003) WHEN THE EXERCISE IS 
COMPLETED. TO REPEAT EXERCISE, REFER TO WAIT 3 DESCRIPTION. 

3.4 RESTART 

PLACE A FEW BLANK CARDS IN THE FEED HOPPER OF THE FIRST 1442 
AND PRESS THE START KEY. THE 1442 READY LAMP SHOULD GLOW. 
PRESS THE PC RESET BUTTON THEN THE START BUTTON. THIS WILL 
REINITIALIZE THE PROGRAM, CONDITION ALL THE METERS TO RUN, THEN STOP 
AT WAIT 2 (B REG 3002). 

3.5 PROGRAM HALTS 

PROGRAM WAITS ARE USED IN THIS PROGRAM, AND ARE IDENTIFIED BY 
REFERENCING THE B REG AND I REG. 

A PROGRAM WAIT IS OF THE FORM, 

30XX, I B REG ). 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION FOLLOWS. 
IT IS INCLUDED TO SHOW THE FORMAT OF THE LISTING, ANO IT IS NOT 
NECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. 

tee***************************************************************************** 



3001 01ED 



DC 



WAIT1+1 



WAIT 1 



• ONE OF THE METERED I/O UNITS 

• FAILED TO SEND A RESPONSE 

• INTERRUPT TO THE PROGRAM. INDEX 

• REGISTER 1 WILL HAVE THE ADDRESS 

• OF THE IOCC. THE AREA CODE WILL 

• INDICATE THE I/O UNIT NOT READY. 

• IF A 2401/02 DRIVE IS NOT READY, 

• PROGRAM WILL NOT STOP AT WAIT 1. 
* 

ft******************************************************************************* 

B REG, I FIRST 4 DIGIT GROUP ) CORRESPONDS TO B REG READING. 
I REG, I SECOND 4 DIGIT GROUP ) CORRESPONDS TO I REG READING. 
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THERE ARE NC PRINTOUTS. 
5. COMMENTS (NONE) 
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METtR 



THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPFR ™ pf iwput ic mrn^ ... -r..,- „.^» -. 

MUST BE THE LAST CARDS ,N THIS PROGRAM DECK. THE FOLlSwIn! ^rTaR PROV DED T A W h1nK2 PR PAMNG T SE ED T^Aln^R 1 '^^?^^ D ° CUMENTATI0 «- THE PROPER EDIT CARDS 

TO PREPARE OR MODIFY ED.T CARDS, FILL IN THE NECESSARY DATA ,„ THE FORMS PR.oS X JuNCH IN^'cIrds'^CArS 'cOlSmNS 'tHAt" ARE^DE^ShSuLD ^'lIfT^nT 5 ' '' ' T ' $ ^"^ 



DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES; 



1. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 00-17) 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 0-F) 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC DEVICE* PUNCH AN " F 



IN THE CARD COLUMN. 




CARD COLUMNS 77-80 W.LL CONTAIN THE SPEED OF THE CORE STORAGE. FOR 2 MICRO SEC. STORAGE PUNCH 0002. AND FOR k MICRO SEC. STORAGE. PUNCH OOC*. 
NOTE: IF A DEVICE IS NOT ON THIS SYSTEM, PUNCH THE CORRESPONDING ENTRY FFFF FFFF. 
NO rt END EDIT** CARD IS REQUIREO FOR THIS PROGRAM. 



DATE 28 FEB 66 
EC 1*15120 



DATE 1 MAY 66 
EC 4I5I2QA 



DATE 0! JUL 66 DATf 
fC M5178 EC 



01SEP67 
411857 
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02 8 C 



3500 0010 



3501 0037 



3302 0056 



3503 0058 



3504 00A7 



3505 OOAE 



3506 01*7 



CATE 04N0V66 
EC NO. 415233 



SEE PID 0802 FOR DESCRIPTION 

ABS 

ORG /3500 

Sescr L .p?{o T n! L L0AMR PR0GRAM "*" 



DC 



W3S00U WAIT 500 



* OSW ERROR WAS 
OETECTED DURING LOAO 
OPERATICNS. RELOAD THE 
INITIAL LOADER. 



or 



W3501*l WAIT 501 



DC 



DC 



AN INITIAL ICAOER EDIT 
CARD ERROR HAS BEEN 
DETECTED.CHECK THE EDIT 
CARDS. INSURE THAT COLUMN 
1 CF 8CTH CARDS CONTAINS 
AN -E'.THAT THE PID CM 
BOTH CARDS IS 0200, THAT 
CARD 1 SECUENCE NUMBER IS 
EDOO AND CARD 2 IS FFFF. 
CORRECT ANY ERRORS, PLACE 
BOTH CARDS IN THE 1442, 
MAKE IT READY AND CONTINUE 



W3502+I WAIT 502 



1442 IS NOT READY. READY 
THE 1442 WITH INITIAL 
LOADER EDIT CARDS AND 
CONTINUE. 



W3503»l WAIT 503 



DC 



DC 



A 1442 OSW ERROR WAS 
?" EC .TED DURING EDIT CARD 
INPUT. REENTER BOTH E0IT 
CAR0S IN THE 1442 HCPPER, 
MAKE IT READY ANO CCNTINUE 
W350-.*! WAIT 504 

THE 01 SK PACK CE WORD 
WAS NOT FOUND ON THE 
HISTORY TRACK. INSURE THE 
CE DISK PACK HAS BEEN 
LOADED. 0EPRESS START TO 
TRY AGAIN. IF ERROR PER- 
SISTS, REINITIALIZE THE 
CE DISK PACK. 

"3505*1 WAIT 505 

HISTORY DATA FOUND CN THE 
HISTORY TRACK INDICATES 
THAT 4 OR MORE BAD CYLIN- 
DERS EXIST ON THE CE OISK 
PACK.THIS IS CONSIDERED A 
BAD PACK.A NEW CE PACK 
SHOULD BE USED. IF IT IS 
DESIREO TO USE THE BAD 
PACK, SET SNS/PGM SWITCH 
AND CONTINUE. 



DC 



W3506*l WAIT 506 



8B70C010 

8B700020 

8B700030 

8B700040 

8B700050 

88700060 

8B700070 

8B700080 

88700090 

8B700JOO 

8B700110 

8B700120 

8B700130 

88700140 

8B700150 

8B700160 

8B700170 

8B700180 

8B700190 

8B700200 

88700210 

8B700220 

8B700230 

88700240 

88700250 

8B700260 

8B700270 

8B700280 

8B700290 

8B700300 

8B700310 

8B700320 

8B700330 

8B700340 

8B70035O 

8B700360 

8B700370 

8B700380 

8B700390 

8B700400 

8B700410 

8B700420 

8B700430 

8 B7 00440 

8B700450 

8B700460 

8B700470 

8B700480 

88700490 

8B700500 

8B700510 

8B700520 

8B700530 

8B700540 

8B700550 

8B700S60 

8B70057O 

8B700580 

8B700590 

8B700600 

8B700610 

8B700620 

8B700630 

8B700640 

8B7006S0 

8B700660 

8B700670 

SB700680 



•BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL INITIAL LOAOER (CARD) 



PART NO. 2242251 
PAGE U 



J 



o 



3507 0149 



3508 016E 



3509 01C8 



350A 020E 



3508 021C 



350C 022D 



THE 1442 IS NOT REAOY 
READY THE 1**2 WITH 01 ML 
OBJECT DECK.CR PRESS 1442 

C S T N?[ N UE° R LAST CAR ° AN ° 



DC 



W3507*l WAIT 507 



OC 



A 1442 DSW ERROR WAS 
DETECTED WHILE LOADING 
OIMAL. RELOAD THE OIMAL 
OBJECT DECK IN THE 1442 
HOPPER AND MAKE IT READY 
DEPRESS THE 1800 RESET 

fn?r.?J ART BUT TONS. PROGRAM 
LOADING SHOULD OCCUR. 



W3508*l WAIT 508 



DC 



A CHECKSUM ERRCR WAS 
OETECTEO DURING 01 PAL 
LOADING. NPRO THE 1442. THE 
1ST CARD EJECTED IS THE 
CARD IN ERROR. INSURE CARO 
IS IN CORRECT SECUENCE. IF 
NO PROBLEM IS APPARENT, 
HVIZ* 80 ™ EJEC TED CAROS 
•NO CONTINUE. RELOADING 
MAY ALSO BE DONE BY PLAC- 
J£ G ™ E ENTIRE OIMAL DECK 
IN THE 1442 HOPPER ANO 
MAKE IT READY.DEPRESS 1800 
RESET AND START BUTTONS. 



W3509*l WAIT 509 



?*it?™ RD SE °" E NCE WAS 
INITIATEO BEFORE THE 
COMPLETE DI1AL DECK WAS 
READ IN. INSURE THAT THE 
COMPLETE DIMAL DECK HAS 
BEEN LOADED. 



DC 



W350A*1 WAIT 50A 



DISK HOME BIT DID NOT 
COME ON IN THE DSW AFTER 
THE 3RD ATTEMPT TO SEEK 

rnUf: CCRRECT F *'LURE ANO 
CONTINUE. IF CORE IS DES- 
TROYED, RELOADED MUST BE 
ACCOMPLISHED. 



DC 



DC 



W350B»1 WAIT SOB 



2310 DISK DRIVE NOT READY. 
READY THE 2310 ANO 
CONTINUE. 



W350C+1 WAIT 50C 



PROG ID 
PAGE 



08 B 7-0 
1 



ATTEMPTED DISK READ.DRIVE 
WENT NOT REAOY. HAKE DRIVE 
READY AND CONTINUE. IF 
DISK ARM POSITION IS 
CHANGED, RELOADING DIMAL 
DECK IS REOUIREO. 



8B700690 

8B700700 

8B700710 

8B700720 

8B700730 

88700740 

88700750 

8B700760 

8B700770 

8B700780 

8B700790 

88700800 

8B700810 

8B700820 

£5700830 

8B700840 

8B700850 

8B700860 

8B700870 

8B700880 

8B700890 

8B700900 

8B700910 

83700920 

8B700930 

8B700940 

8B700950 

88700960 

8B700970 

8B700980 

8B700990 

8B701000 

8B701010 

8B701020 

8B701030 

8B701040 

8B70I050 

8B701060 

8B701070 

8B701080 

8B7C1090 

8B701100 

8B701110 

8B701120 

8B701130 

8B701140 

8B701150 

8B701160 

8B701170 

8B701180 

88701190 

8B701200 

8B701210 

8B701220 

8B701230 

8B701240 

8B701250 

*B701260 

8B701270 

8B701280 

8B70I290 

88701300 

8B701310 

8B701320 

8B701330 

8B701340 

8B70I350 

8B701360 
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PART NO. 
PAGE 



2242251 
2A 



350D 023A 



DC 



35UE 0245 



350F 0253 



3510 0299 



3511 

03E8 
044C 
0440 
044 E 



* 
* 

* 
* 

* 
* 

* 

* 

* 

IN 

IOA 

SIO 

OUT 

• 

* 
* 

* 
* 



DC 



DC 



DC 



ORG 

EQU 
EQU 
EQU 
ECU 



W350D+1 WAIT 500 

A OSW ERROR CCCUREO ON A 
DISK READ CP ON EACH OF 
3 ATTEMPTS. THE A PEG. 
CONTAINS THE ERROR BITS. 
PRESSING START AFTER THE 
ERROR HILL CAUSE PROGRAM 
TO MAKE 3 PORE TRIES TO 
READ. IF ERROR PERSISTS. 
CORRECT AND RELOAD DIMAL. 

W350E*l WAIT 50E 

ATTEMPTED DISK WRITE.DRIVE 
NOT READY.MAKE DRIVE READY 
AND CONTINUE. IF OISK ARM 
POSITION IS CHANGEO. 
RELOADING DIMAL DECK IS 
REQUIRED. 

H350r»l WAIT 50F 

A OISK WRITE OR MODULO 4 
CHECK ERROR EXISTED ON 
EACH OF 3 ATTEMTS TO WRITE 
CEPRESS START BUTTON WILL 
CAUSE PROGRAM TO MAKE 3 
ADDITIONAL ATTEMPTS TO 
WRITE. IF ERROR PERSISTS. 
CORRECT AND RELOAD DIMAL. 

W3510*l WAIT 510 

THIS WAIT INOICATES THAT 
THE LOADING OF THE CARD 
DECK REPRESENTING THC 
PAPER TAPE VERSION OF 
DIMAL HAS BEEN CCMPLETED 

CARD 1 

1000 
1100 
10A+1 
SID*1 

DIMAL SYSTEM INITIAL LOAOER 



THE INITIAI LOADER PERFORMS THE 
FOLLOWING f UNCTIONS. 



1. 



INPUT 
CARDS 
INSURE 
10ADED 
3. ASSIGN 
THE DI 
INPUTS 
LOADER 
DOM St 
WRIIfS 
INPUTS 
THE DI 
WING 



2. 



4. 



5. 



AND CONVERT THE LOAOER EOIT 

S THAT THE CE DISK PACK IS 
,AND USABLE. 

S THE CYLINDERS TO BE USE BY 
SK DIAGNOSTIC MONITOR. 

THE DDM HEADER. COLD START 
,DDM LOADER/ORGANIZER AND THE 
I EC T /EXECUTE PROGRAMS ANO 

THEM ON THE OISK. 

THE DDM LOADER/ORGANIZER FROM 
SK UPON COMPLETION OF INITIAL- 
THE DISK WITH THE DIMAL SYSTEM 



THIS IS THE 1ST CARD OF THE LOADER.IT 



DATE 
EC NO. 



04NOV66 
415233 



8B701370 

8B701380 

8B701390 

8B701400 

88701410 

88701420 

8B701430 

83701440 

8B701450 

8B701460 

8B701470 

8B701480 

8B701490 

8B701500 

8B701510 

88701520 

88701530 

8B701540 

88701550 

8B701560 

6B701570 

8B701580 

8B701S90 

88701600 

88701610 

88701620 

8B701630 

88701640 

88701650 

88701660 

88701670 

8B701680 

8B701690 

88701700 

88701710 

BB701720 

8B701730 

8B701740 

8B701750 

8B701760 

B&701770 

8B701780 

8B701790 

8B701800 

88701810 

88701820 

88701830 

8S701840 

88701850 

8B701860 

88701870 

8B701880 

88701890 

88701900 

89701910 

CQ701920 

8B701930 

8B701940 

8B701950 

88701960 

8B70197& 

8B701980 

88701990 

88702000 

8B702010 

8B702020 

88702030 

88702040 



PROG 10 
PAGE 












• 


IS READ 


IN BY TH 








• 
* 
IPLI 


USED 


TO 


LOAD THE 


0000 





0819 


XIO 




RDPAC 


0001 





081A 


1PL2 


X10 




DSW 


0002 


00 


4C040001 




BSC 


L 


IPL2.F 


0004 





B017 




CMP 




DSW 


0005 





7009 




MDX 




W3500 


000 6 





7006 




MDX 




IPL3 


0007 


00 


7424001A 




MDX 


L 


RDPAC. 36 


0009 


00 


74FF001E 




MDX 


L 


CDCT, -I 


ooo a 





7PF4 




MDX 




IPLI 


oouc 





7004 




MDX 




PREP 


007 





BOH 


IPL3 


CMP 




K0100 


OOOE 





1000 




NOP 






OOOF 





3500 


U35O0 


DC 




/3500 


0010 





70FO 




MOX 




IPL2 


0011 


00 


67000141 


PREP 


LDX 


L3 


321 


0013 


00 


6F00044C 




STX 


L3 


IOA 


0015 





C802 




LDD 




BRN 


0016 





08E9 




STO 







0017 





700C 




MDX 




EOIT 


0018 




0000 




BSS 


E 





0018 


00 


4C00027E 


BRN 


BSC 


L 


RSTRT 


001A 





0024 


RDPAC 


DC 




36 


COIE 





1601 




DC 




/1601 


001 C 





0800 


OSW 


DC 




/0800 


001 D 





1700 




OC 




/1 700 


001 E 





0013 


CDCT 


DC 




19 


001 F 





0100 


KOiQO 


DC 




/0100 


0020 





FFFF 


KFFFF 


DC 




/FFFF 



0021 



READ PACKEO MODE 
SENSE 1442 STATUS 
BRANCH IF NOT REAOY 
LOOK FOR OP COMPLETE 
BRANCH - BIT 2 ON 
BRANCH - BITS 5 OR 6 
SET IOCC FOR NXT CD 
SKIP W<EN LOADER IN 
GO READ NEXT CARD 
PREPARE INPUT AREA 
CHECK IF BITS 5 OR 6 

DSW INOICATES ERROR 

SET CONSTANT 321 IN 

•INPUT AREA 
PICKUP RESTART INSTR 
SET IN LOCS ANO 1 
BRANCH TO INPUT EDIT 

RESTART INSTRUCTION 
READ 1442 PACKED 
•IOCC WORD 
SENSE 1442 DSW IOCC 

LOADER CARD COUNT 
ERR CK USW CONSTANT 
CONSTANT 

*»♦»****»«■•*****♦**•»<•-»»»»***»*»»♦.»♦♦****«*»» 

ORG 36 CARD 2 
•**•***•**••*»*••••♦***••»••»•*♦♦»♦*♦»»»*♦»»♦ 



0887-0 
2 







• 


THIS 


SECTION 


READS 


.CONVERTS ANO CHECKS 






• 
4 


THE 


INITIAL LOADER 


EDIT CARDS. 


0024 


08F7 


EDIT 


XIO 




DSW 




SENSc FCR STATUS 


0025 00 


4C040055 




BSC 


L 


W3502 


.E 


BlANCH ON NOT REAOY 


002 7 


6301 




LOX 


3 


1 




SET EDIT CARD INO. 


0028 


6B35 




STX 


3 


EDSW 






0029 


0830 




XIO 




RDED 




READ A CARD 


002 A 


08F1 


EDIT1 


XIO 




DSW 




SENSE STATUS 


002 B 


1801 




SRA 




1 




POSITION DSW 


002C 00 


4C04002A 




BSC 


L 


EDIT1 


.E 


BRANCH IF BUSY 


002 E 


180C 




SRA 




12 




POSITION DSW 


002F 00 


4C040057 




BSC 


L 


W3503 


.E 


BRANCH CN ERROR OSW 


0031 


082A 




XIO 




DSW1 




RESET OSW 


0032 00 


C40003E8 




LD 


L 


If. 




PICKUP 1ST WORD 


0034 00 


4C280038 




ESC 


L 


EDIT2 


,*Z 


BRANCH IF EOIT CARD 


0036 


3501 


W3501 


DC 




/3501 




EDIT CARD ERROR 


0037 


70EC 




MDX 




EOIT 




RESTART 


003 8 


7026 


EDIT2 


MDX 




Hecv 




GO CONVERT HEX TO EI 


0039 00 


C400044E 




LO 


L 


OUT 




GET 1ST CONVERTED WD 


003B 


F020 




EOR 




DSW1 




CHECK FOR PID 802 


003C 


4820 




BSC 




z 




SKIP IF PROPER PID 


003D 


70F8 




MDX 




H3501 




BRANCH ON WRCNG PIO 


003 E 


COIF 




LO 




EDSW 




PICKUP EDIT SWITCH 


003F 


4808 




BSC 




♦ 




SKIP IF EDIT SW * 1 


0040 


700E 




MOX 




EDITS 






0041 00 


C400044F 




LO 


1 


oum 




PICKUP SEQUENCE NMBR 


0043 


F015 




EOR 




KEDOO 




CHECK FOR CARD EOOO 


0044 


4820 




BSC 




z 




SKIP IF PROPER CARD 


0045 


70F0 




MDX 




W3501 




BRANCH ON WRONG SEQU 


0046 


D017 




STO 




EOSW 




CLEAR EDIT SWITCH 


0047 


6303 




LOX 


3 


3 




SET WORD INDEX 






•**•**••*♦*»**********»»*»»•♦»**»**♦»*»»***♦* 


DATE 


04N0V66 














EC NO. 


415233 















8B702050 
8B702060 
8B702070 
8B702080 
88702090 
8B702100 
8B702110 
8B702I20 
8B702130 
8B702140 
8B702150 
88702160 
8B702170 
8B702180 
88702190 
88702200 
8B702210 
88702220 
8B702230 
8B702240 
8B702250 
8B702260 
88702270 
8B702280 
80702290 
8B702300 
8B702310 
8B702320 
8B702330 
8B702340 
8B702350 
8B702360 
8B702370 
8B702380 
8B702390 
8B702400 
8B702410 
8B702420 
88702430 
8B702440 
8B702450 
88702460 
8B702470 
8B702480 
86702490 
8B702500 
8B702510 
8B702520 
88702530 
8B702540 
8B702550 
88702560 
8B702570 
88702580 
BB702590 
eB702600 
BS702610 
8B702620 
8B702630 
8B702640 
8B702650 
8B702660 
8B702670 
8B702680 
88702690 
8B702700 
BB702710 
8B702720 



PROG ID 
PAGE 



0887-0 
2A 



o 



c 



o o o o n n n o o o n o o o o 






o o o o o (J 



w r 

it 



n o d o o o c o 



f ^ 



c'cccccc ccccccc ccccccc ccccccc cccccc 



ION PA,NTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CIMAl INITIAL LOADER <CARD» 



00*8 

C048 00 
004A 00 
004C 
C04D 
004 E 
C04F 00 
0051 
0052 

0053 

0054 

0055 

0056 

005 7 

0058 

0059 














C05A 

005A 
0058 
005C 
0050 
005E 



005F 

0060 

0061 

0062 

C063 

006* 

006 5 

0066 

0067 

0068 

0069 

006 A 

006 e 

006C 


























C7000450 

070001 FF 

73FF 

70FA 

700A 

C400044F 

FOCE 

4 820 

70E2 

7034 

3502 

70C0 

3503 

70CB 

EDOO 

0000 
03E8 
1600 
0200 
1703 
0000 



61E1 
1010 
0024 
6204 
7101 
7001 
7003 
1310 
001 F 
D01F 
1004 
0010 
6300 



006C 00 
006 E 
006 F 
0070 
0071 
0073 
0074 00 
0076 
0077 
0078 
0079 
00 7 A 
0078 
007C 
0070 
007E 00 

0080 

0081 00 
0083 00 
008 5 
0086 
008 7 
008 8 



DATE 
EC NO. 





00 














C5000407 

4828 

7309 

1003 

4C180078 

7301 

4C280078 

1001 

70F9 

6B0E 

COCO 

E80D 

T101 

72FF 

70EB 

67800086 

1000 

0700044E 

74010086 

TCOC 

0000 

0000 

0000 



04N0V66 
415233 



ORG 
********** 

LO 
STO 
MOX 
HOX 
MDX 
E0IT3 LO 
EOR 
OSC 
HOX 
MOX 

W3502 DC 
MOX 

W3503 DC 
MOX 

KEOOO DC 

• 



RDED 
0SW1 

EOSM 

• 

* 
HBCV 



6!>S 
OC 

DC 
OC 
DC 
OC 



72 

*••*•*•** 

L3 00 T *2 
13 EDWD- 
3 -1 
*-6 
EDIT1 
L OUTM 
KFFTF 
2 

H3501 
INT 
/3502 
EDIT 
/3503 
EOIT 
/EDOO 


IN 

• 1600 
/0200 
/1703 




CARD i 
**•**•**•**** ***»***»»»*„ 

PLACE CONVERTED EDIT 
*WOS IN SAVE LOCATNS 
SKIP WHEN OONE 
CONTINUE SAVE OP 
GO REAO NEXT CARD 
PICK UP 2ND EDIT ETY 
CHECK FOR TERMINATOR 
SKIP IF TERM CARO 
BRANCH NOT TERM CARD 

1442 NOT READY 

TRY AGAIN 

OSW INOICATES ERROR 

TRY FOR REREAO 

CONSTANT 



1442 REAO IOCC 

1442 SENSE/RESET 
♦DSW IOCC 
EDIT SWITCH 



CAM iS U BI , nV,° NV£, ' TS l "«»*«««. 



LOX 

SLA 

STO 

HBCV1 LDX 

MDX 

MDX 

MOX 

SLA 

STO 

STO 

HBCV2 SLA 

STO 

LCX 



1 -31 

16 
LOC 

2 4 
1 1 

•♦1 

E0IT2*1 

16 

SAVE 

SAVE1 

4 

SAVE1 





SET XR TO CONV.30 WO 
CLEAR CCNVERTEO WORD 
•STORE POINTER 
SET COLUMN XR » 4 
SKIP WHEN DONE 
CONVER T A WORD 
CONTINUE MAINLINE 
CLEAR CONVERSION 
♦WORK LOCATIONS. 
• 

POSITION FOR NXT CHR 
SAVE CCNVERTEO CHARS 
SET CHARAC XR « 



••••••;;! :•••••••••• -♦--"*-♦:**■*** 

0RC 108 CARD 4 
••****•*.•*••*••*•**♦*♦****♦•••♦♦***♦♦*♦**.♦♦♦ 



LD 
BSC 
MDX 
SLA 
BSC 
HBCV3 MDX 
BSC 
SLA 
MDX 
HBCV4 STX 

LD 
HBCV5 OR 
MOX 
MDX 
MOX 
LOX 
NOP 
STO 
MDX 
MOX 
LOC OC 
SAVE OC 
SAVE1 OC 



LI INOl 
♦ 2 
3 9 
3 

L HBCV4.+- 

3 1 
L HBCV4.+Z 
1 

HBCV3 
3 SAVE 
SAVE 
SAVE1 

1 1 

2 -1 
HBCV2 

I3 V L0C 

13 OUT 
L L0C,1 

HBCV1 









PICK UP HEX COLUHN 
SKIP IF NOT ALPHA 
ADD 9 FOR ALPHA CHAR 
REMOVE ZONE BITS 
XFfcR IF CHAR « 
*D0 1 TO CHARACT XR 
XFER IF OIGIT FOUND 
POSITION NEXT BIT 
CHECK NEXT BIT 
STORE BIN CHARACTER 
FETCH BIN CHARACTER 
ADD TO PREVIOUS CHAR 
ADO 1 TO HEX WORO XR 
SUB 1 FROM COLUfiN XR 
CO FOR NEXT COLUMN 
PICK UP STORE POINT* 

SET IN OUTPUT AREA 
AOO 1 TC POINTER 
CO FOR NEXT WOW) 
STORAGE POINTER 

♦CONVERSION WORK 
♦LOCATIONS 
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U 



8B 702730 

8B702740 

8B702750 

8B702760 

8B702770 

8B702780 

8B702790 

8B702800 

8B702810 

8B702820 

88702830 

8B702840 

83702850 

8B702860 

8B702870 

8B702880 

8B702890 

8B702900 

8B702910 

8B702920 

8B702930 

85702940 

8B702950 

8B702960 

8B702970 

8B702980 

8B702990 

8B703000 

8B703010 

8B703020 

8B703030 

8B703040 

8B703050 

8B703060 

8B703070 

BB703080 

8B703090 

8B703100 

8B703110 

867031*0 

8B703130 

8B703140 

8B703150 

8B703160 

8B703170 

8B703180 

88703190 

8B70320O 

8B703210 

8B703220 

8B703230 

83703240 

8B703250 

8B703260 

88703270 

8B703280 

88703290 

8B7O330O 

88703310 

8B703320 

8B703330 

8B703340 

8B703350 

8B703360 

8B703370 

SB703380 

BB703390 

80703400 



(> ) 

o 
c 

f 



f I « 
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0887-0 

3 



i 

1 ! C 
i 

I 

' ' 

o 
O O 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL INITIAL LOADER (CARO) 



0089 00 C4000202 
008B 0031 
008C 00 C4000200 
008E 0020 
008F 1803 



0090 

00 V 3 00 
0092 
00<«3 00 
0095 00 

0097 00 
0099 
009 A 

0098 00 
009 C 00 
009F 00 
CO A I 00 
00 A 3 
00A4 00 
00A6 
00 A 7 
00A8 00 
OOAA 
00A8 00 
OOAO 
COAE 
OOAF 00 
0081 
0062 
O0B3 








0400026A 

6 SOB 

C4000201 

EF000264 

D7000264 

73FE 

70F8 

*4000203 

44000216 

44000225 

C400044C 

FOOE 

4C1800A8 

3504 

70F3 

C400044F 

F008 

4C1000BE 

3505 

0805 

4C2800BE 

70F6 

CEOC 

0018 



00B4 



0064 0000 
0064 0030 
0085 0760 



00B6 

00B7 

0068 

00B9 

OOBA 

OOBB 

OOBC 

OOBD 


















OCBE 
OOBF 
OOCO 00 
00C2 
00C3 
00C4 00 
00C6 
0OC7 
0OC8 
00C9 
OOCA 
00C6 00 
OOCO 
OOCE 



DATE 
EC NO. 










0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

62FA 

C0F4 

6780044F 

7300 

7007 

060000 BC 

7201 

7001 

700B 

8009 

70F5 

B700044F 

7002 

7001 



04NOV66 
415233 



INT 



df}«2?«II n L builds the disk commands, 

A D NO IE ,F MI ?HE S CE F P T A H CK C ,S P G A 00 K 0. ,S ""« "*" 



LD 
STO 
LO 
STO 

SRA 



ED WD* 2 

USTB+7 

EDWO 

USTB+6 

3 



GET OUTPUT DEVICE IK 
SET IN USE TABLE 
GET HISTORY CYLINDER 
SAVE IN USE TA£L£ 
REMOVE SECT01 CITS 



♦♦**** ♦♦♦♦♦♦♦♦*♦*.. — ^u^.r..iiii. 

ORG 144 CARD 5 

******!::**.***!!♦***•*•*•♦**•♦♦♦♦*»•*.♦..«..♦ 



INTl 



INT2 

INT3 



STO 

LOX 

LD 

OR 

STO 

MDX 

MDX 

BSI 

esi 

BSI 
LD 
EOR 
8SC 
U3504 DC 
MDX 
LD 
EOR 
BSC 
M3505 OC 
XIO 
BSC 
MOX 
OC 
OC 



INT4 



L DSK 

3 11 
L EOWO+1 
L3 HOME 
L3 HOME 
3 -2 
INTl 
L HM 
L SEEK 
L REAO 
L I0A»2 

CK 
L INT4,*- 

/3504 

INT2 
L IGA+3 

CK1 

INT5,- 

/3505 

SNSW 

INT5,*2 

INT4 

/CEOC 

24 



SET IN SEEK CO^MANO 
SET BUILD INCEX 
PICKUP DISK AREA CO 
ADO AREA CCOE TC 
♦DISK IOCC 
SKIP WHEN DONE 
CONTINUE 
GO SEEK HM 
SEEK TO HISTORY TRK 
READ HISTORY T?ACK 
PICK UP CE WORD LOC 
CHECK FOR CE PACK 
BRANCH IF CE WORO 
CE WORD NOT REAO 
TRY AGAIN 
GET BAO CYL COLST 
CHECK FCR MORE THAN 
*3 BAD CYLINCLSS 
4 OR MORE BAD CYLS 
SENSE SWITCH INPUT 
IP SSO USE BAO PACK 



CK 
CK1 

***•****••**•**:• • 

ORG 180 CARD 6 

SNSM Sc /S22 SENSE s ' p s -"ch 

"t /0760 ♦IOCC 



* 
UST8 



THIS SECTION ASSIGNS ThE DOM CYLINDERS 



INT5 
INT6 



INT7 



INT8 
INT9 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

LOX 

LO 

LOX 

MDX 

MDX 

STO 

MOX 

MDX 

MDX 

A 

MDX 

CMP 

MOX 

MOX 












-6 
SNSW 
SI 0*2 


INT9 
L2 USTE>*6 
2 i 
♦♦1 
GEN 
K8 

INT6 
L3 SI0*2 
INT10 
INT10 



13 

3 



HEAOER/LDR CYLLNDER 
ODM LDR/OR& CYLINDER 
ODM SEL/EXC CYLINDER 
WORK CYLINDER 
WORK CVLINCER 
LOC.DIR - EDIT TA8LE 
HISTORY TRACK 
OUTPUT DEVICE 

SET TABLE xr 

PICKUP CYL 6 ACORESS 

SET ERROR TABLE XR 

SKIP IF ERROR >» . o 

CO CHECK FOR COOO CY 

SET CYL NMbR IN T8L 

ADD 1 TO TABLE XR 

CONTINUE 

GO TO NEXT SECTION 

ADD 6 TO CYLINDER XR 

CHECK NEXT CYLINOER 

COMPARE WITH EK* CYL 

OK 

OK 



PART NO. 2242251 
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8B703410 

8B703420 

8B703430 

8B703440 

8B7034S0 

6B703460 

8B703470 

8B703480 

6B703490 

88703500 

8B703510 

88703520 

88703530 

8B703540 

8B703550 

8B703560 

8B703570 

8B703580 

8B7035O0 

8B703600 

6B703610 

8B703620 

88703630 

8B703640 

88703650 

8B703660 

8B703670 

8B703630 

8B703690 

6B703700 

8B703710 

8B703720 

6B703730 

8B7O3740 

8B7O3750 

8B70376C 

8B703770 

8B703780 

8B703790 

86703800 

8B703810 

88703820 

8B703830 

88703840 

8B703850 

8B70366C 

88703870 

8B703880 

88703890 

8B703900 

8B703910 

86703920 

8B703930 

8B703940 

8B703950 

8B703960 

8B703970 

8670396.1 

8B703990 

OB704000 

86704010 

86704020 

88704030 

8B704040 

68704050 

8B704060 

8B704O70 

8B704080 



PROG 10 
PACE 



08 B 7-0 
3A 
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OOCF 





70F9 


OODO 





73FF 


0001 





70F9 


0002 





70F1 


0003 





0008 



0004 00 44000203 

0006 COOF 

0007 1803 











0008 

0008 00 
OOOA 00 
OOOC 
OOOC 
800 E 
CODF 
OOEO 
0OE1 00 
00E3 
00E4 
00E5 00 
00E7 00 
00E9 
00 E« 00 
OOEC 
OOEC 00 
COEF 
OOFO 
OOfl 00 
OOF 3 
00F4 
OOFS 00 
OOF 7 00 
00F9 
OOF A 
OOFB 

OOFC 



D400026A 

44000216 

6300 

6B4A 

oiOO 

7056 

CC49 

4C20018F 

7C68 

C043 

4C2O00EA 

74010128 

70F5 

7400C129 

7035 

4C000270 

0039 

C03A 

4C1800FC 

630B 

62F8 

C60000BE 

07000368 

7301 

7201 

70F9 



OOFC 
OOFC 
OCFE 00 

0100 

0101 00 
0103 00 

0105 

0106 00 
0108 00 
010A 

oioe oo 

0100 00 

010F 00 

0111 

0112 

0113 

0115 

0116 

0117 00 

0119 00 

011B 

011C 

0110 

OUE 







00 














DATE 
EC NO. 



1010 

D02E 

C40033E8 

F028 

4C20011F 

C40003EA 

E02A 

040003EA 

678003EA 

6209 

C60003E8 

050004*E 

74010129 

7101 

7201 

7401012F 

C019 

F016 

441801A5 

7400012C 

70E0 

73FF 

70E0 

70C8 



04NOV66 
415233 



. U T.nH2i! , '?" CONTINUE CHECK 

INT 10 MOX 3 -1 DECREMENT ERR XR 

"" ,NT9 CHECK NEXT ERR ENTRY 

"?* 'NT? CHECK NEXT CYLINDER 

oc « CONSTANT 8 



K8 

* 

* 
GEN 



THF FOLLOWING SECTIONS WILL INPUT THE 
D0,< AND WRITE I» ON THE DISK. 



BSI L HM GO SEEK HOME 

L0 "STB PICKUP 1ST CYLINDER 

SR * 3 REMOVE SECTOR BITS 

• *»»*»»»*»♦*♦♦**•♦*♦***»»«,»»,**»„»»», # » ##4## 

R G 216 CARD 7 

****»t*« <**»*•»**»*** *****♦**«*»♦**,*,,,., * 4# 



GEN1 



GENS 



GEN4 



GEN9 



GENS 



STO 

est 

LOX 

STX 

LDX 

MOX 

LO 

BSC 

MOX 

LO 

BSC 

MOX 

MOX 

MOX 

HOX 

BSC 

STO 

LO 

BSC 

LOX 

LOX 

LO 

STO 

MDX 

MOX 

MOX 



CSK 
L SEEK 
3 

3 CDC 

1 
RCCO 
LCO 
L LAST, 2 

PACK 

COC 
L GEN4.Z 
L CDC, I 

GEN3 
L ACRS.O 

ENDCK 
L CKAO 

AD3S 

SCID 
I Gl',6,*- 
3 11 
2 -8 
L2 USTB+8 
L3 IN 

1 

1 

GENS 



3 

2 



SET IN SEEK COKMANO 
GO SEEK *0 OES. CYL. 
INITIALIZE CARD 
•COUNT INDICATOR 
SET OUTPUT AREA XR 
GO REAO A CARD 
PICK UP LAST CARD SU 
BRANCH IF CN 
GO PACK BINARY OA'A 
PICK UP CARD COUNT 
ePANCH IF NCT 1ST CD 
ADO 1 TO CD CCUNT 
IGNORE HCADER CO 
SKIP IF NO DATA IN 
BRANCH TO END CD CK 
BRANCH TO CHECK AORS 
SAVE CARD ADRS 
PICK UP SECTION 10 
BRANCH IF SECTION 1 
TRANSFER USE TABLE 
♦TO PROGRAM SECTION 
• 

» 

•SKIP WHEN 8 WOS XF 

* 



••***»» *♦*♦*♦**»***«***»«*»»„,,,.,,,»,,».,,» 

R G 252 CARD 8 

••*•**•• «»»»»♦**»♦*»♦*♦***»*»♦»,,»,,»,»»,,»,, 



GEN6 



GENT 
GENE 



SLA 
STO 

LO 
EOR 
BSC 
LO 

AND 

STO 

IDX 

LDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

10 

E01 

8SI 

MDX 

MDX 

HOX 

MDX 

MDX 



16 

ZERO 
L IN 

ACRS 
L FILL, 2 
L IN + 2 

RSN 
L IN*2 
13 IN*2 
2 9 
L2 IN 
LI OUT 
L AORS.l 

1 1 

2 1 

L WDCT, I 

WDCT 

K320 
L WRITE, ♦- 
L 7.EPO.0 

GEf.6 

3 -1 
GEN7 
CEN4-3 



CLEAR ZEROS SWITCH 

• 

PICK UP CARO ADDRESS 
CHECK IF EXPECTED 
BRANCH IT NOT EXfECT 
PICK UP CARO WO CNT 
SAVE WCRO COUNT CITS 
RESTORE TO CTG LCC 
CARD WORO CCLNT XR 
SET INPUT DATA XR 
MOVE DATA FROM INPUT 
TO OUTPUT AREA 
ADO 1 TC AOCPS INDC 
ADD I TO OUTPUT XR 
ADO 1 TO INPUT OT XR 
ADO 1 TO WORD CCUNTR 
PICK UP WORD COUNT 
CHECK FCR 320 WCRDS 
WRITE DISK IF WC 320 
SKIP IF ZERO SW OFF 
GO CHECK NEXT AOORS 
SKIP IF ALL WORDS 
GO >0VE NEXT WORO 
GO READ NEXT CARO 



8 B 704090 

8B704100 

8B704110 

8B704120 

80704130 

8B704140 

8B704150 

8B704160 

8B704170 

8B704180 

8B704190 

8B7C4200 

8B704210 

8B704220 

8B704230 

8B704240 

8B704250 

8B704260 

8B704270 

8B704280 

8B704290 

8B704300 

8B704310 

SB704320 

8870*330 

8B704340 

8B704350 

88704360 

8B70437O 

8B704380 

8P704390 

8B704400 

88704410 

8B704420 

6B704430 

8B704440 

8B7044S0 

88704460 

8B704470 

8B704480 

88704490 

8B704500 

8B704510 

8B704S20 

8B704530 

8B704S40 

8B70455O 

8B704560 

8B704570 

8B704580 

8B704590 

8B704600 

83704610 

8B704O20 

8B704630 

8B704640 

88704650 

8B704660 

8B70467C 

8B704680 

8B704690 

8B704700 

88704710 

8B704720 

8B704730 

88704740 

8B704750 

8B704760 



PROG 10 
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01 IF 680C 
0120 



0120 

0121 

0122 00 

0124 

0125 00 
0127 
0128 
0129 
012A 
012B 
L12C 
0120 
012E 
012F 
0130 
0130 
0131 
G132 
0133 
0134 
0135 
























1010 

70EB 

C40003EA 

T009 

4C180179 

7004 

0000 

0000 

0000 

0000 

0000 

0140 

OFOO 

0000 

0000 

003F 

1700 

C3E8 

1600 

0001 

1703 



0136 

0137 00 
0139 
013A 
013B 
013C 00 
013E 
013F 00 

0141 

0142 00 








08F9 

4C040146 

08F8 

08F5 

1801 

4C04013A 

1808 

4C04014A 

1801 

4C040148 



0144 

0144 
C145 
0146 
0147 
0148 
0149 
914A 
014B 





O 




014C 
014C 
014E 
014F 
0150 00 

0152 

0153 00 

0155 

0156 00 

0158 

0159 
015A 00 
015C 
0150 
015E 
01 5F 










08B7-0 

4 



DATE 
EC NO. 



08EF 
709A 
3506 
70EE 
3507 
70EC 
68DF 
70F5 



6924 

61B8 

6300 

62F0 

C6000177 

D006 

C5000431 

1800 

C5000430 

1804 

1000 

070003E8 

7301 

7101 

7201 

70F0 



04N0V66 
415233 



FILL STX ZERO SET ZEROS SWITCH 

*****•»'»**•»*»******>**»*♦**»**»*♦♦**♦*•#«♦»* 

ORG 288 CARO 9 

»***»********•»»****»♦♦*»»****•*********»*♦*» 



SLA 

MOX 
ENDCK LO 
EOR 
BSC 
MOX 
OC 
OC 
OC 
OC 
DC 
OC 



COC 
ADRS 
ICO 
SCIO 
ZERO 
K320 
KOFOO OC 
WDCT OC 



RSN 

RO 

RESN 



BSS 
OC 

DC 
DC 
OC 
OC 
OC 



16 

GENT*; 

IN+2 

KOFOO 

ENC*- 

GEN6 











320 

/OFOO 





/003F 

/1700 

IN 

/1600 

1 

/1703 



CLEAR A REG 

FILL OA WITH ZERO 

PICK UP WORD CNT LOC 

CHECK FCR END CARO 

BRANCH IF ENO CARD 

CONTINUE 

CARO COUNTER 

ADDRESS INDICATOR 

LAST CARO INDICATOR 

SECTION 10 

ZERO FILL INDICATOR 

CONSTANT 

CONSTANT HEX OFOO 

OUTPUT AREA WD CNTR 

SENSE 1442 ICCC 

REAO 1442 IOCC 

RESET/SENSE IOCC 



RDCO 



THIS ROUTINE READS THE DOM OBJECT CARDS 

X'O RSN SENSE STATUS 

BSC L W3536.E BRANCH IF NOT REAOY 

XIO RO REAO A CARO 

RDCD1 XIO RSN SENSE STATUS 

SRA 1 POSITION 

BSC t RDCD1.E SPIN WHILE BUSY 

S*A 11 POSITION 

BSC L LST.E BRANCH IF LAST CARD 

R0C02 SRA I POSITION 

BSC L W3507.E BRANCH IF ERROR 

****••••**•****»*** •**•*••***♦*****»**»»*»**» 

ORG 324 CARO 10 

*********** »*»»•*»» »»###»»»»»„ # »», t »,, # ,„^ 



XIO RESN 

MDX GEN3*1 

W3506 OC /3506 

MDX ROCD 

W3507 DC /3507 

MDX RDCO 

LST STX LCD 

MOX RDCD2 
* 

• THIS ROUTINE PACKS BINARY 12-4 DATA 



RESET DSW 

EXIT 

1442 NOT READY 

TRY AGAIN 

DSW INDICATES ERROR 

TRY AGAIN 

SET LAST CARD SWITCH 

CONTINUE 



PACK STX 
LDX 
LDX 

PACK1 LOX 

PACK2 LO 
STO 
LO 

* RTE 

LO 
SRA 

PACK3 SLA 
STO 
MOX 
MOX 
MOX 
MOX 



1 PACK4«1 

1 -72 
3 

2 -3 

L2 SHIFT'S 

PACK3 
LI IN*73 

16 

IN*72 

4 


L3 IN 

3 1 

1 1 

2 1 
PACK2 



I 1 



SAVE INDEX 1 
SET UP WORD INDEX 
SET UP STORE INOEX 
SET UP SHIFT INDEX 
PICK UP SHIFT INSTRN 
SET IN ROUTINE 
PICK UP 2N0 HALF WO 
SET IN C REG. 
PICK UP 1ST HALF WO 
POSITION 
PACK A ANO 
STORE CONVERTEO WO 
MODIFY STORE INDEX 
MODIFY WORO INDEX 
MODIFY SHIFT INDEX 
GO CONVERT NXT WCRD 



8B704770 

8B704780 

8B704790 

8B704800 

8B704810 

8B704820 

8B704830 

8B704840 

8B704850 

8B704860 

8B704870 

8B704880 

8B704890 

8B704900 

8B704910 

8B704920 

83704930 

8B704940 

8B704950 

8B704960 

8B704970 

6B704980 

8B704990 

8B705000 

8B705010 

8B70S020 

8B705030 

8B705040 

8B7050!>0 

8B705060 

8B705070 

8B705080 

8B705090 

8B705100 

86^05110 

8B70512O 

8B70S130 

8B705140 

8B7051SO 

887^5160 

8B705170 

8B705180 

8B705190 

8B705200 

8B705210 

8B705220 

8B70S230 

8B70S240 

8B70S250 

8B705260 

8B705270 

8B705280 

6B705290 

8B70S300 

8B705310 

88705320 

8B705330 

88705340 

8B705350 

8B705360 

8B705370 

8B705380 

8B705390 

8B705400 

86705410 

8B70S420 

8B705430 

88705440 
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PAGE 



08B7-0 
4A 



O 



OOOOOOOOOOOOO O O O O O O o o o o O 



F 



oc ccccccocccoc cccccccoccccco 



c o c c c c 



) 



IBM MAINTENANCE OUCNOSTIC PROGRAM FOR THE 1800 SVSTEM 
OIMAL INITIAL LOAOER (CAROI 



C160 
0161 



0162 
0163 



7101 
70ED 



6iCA 

coc* 



MOX 
MOX 



0164 00 86000*16 

0166 4802 

0167 80CC 



SUM 



1 1 

PACK1 



MODIFY FOR NXT GROUP 
GO CONVERT NXT GROUP 



THIS ROUTINE PERFORMS THE CHECKSUM 



0168 

0168 
C16S 
016/ 
0166 00 
016D 
016E 00 
C17C 00 
0172 00 

0174 

0175 

0176 



7201 

70FA 

8GC9 

4C180170 

3508 

4C00OODF 

65000000 

4C0000E4 

1084 

1088 

108C 



0177 
0178 
0179 
017A 
0176 
017C 
017D 00 
017F 
0180 00 

0182 

0183 

0184 

0185 00 
0187 00 
0189 
018A 
0188 

018C 


















FhFO 

0003 

7100 

402A 

1010 

COAC 

74000128 

7003 

74FF01A4 

700A 

C0A7 

F0F3 

4C1801BF 

7401012e 

C0A1 

1801 

4820 



016C 
0180 00 
018F 00 
0191 00 
0193 00 
0195 00 

0197 

0198 00 
019A 
019C 00 
0190 
019E 00 
C1A0 U 



7002 

4C00000C 

740101A1 

678001A1 

C70000B6 

970000BS 

1803 

0400026A 

4076 

C4000269 

E009 

04000269 

70EC 



01A1 0000 

01A2 0007 

01A3 0141 

01A4 0007 



LOX 

ID 

A 

BSC 

A 



2 -54 

COC 
L2 IN+54 
C 

RESN 



SET DATA INOEX 
GET CARD COUNT 
SUM OATA WORD 
SKIP ON CARRY 
ADO 1 



*•*!:******♦♦***»***•♦»***♦•••♦♦♦♦*•♦•♦♦• 

ORS 360 CARO 11 
•♦♦♦***»♦♦»♦*♦**♦♦»♦*♦*»*♦,♦♦***,„„, 



OATE 
EC NO. 



O4N0V66 
♦ 15233 



MDX 2 1 

MOX SUM 

* RESN 

6SC I PACK4,« 
W3508 DC /3508 

BSC I GEN3 

PACK4 LDX LI 

BSC L GEN3+5 
SHIFT SLT 4 

SLT 8 

SLT 12 

» THIS SECTION SERVICES THE END CARO 



SKIP WHEN DONE 

CONTINUE 

AOO 1 

BRANCH IF CHECKSUM OK 

CHECKSUM ERROR 

GO REREAO CARO 

RESTORE INOEX 1 

RETURN TO KAIN LINE 

SHIFT 4 

SHIFT 8 

SHIFT 12 



KFFFO OC 



K3 

END 



EN01 



DC 

MDX 

8SI 

SLA 

STO 

MOX 

HOT 

MDX 

MOX 

LO 

EOR 

BSC 

MDX 

LD 

SRA 

BSC 



/FFFO 

3 
I 

WRITE 

16 

AORS 

SCID.O 

END1 

TEST.-l 

END2 

SCIO 

K3 

LAST,*- 

SCIO.l 

SCIO 

1 

z 



CONSTANT 

CONSTANT 3 

SKIP IF NO DATA TO WRITE 

GO hRITE DISK 

CLE^R ACC 

CLEAR LOC ADRS 

SKIP IF StCTION 1 

SKIP IF ALL H-TESTS 

PICKUP SECTION ID 
CHECK FOR SECT 3 
BRANCH IF 4TH SECT 
ADO 1 TO SECT INO 
PICKUP SECT INO 
CHECK FOR SECTION 1 
SKIP IF SECTION 1 



••••♦•••••♦♦********»****»»*******.„„;;„; ### 

ORG 396 CARD 12 

•♦*•••••»»♦••♦**♦♦•♦♦♦*•♦*,♦,******„„„, 



END 2 
END3 



• 

REF 

K7 

K321 

TEST 

• 



MOX 

BSC 

MDX 

LOX 

LO 

S 

SRA 

STO 

BSI 

LO 

ANO 

STO 

MOX 

DC 
OC 
OC 
OC 



EN03 
L GEN1 
L REF.l 
13 REF 
L3 USTB 
13 UST8-1 

3 
L OSK 

SEFK 
I DWRT*1 

KFFFO 
L OKPT+1 

END2 



7 
321 

7 



BRANCH IF NOT SEC 1 
GO INPUT NXT SECTION 
INCR TABLE REF 
SET XR • REF. 
PICK UP NEXT CVL 
SUB PREVIOUS CVL 
REHCVE SECTOR BITS 
SET SEEK CCUNT 
SEEK TO NEXT CYLINOR 
ZERO WRITE ICCC 
•SECTOR COUNT 
• 

EXIT 

USE TABLE REFERENCE 
CONSTANT 
WRT/RD CONSTANT 
NUHBER OF HEADER TESTS 



THIS ROUTINE 
RECORO. 



SETUPS TO WRITE A OISK 
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88705450 

88705460 

88705470 

8B705480 

88705490 

8B705S00 

8B705510 

88705520 

8B705530 

8B705540 

8B7055S0 

8B705560 

8B705570 

8B70S580 

88705590 

8B705600 

8B705610 

8B705620 

8B705630 

8B705640 

8B705650 

8B705660 

8B705670 

88705680 

8B705690 

8B705700 

86705710 

8B705720 

8B705730 

88705740 

8B705750 

8B70ST60 

8B705770 

8B705780 

8B705790 

8B705800 

6B705810 

86705820 

88705830 

8B705840 

86705850 

8B705860 

8B705870 

8B70S880 

8B705890 

88705900 

8870S910 

86705920 

8B70S930 

86705940 

86705950 

88705960 

8B705970 

86705980 

88705990 

88706000 

86706013 

86706020 

86706030 

8B706040 

8B706050 

8B706060 

8B706070 

8B706080 

8B706090 

88706100 

86706110 

88706120 
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IBM MAINTFNANCE OUCNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL INITIAL LOAOER ICARDI 






00 



01A5 
01A6 
01A7 
01A9 00 
01AB 
01AC 
01AE 
01AF 



00 


3 



0180 

C1B0 00 
0162 
01 B3 
G1B4 00 
01 B6 00 
01B8 00 
01BA 
01BB OC 
01 BO 03 



0000 

6101 

6D00044C 

C4000269 

1883 

C4000267 

1803 

1083 



04000267 

4072 

COEF 

0400044C 

4400023F 

74010269 

6100 

6000012F 

4C8001A5 



01BF 
01C0 00 
01C2 00 
01C4 
01C5 00 
01C7 
01C8 00 
01CA 



1010 

D400012A 

C400012B 

F0B3 

4C180291 

3509 

4C0000OC 

4038 



01CB 00 C40000BC 
01CD 1*03 
01CE 00 0400026A 
0100 4045 
01D1 00 C4000267 
0103 F0A3 



0104 

0104 00 

0106 

0107 00 
0109 00 
010B 
01 DC 00 
01 DE 
01DF 00 
01E1 00 
01E3 00 
01ES 00 
01E7 00 



04C00267 

6303 

6F00044C 

C4000269 

E09B 

04000269 

4046 

6700ABCD 

6F00044E 

C40000BB 

0400044F 

4400023F 



01E9 4019 
01EA 00 C40000B6 
01EC 1803 
01E0 C07C 
01EE 4027 



CATE 
EC NO. 



WRITE OC 
LOX 
STX 

LO 
SRT 

ID 

SRA 

iLT 

**********# 

ORG 

************ 

STO 

BSI 

LO 

STO 

BSI 

MOX 

LOX 

STX 

BSC 




1 1 

LI IOA 
L OWRT+1 

3 
L DRD+1 

3 

3 
«••**«****** 

«32 

************ 

L CRD+1 

REAO 

K321 
L IOA 
I WkIT 
L OWRT+l.l 

1 
LI WDCT 
I WRITE 



ENTRY PCINT 

SET UP FOR 1 WORD 

• OISK REAO 

SETUP T4E OISK REAO 

♦IOCC TO PEAO THE 

•SECTOR 10 OF THE 

•SECTOR TO BE WRITN 

• 
********♦*******»*»**, 

CARO 13 
*•*******•**♦»*»»*»*,* 
* 
GO REAO OISK SID 

SEI UP WOP.O COUNT 
♦FOR WRITE TABLE 
GO 1.RITE THE OISK 
ADO 1 TO SECTOR CNT 
SET OUTPUT AREA XR 
CLEAR OUTPUT WC 
EXIT SUBROUTINE 



THfc FOLLOWING ROUTINES ARE PERFORMED ON 
COMPLETION OF WRITING DIMAL ON DISK. 

AST SLA 16 CLEAR ACC 

fn° !" cr?n CL£AR LAST CAR S" 

° L Sc '0 PICKUP SECT INO 

«<r ■ ?' , CHECK F0R *TH SECT 

W3509 nr ,*Zh*~ BRANCH ,F 4TH SECTOR 

air i ' 0,MAL NCT *<-L LOADEO 

,,., ffC L GEN1 CONTINUE INPUT 

AST1 BSI HM SEEK TO HOME 

THIS ROUTINE WRITES THE MAINTENANCE 
PACK 10 CA8CD) ON THE HISTORY TRACK, 



LD 
SRA 
STO 
BSI 

LO 

ANO 



UST8+6 

3 

OSK 

SEEK 

DRD+1 

KFFFO 



*********** ************ 

ORG 468 

*********** ************ 

STO L DRD+1 
LOX 3 3 

STX L3 IOA 

LD L DWRT*1 
ANO KFFFO 

STO L DWRT+1 
BSI REAO 

LDX L3 /ABCD 

STX L3 OUT 

LD L UST8+5 

STO L GUT*1 

BSI L WRIT 



PICKUP SECTOR ADORS 
REMOVE SECTOR BITS 
SET IN SEEK IOCC 
GO SEEK TO HIST TRAK 
SET READ IOCC FOR 
•SECTOR 

»**•>****♦*******»*,*** 
CARD 14 

•A****************,**, 
* 
SET WORD COUNT TO 3 

SET OISK WRITE IOCC 
♦FOR SECTOR 

• 

READ HIST TRK SEC 
SET HAINT. PACK ID 
•IN OUTPUT AREA 
GET LAST USEO CYL 
SET IN OUTPUT AREA 
WRITE 10 ON HIST TRK 



THIS ROUTINE WILL INPUT THE LOADER* 
WHICH IN TURN INPUTS THE DOM LOADER^ 
ORGANIZER PROGRAM 



SEEK TO HOME 
PICKUP LOADER CYL AO 
REMOVE SECTOR BITS 
SET IN SEEK COMMAND 
SEEK TO LOAOER CYL 



BSI 


HM 


LD L USTB 


SRA 


3 


STO 


OSK 


BSI 


SEEK 



PART NO. 2242251 
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88706130 

8B706140 

8B706150 

8B706160 

8B706170 

8B706180 

8B706190 

8B706200 

86706210 

88706220 

B8706230 

86706240 

86706250 

86706260 

8B706270 

88706280 

8B706290 

88706300 

8B706310 

8B706320 

8B706330 

8B706340 

8B706350 

66706360 

8B706370 

8B706360 

8B706390 

8B706400 

8B706410 

8B706420 

88706430 

8B706440 

8670645C 

8B706460 

8B704470 

8B706480 

86706490 

8B7O6500 

8B706510 

86706520 

8B706530 

8B706S40 

8B7C6550 

8B706560 

88706570 

88706580 

8B"»06590 

8B706600 

8B706610 

88706620 

8B706630 

8B706o40 

8B706650 

8B706660 

8B706670 

8B706680 

8B70669O 

8B706700 

8B706710 

86706720 

8BT06730 

8B706740 

8B706750 

8B706760 

3B706770 

88706780 

8B706790 

8B706800 



04N0V66 
415233 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THC 1800 SYSTEM 
DIMAl INITIAL LOADER (CARD! 



OlEF 00 6TOOD0AA 
01F1 6B74 



C1F2 

01F3 
0}F4 

01F5 
01F6 
OIF? 

01F8 



01F8 
01F9 00 
01FS 
01FC 00 
OlFE 00 

0200 

0201 

0202 



C080 
D300 
C072 
E8AC 

0070 
4020 



1010 

o«oyoooc 

C005 

C400000D 

4C000OAD 

0000 

0000 

0000 



0203 

0204 

0205 

C206 

020? 

0208 

020A 

020B 

C20C 

0200 

020E 

020F 

0210 

0211 

0212 00 

021* 













00 



















0000 
6304 
086S 

OOOE 

1004 

4CA80203 

73FF 

7003 

C008 

350A 

70F5 

0854 

0858 

1001 

4000210 

70F0 



0215 0000 



0216 

021? 
0218 



0000 
0854 

1002 



0219 00 4C100210 
0218 350B 

021C 



021C 





70FA 


0210 





084C 


02IE 





0840 


02iF 





1001 



mzti 00 4C 1002 IE 

0222 0848 

02, i 00 4C8O0216 



022 5 
0224 
022? 
0228 
C229 



COOO 
6815 
6303 
0843 
100? 



02 Z A 00 4U0O22E 



DAT* 
EC *0. 



04NOV66 
41S233 



LDX L3 /OOAA SET XR - INPUT ADDRS 

STX 3 DRD SET ADRS IN READ 00 

LO K321 PICKUP «0 WORD COUNT 

STO 3 SET IN IOC HEX ODAA 

LD ORD*l PICKUP READ COMMAND 

OR K7 SET SECTOR BITS « 7 

STO DR0*1 RESTORE READ COMMAND 

BSI READ GO INPUT LGAOER 
******* **»*»*•*»**«**•*»***••****»*, »,4,4,* #l# 

ORG 504 CARD 15 

ft*************** ************ ****«••*•**.»***** 

SL* 16 SETUP INIT LDR CALL 

STO L /C SET IN LOC HEX C 

LO EDWD*1 PICKUP DRIVE A.C. 

STO I fO SET IN LOC HEX D 

BSC L /ODAD BRANCH TO LOADER 

DC CE HISTORY TRACK 

DC DRIVE AREA CODE 

DC OUTPUT DEVICE 



EDWD 



» 
» 
He! 



THIS ROUTINE SEEKS THE 2310 TO ITS 
HOME POSITION 



DC ENTRY POINT 

LDX 3 4 SET TRY INDEX " 

H « XIO DSNSR SENSE/RESET STATUS 

STO SKSf SAVE STATUS 

SLA 4 POSITION HUME BIT 

8SC I HM,*2 EXIT IF DISK HOME 

MDX 3 -1 SKIP IF 3RD TRY 

NO* hM2 GO ISSUE SEEK CMNO 

LO SKST RETRIEVE LAST DSW 

V<350A DC /350A SEEK HOME ERROR 

MOX HM»1 TRY AGAIN 

XIO HOKE SEEK TO HOME 

XIO DSNS SENSE DISK STATUS 

SLA I POSITION OP CP BIT 

BSC L HH2»l t - BRANCH IF NOT DONE 

KDX HM1 GO CHECK HOME BIT 

DC SEEK DSU SAVE LOC 



HM2 



SKST 
SEEK 



THIS ROUTINE SEEKS 2310 TO DESIRED CYL 



DC ENTRY PCiNT 

XIO DSNS SENSE DISK STATUS 

SLA 2 POSITION DSW 

BSC L SEEK1,- BRANCH ON READY 

M3503 DC /350B DISK NOT READY 
so************** ***»***»*» **•********»*»#**»* 

ORG 540 CARD 16 



MOX 
SEEKl XIO 
XIG 
SLA 
BSC 
XIO 
BSC 



1 



SEEK+1 

DSK 

OSNS 

1 

SEEK1«1.- 

OSNSR 

SEES 



TRY AGAIN 
SEEK OISK 
SENSE STATUS 
POSITION DSU 
6RAKCH TILL DONE 
RESET DSM 
EXIT 



• 
READ 



THIS ROUTINE READS THE DISK 



DC 
STX 
LDX 
XIO 

SLA 





READ2«1 

3 

DSNS 

2 



BSC L REA01,- 



ENTRV POINT 
SAVE IHOEX REG 3 
SET OP TRY COUNTER 
SENSE OISK STATUS 
POSITION DSM 
BRANCH ON READY 



PART NO. 2242251 
PAGE A 



88706818 

83706320 

88706830 

88706840 

88706850 

8B7 06860 

88706870 

8B706680 

88706890 

88706900 

88706910 

88706920 

88706930 

83706940 

88706950 

88706960 

83706970 

88706980 

8B706990 

88707000 

88707010 

83707020 

88707030 

88707040 

88707050 

68707060 

88707070 

88707080 

8B707090 

68707100 

88707110 

88707120 

88707130 

80707140 

8B70715© 

88707160 

88707170 

88707180 

88707190 

88707200 

8B707210 

88707220 

88707230 

86707240 

88707250 

88707260 

88707270 

88707280 

88707390 

88707300 

8B707319 

88707920 

SB70733© 

8B70734© 

88707350 

887073*0 

88707370 

88707380 

88707390 

88707400 

68707410 

88707420 

38707430 

88707440 

88707450 

88707460 

88707470 

86707480 



83 



ID 



, 

c 
c 

°i 

I 

Cj 



08B7-0 

6 



o 



o 



1 
o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL INITIAL LOADER JCAIUSt 



02? C 
0220 

022 E 
022F S 

0230 

0231 00 

0233 

0234 

0235 00 
0237 
0238 
0239 

023 A 
0238 





a 



00 



0230 00 



350C 

70F9 

083? 

C83C 

1001 

400022? 

083 A 

E039 

4C180238 

73FF 

70EF 

3500 

70EC 

67000000 

4C800225 



W3S0C DC 
MOX 

READ1 XIO 
XIO 
SLA 
BSC 
XIO 
AMD 
BSC 
MOX 
MDX 

W3S0D DC 
MDX 

READ2 LSX 
BSC 



13 
I 



/350C OISK NOT READY-READ 

READ+2 TRY AGAIN 

DRD READ DISK 

OSNS SENSE STATUS 

1 POSITION 8S*S 

REABi+1,- BRANCH TILL HOT BUSY 

DSNSR RESET DSW 

DSNSR CHECK FOR ERROR 

REA02.+- BRANCH IF NO ERROR 

-1 SKIP }F 3 TRIES 

R6AO*3 TRY AGAIN 

/350D DISK READ ERROR 

REA0»2 REPEAT 

RESTORE XR3 

READ RETURN TO USER 



THIS ROUTINE WRITES THE DISK AND PER- 
FORMS A MODULO 4 CHECK 



023F o aaoo 

0240 



0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

024A 00 

024C 

024D 

024 E 00 
0250 
0251 
0252 
0253 
0254 
0255 
025* 
025? 
0258 
0259 
025 A 00 
02SC 
0250 

025 E 
02 SF 
0260 
0261 00 
0263 





o 

















8 















0828 

1002 

481C 

7002 

350E 

70FA 

6103 

0820 

0823 

1001 

4C1 00248 

0821 

E020 

4C180254 

7 IFF 

70F5 

350F 

70ED 

C014 

F01* 

D012 

0810 

0813 

1001 

4C100256 

COOC 

FOOE 

COOA 

saoE 

EOOO 

4C98023F 

70«C 



* 
• 

WRIT DC ENTRY POINT 

*••••*•*•*•**•*•••****•*•*«*,„ #♦**#»**♦#♦#♦» 

ORG 5?6 CARD 17 

•ft********************************* *••*«•*•** 



XIO 
SLA 
BSC 
MOX 

W3S0E OC 
MDX 

WRIT1 LOX 
XIO 
XIO 
SLA 
BSC 
XIO 
AND 
BSC 
MDX 
MDX 

H350F DC 
MOX 

WRIT2 LO 
E08 
STO 
XIO 
XIO 
SLA 
8SC 
LD 
EOR 
STO 
XIO 
AND 
BSC 
MOX 



DSNS 
2 

WRIT1 

/350E 

WRIT+I 

3 

DWRT 

OSNS 

1 

WRIT1+2,- 

OSNSR 

DSNSR 

WRIT2,*- 

-1 

WRITl+t 

/350F 

WRIT*2 

D«RT*1 

DSNS 

DWHT*1 

DWRT 

DSNS 

1 

WRIT2*4s- 

DWRT+1 

DSNS 

DWRT* 1 

DSNSR 

DSNSR 

WRIT,*- 

W350F-2 



SENSE DISK STATUS 

POSITION DSU 

SKIP IF NOT READY 

OK CONTINUE 

DISK NOT REABY-HRITE 

TRY AGAIN 

SET TRY INOEX 

WRITE DISK 

SENSE STATUS 

POSITION DSM 

BRANCH TILL BO« 

RESET 0SW 

CHECK FOR ERROR 

BRANCH IF HO ERROR 

SKIP IF 3 TRIES 

TRY AGAIN 

DISK WRT/MOD 4 ERROR 

REPEAT 

SETUP MODULO 4 ICCC 

SET IN WRITE ICCC 

DO PODULO 4 CHECK 
SENSc STATUS 
POSITION DSM 
SPIN TILL NOT SUSY 
RESTORE WRITE 10CC 

SET IN ICCC 
RESET DSW 
CHECK FOR ERROR 
RETURN TO USER IF OK 
ERROR - BRANCH 



0264 
02*4 



0264 OOCA 

0265 0404 
026* 044C 
026? 0*03 

0268 

0269 
026A 



ORG 612 CARD IB 

8SS E 



HOKE 


OC 


202 


SEEK HOME 10CC 




DC 


/0404 




0RD 


DC 


IDA 


READ DISX IOCC 




OC 


/060J 




CURT 


OC 


IOA 


WRITE DISK IOCC 




OC 


•0500 




DSK 


OC 





SEEK OISK IOCC 



lc T NO. ttW 



PART NO. 2242251 

PACE feA 



88707490 

8B707500 

8B707S10 

6B7O7520 

8B707530 

88707540 

8B707550 

8B707560 

8B707570 

88707580 

88707590 

86707600 

8B707610 

§8707620 

88707630 

83707640 

8BT07650 

8B707660 

88707670 

88707680 

88707690 

86707700 

88707710 

88707720 

887Q7T3© 

8B70774© 

88701750 

8BT07760 

8B707770 

8B707760 

8B707790 

8B707800 

8B707810 

86707820 

88707830 

8B707840 

8B7078SO 

86707860 

88707870 

8B707880 

SB707890 

88707900 

8S707910 

88707920 

88707930 

88707940 

88707950 

88707960 

88707970 

88707980 

88707990 

83708000 

68708010 

88*06020 

88708033 

88708040 

88703050 

66708060 

8B708070 

88708080 

88708090 

88708100 

88708110 

88708120 

88708130 

8870*140 

8870S150 

867081*0 



PROS 10 
PACE 
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0[ 



( 

( 
( 
c 
c 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR W E 1800 SYSTEM 
DIMAL INITIAL LOACER ICAROI 



02* B 
026C 
0260 
026E 
026F 



0270 00 
02 72 
0273 
C274 
0275 
0276 
0277 
0278 00 
027A 00 
02 7C 
0270 












0400 
0380 
0700 
87*0 
0701 

C40003E8 

6009 

700t 

7G0£_ 

6007 

7003 

1000 

4CO0O0E7 

4CO00OEF 

3000 

70FF 



DC 
OSNS OC 

OC 

OSNSR OC 

OC 

CKAO 



/0400 
/0380 
/07C0 
/8740 
/0701 



SENSE DISK ICCC 
SENSE/RESET OSK IOCC 



027E 1010 
027F 00 040001A1 
02S1 00 D400012B 
0283 00 D4000129 
0285 00 D400012F 
0287 C0E1 



0288 

0288 00 
028A 
C288 00 
C280 00 
028F 00 

0291 

0292 00 
0294 00 
0296 00 

0298 

0299 
029A 
029A 
029B 
C29C 








E4000177 

B90E 

C40001A2 

D40001A4 

4C0000D4 

0808 

F400002C 

4C2001CA 

44000203 

3510 

70FE 

0000 

0000 

0740 

0000 



BATE 
EC NO. 



04N0V66 
415233 



10 1 IN 

CMP K3000 

MOX CKA01 

*0X CKAD2 
CKAD1 CMP K70FF 

>-0X CKA02 

NOP 

BSC I GEN4-3 

CKA02 BSC I GEN9 
K3G0O OC /JOOfr 

K70FF OC /70FF 

• 

» PROGRAM RESTART OPERATION. 

RSTRT SLA 16 

STO L REF 

STO L SCIO 

STO L AORS 

STO I WDCT 
LO Dl,'RT*l 



PICK UP STARTING AOR 

CK ADRS FOR LEGAt 

GREATER 

AORS OK-LESS 

CK ADRS FOR- LEGAt 

AORS OK 

IGNORE CARD 

AORS IS OK-MCVE DATA 

AORS CK CONSTANTS 



CLEAR PPOGRAM CONTRCL 
•SWITCHES 

* 

PICKUP k.-UTE CCHMAND 



0R G 648 CARD 19 



CKPT 



AND 
STO 
LO 
STO 
BSC 
»I0 
EOR 
BSC 
BSI 
W35I0 OC 
MOX 
8SS 
OC 
DC 
END 



DESW 



KFFFO 

0WRT*1 

K7 

TEST 

CI', 

OESM 

KFFFF 

LAST1.2 

HM 

/3510 

W3510 





/0740 





SET SECTOR BITS TO 

REPLACE COMMAND 

GET CONSTANT 7 

SET IN HEADER TEST SM 

GO INPUT OIMAL 

CK FOR PT L0*0 FROM CARD 

PT IF SMS * FFFF 

BRANCH IF NORM CARD 10AD 

RETIRN ARM TO HCME 

PT DIMAL LOADED 

ENO OF PT LOAD TRAP 

SENSE OE SWITCHES ICCC 

8870859 



PART NO. 2242251 
PACE ? 



8B708170 

8B708180 

8B7Q8190 

8B708200 

8B708210 

8BTQ8220 

8B708230 

8B708240 

8B708250 

88708260 

8B708270 

8B708280 

8B708290 

88708300 

8B708310 

8B708320 

8B708330 

88708340 

8B708350 

88708360 

8B708370 

88708380 

8B708390 

8B708400 

6B708410 

88708420 

80708430 

8B708440 

88708450 

68708460 

8P708470 

8B708480 

6B7064V 1 ) 

8B708500 

6B70651O 

8B708S20 

8B70eS30 

63708540 

8870855C 

6B708560 

88706570 

88708580 

8B708590 

68708609 



PROG 10 
PAGE 



') 



0887-0 

7 



o 


i 


o 


> 


a 





& 


a 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL INITIAL tOADEft (CARDI 

CROSS REFERENCC LISTING 



PART NO. 2242251 
PAGE 7A 



SYMBOL 

ADRS 

BRN 

COC 

CDCT 

CK 

CKAC 

CKAOt 

CKAD2 

CKPT 

CK1 

DESW 

DRD 

OSK 

OSNS 

OSNSR 

OSW 

0SW1 

DWRT 

EDIT 

E0IT1 

EDIT2 

EDITS 

EDSW 

EDWC 

END 

ENOCK 

END1 

END2 

END3 

FILL 

GEN 

GEN1 

GEN3 

GEN4 

GEN5 

GEN6 

GEN7 

GEN8 

GEN9 

HBCV 

HBCV1 

HBCV 2 

HBCV3 

HBCV4 

HBCV 5 



HM1 
HH2 
HOME 
IN 

INT 
INT1 
INT10 
INT 2 
INT 3 
INT4 
INT 5 
INT6 
INT 7 
INT 8 
INT9 
IOA 
IPL1 



DATE 
EC NO. 



VALUE 

0129 

0018 

0128 

001E 

00B2 

0270 

0275 

027A 

029! 

00B3 

029A 

0266 

026A 

026C 

026E 

OOIC 

005C 

0268 

0024 

002A 

L038 

004F 

005E 

0200 

0179 

0122 

0183 

0180 

018F 

011F 

00D4 

OODC 

OODF 

OOEA 

0CF5 

OOFC 

010B 

010F 

OOEF 

005F 

0062 

0069 

0073 

0078 

007A 

0203 

0205 

020F 

0264 

03E8 

0089 
0093 
0000 

009B 
0090 
00A8 
OOBE 

r-oco 

00C4 
00C9 
OOCB 
044C 
0000 



REFERENCES 

OOEA, OOEF, 0100, 010F.017C, 0283 

OODD, 00E4, OOF 7,0163 

0009 

MA 3 

OOED 

0273 

0274, 0276 

01C5 

OOAA 

0291 

°it£ , i! 1B0,0l0l,0ID4 ' » : l»°lF*t01F6,022E 

0090,0008, 0198, 01CE.01ED, 0210 

0210, 0217, 021 E, 0228, 022F, 0240, 0248, 0255. 02*8. 025D 

°205,0222,0233.0234,024C,02,0 025 ' oilo •° 2 - 8 ' 0250 

0001, 0004, 0024, 002A 

0031, 00 3B 

25?:o 2 9 5i:oT8?:228A 8,0109 ' C10C - OW7 ' 025 *' " 6 ' 02 "' 

0017, 0037, 0056, 0058 

002C, 004E 

0034,0065 

0040 

0028, 00 3E, 0046 

004A, 0089, 003C, 0093, 01FB 
0125 

OOfcC 

01 7F 

0182, 01A0 

018C 

0101 

00C8, 028F 

0180- 01C8 

00E9,0145,016E,0172 

OOE5,011E,0278 

OOFB 

OOFI, 0118,0127 
0110,0121 

027A 
0038 
0085 
0070 
0077 
0071,0074 

009B, 0004, OICA.01E9, 0208, 0206,0296 

020B.0212 
0C?5,0097,020F 

•}»:s?™:s.%s?asrASj?s- oio *- o,oi -°"'- M »- 

009 A 

OOCO.OOCE 

00A7 

00A4.00BI 

OOAB.OOAF 

OOCA 

0002 

OOCF 

00C3.00D1 

0000, 0013, 00A1.00A6.O1A7.01B4.0107.0266.0268 
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IFL2 
IPC 3 

KEOOO 

fcf-FFF 

KFFFO 

KOFOO 

K0100 

K3 

K3OG0 

K320 

1321 

K? 

K70FF 

K8 

LAST 

LAST1 

LCD 

ID 

LOC 

1ST 

OUT 

PACK 

PACK I 

PACK2 

PACK3 

PACK* 

PREP 

FO 

RCCC 

R0CC1 

R0CC2 

RDEC 

RUPAC 

REAC 

READS 

RSAD2 

REF 

RESN 

RSN 

RSTRT 

SAVE 

SAVE1 

SCIC 

SEEK 

SEEK1 

SHIFT 

SID 

SKST 

SNSW 

SUM 

TEST 

USTB 

; j oc? 

aSIt 

WRITE 

W.ITl 

UR2T2 

«S0A 

W350E 

W350C 

W3500 

*3S0E 

W350F 

W350C 

W3501 

W3502 

W3503 

h3504 



JUTE 
FX NO. 



0001 

0000 

0059 

0020 

0177 

0128 

001F 

0178 

027C 

0120 

U1A3 

01A2 

0270 

0003 

01BF 

01CA 

012A 

01E9 

0086 

014A 

0«4£ 

01<.C 

OHF 

0150 

0159 

0170 

0011 

0132 

0136 

013A 

OKI 

OCSA 

con 

0225 

0^?E 
023B 
01A) 
0134 
C130 
027E 
0087 
0086 
0128 
0216 
0210 
0174 
044D 
0215 
00B4 
0164 
01A4 
00B6 
012F 
02»F 
01A5 
0246 
0254 
0200 
0216 
022C 
0239 
0244 
0252 
OOOF 
0036 
0055 
0057 
O0A6 



0002,0010 

0006 

0043 

0051,0292 

0190,0103,0108,0288 

0124 

0000 

0184.0IC4 

0272 

0116 

01B3.01F2 

OIF 5, 02 88 

0275 

30C9 

O0E1.O185 

0294 

00E0.014A.01C0 

0061, 00 ?E, 0083 

013F 

0039, 0041, 004 8, 004F.OC81. 0100, 01E1.01E5 

00E3 

0161 

01SF 

0152 

014C0168 

OOOC 

0139 

OOOF, 0147.0149 

013C 

014B 

0C29 

0000,0007 

009F, 0162, 01DE, OIF 7. 0220. 0238.023A, 0230 

022*. 0231 

0226,0235 

018F.0191.P27F 

0144,0167, C16A 

0105,0136,0134 

0018 

0067,0078,0079 

0068,006A,007A 

OOF 0,01 70, 01 83, 01 87,0 189, 01C2, 0281 

009D, CODA, 019 A, 0100, 01E6.021C, 0223 

0219,0220 

0150 

0000, COCO, C0C8 

0206. 020C 

00AE.006F 

0169 

0160.0280 

00SB,008E,00C 4, 0006, 0CF5, 0193, 0195, 01CB,01E3,01EA 

0113,0115,0188,0285 

01B6,01E7,024 5,02 5 3,0261 

0117,017A,01B0 

0243, 024A, 0251 

024E.025A 

V'OA 

3508 

350C 

3500 

350E 

350F.C263 

3500,0005 

3501, 0033,004 5,0053 

3502.0025 

3503, 002F 

3504 
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H3S0S 


OOAO 


3509 


N3S06 


0146 


3506.013? 


W3S07 


0148 


3507, 0142 


M3500 


0160 


3508 


W3509 


01C7 


3509 


U3510 


0290 


3510,0299 


ZERO 


012C 


eOFD.0119.011F 
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DATE 
EC NO. 



0000 



oooc 


30FF 




0001 


OCOO 


OOOC 


0003 


OCOO 


0010 


0005 


OCOO 


OOOE 


0007 


F400 


OOOE 


0009 


4820 




OOOA 


6016 




OOOB 


6005 




OOOC 


0028 




OOOD 


1601 




OOOE 


0003 




OOOF 


1700 




0010 


0800 




0011 


1703 




0012 


F400 


0010 


0014 


3001 




0015 


6001 




0016 


OCOO 


0010 


0018 


F400 


0010 


001A 


4820 




001 B 


-6012 




001C 


6023 




001D 


0000 




001E 


0000 




001F 


0000 




0020 


0000 




0021 


0000 




0022 


0000 




0023 


6028 




0024 






0028 


OCOO 


0038 


002A 


OCOO 


0034 


002C 


OCOO 


0036 


002E 


F400 


0036 


0030 


4820 




0031 


603E 




0032 


602C 




0033 


0000 




0034 


0000 




0035 


1601 




0036 


0003 




0037 


1700 




0038 


0800 




0039 


1703 




003A 


OCOO 


3038 


003C 


3002 




003D 


6028 




003E 


OCOO 0036 


0040 


F400 0038 


0042 


1801 




0043 


4820 




0044 


603A 




0045 


OCOO 0038 


0047 


D C400 003D 


0049 


3 D400 0023 


004B 


3 6000 





28FEB66 
415120 



* CARD A ni 8B800020 

CARD 01 8B800030 

0RG ° 8B80004D 

* LOADER SHOULD BE IN LOCS. 00 - 28 88800056 

* "f ™ AT B IS 30FF * PRESS START MSOOOio 

WAIT "I —BEGINNING OF LOADER. 8B800070 

XI ° L B1 READ ONE CARD INTO LOC. 28 8B800080 

XIO L K0800 RESET DSW 8B800090 

Al XIO L K0003 SENSE DSW FOR 1442 8B800100 

EOR L K0003 CHECK BITS 14615 ONLY 8B800110 

BSC Z SKIP BITS 14E15 ONLY 8B800120 

LDX El CONTINUE DSW ANALYSIS 8B800130 

LDX Al CARD IS BEING READ 8B800140 

B1 DC /0028 READ CONTROL 8B800150 

„n™, P£ /1601 1442 » 8/8 FORMAT 8B800160 

K0003 DC /0003 SENSE DSH CONTROL 8B800170 

DC /1700 WITHOUT TURN OFF 8B800180 

K0800 DC /0800 SENSE DSW CONTROL 8B800190 

DC /1703 TURN OFF REQUEST 8B800200 

01 EOR L K0800 RETURN DSW WORD TO ACC. 8B800210 

WA i T 'I **ERR. SEE ACC. DSW NOT RIGHT 8B800220 

LDX /l TRY AGAIN 8B800230 

E1 XI ° L K 0800 SENSE AND TURN OFF DSW 8B800240 

EOR L K0800 CHECK FOR BIT 4 ONLY 8B800250 

*£ Z SKIP OPERATION COMPLETE 8B800260 

LDX Dl DSW ERROR CONDITION 8B800270 

J;P X ' 23 8B800280 

nr L„„ SPACE FILLER 8B800290 

DC '°0°0 SPACE FILLER 8B800300 

?<; /000 ° SPACE FILLER 8B800310 

P°. /000 ° SPACE FILLER 8B800320 

DC /°°00 SPACE FILLER 8B800330 

??,„ '°° 00 SPACE FILLER 8B800340 

# LDX /28 GO TO PROG. LOADED 8B800350 

* PARn n? 8B800360 
CARD q 02 

X I0 L K0800 RESET DSW SKS2S5S 

XI ° L B2 READ A CARD INTO /OOOO 8B800400 

A2 XIO L K0003 SENSE DSW FOR 1442 8B800410 

EOR L K0003 CHECK BITS 146.15 ONLY 8B800420 

B SC Z SKIP BITS 14 £ 15 ONLY 8B800430 

LDX E2 CONTINUE DSW ANALYSIS 8B800440 

LDX A2 CARD IS BEING READ 8B800450 

R? ^ ^222 SPACE FILLER 8B800460 

82 °9 /OOOO READ CONTROL £ CONSTANT 8B800470 

„ nnn , ° C 'J 6 ?* 14 * 2 ' 8 1 8 FORMAT 8B800480 

K0003 DC /0003 SENSE DSW CONTROL 8B800490 

DC /1700 WITHOUT TURN OFF 8B800500 

K0800 DC /0800 SENSE DSW CONTROL 8B800510 

n? ym , i\lll TURN ° FF REt > UEST 8B800520 

D2 XIO L K0800 RESET DSW TO ACC 8B800530 

WAIT /2 **ERR. SEE ACC. DSW NOT RIGHT8B8O0540 

R2 L0X /28 TRY AGAIN 8B800550 

E2 XIO L K0003 SENSE DSW 8B800560 

EOR L K0800 CHECK FOR BIT 4 8B800570 

D RA 1 REMOVE NOT READY BIT 8B800580 

°l C Z SKIP OPERATION COMPLETE 8B800590 

L0X D2 DSW ERROR CONDITION 8B800600 

XIO L K0800 SENSE - RESET DSW 8B800610 

* , n , B , CARD 11 WILL START HERE 8B800620 
BLD LD L R2 SET PROG. LOADED TO RETURN 8B800630 

S JP L /23 TO THIS PROG. 8B800640 

^ LDX /OOOO GO TO PROG. LOADED 8B8OO650 

& rADn r,„ 8B800660 

* CARD 03 8B800670 

* TEST FOR XIO OF READ AND SENSE DSW 8B800680 
*-__**, RUN 0NLY QN IpL „„ 8B800690 
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08B8-0 
1 



DATE 
EC NO. 



004C 
OOOO 
0001 
0003 
0005 
0007 



6023 

OCOO 0016 
OCOO 001A 
OCOO 0018 
3003 



A3 

* 



0008 OCOO 001A 
OOOA 3003 



ORG 
LDX 
XIO 
XIO 
XIO 
WAIT 

XIO 

WAIT 





/23 

B3 

K0800 

K0003 

/0003 



L K0800 
/0003 



READ A CARD 

RESET DSW 

SENSE DSW- FOR 1442 
-ACC. HAS DSW. SHOULD BE0003 

IF OK PRESS START 

SENSE AND RESET DSW 
-ACC. HAS DSW SHOULD BE0800 



OOOB 
OOOD 
OOOF 
0011 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
0018 
001C 
001E 
0020 
0021 



OCOO 0016 

OCOO 001A 

OCOO 0018 

F400 0018 

4820 

60 1C 

600F 

0028 

1601 

0003 

1700 

0800 

1703 

OCOO 001A 

F400 001A 

4820 

3003 



LP 



XIO 

XIO 

XIO 

EOR 

BSC 

LDX 

LDX 

DC 

DC 

K0003 DC 
DC 

K0800 DC 
DC 



A3A 



B3 



E3 



0022 600B 

0023 6001 



0024 

OOOO 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

OOOA 

OOOB 

OOOC 

OOOD 

OOOE 

OOOF 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

001A 

001B 

001C 

001D 

001E 

001F 

0020 

0021 



6002 

3004 

601D 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

3004 

6023 

3004 

3004 

3004 

3004 



XIO 
EOR 
BSC 
WAIT 
* 

LDX 

LDX 

* 

* CARD 04 - 

* TEST OF L 

ORG 

LDX 

WAIT 

LDX 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

LDX 

WAIT 

WAIT 

WAIT 

WAIT 



B3 

K0800 

K0003 

K0003 

Z 

E3 

A3A 

/0028 

/1601 

/0003 

/1700 

/0800 

/1703 

K0800 

K0800 

Z 

/3 

LP 
/l 



LOOP FOR TESTING READ CARD 
RESET DSW 

SHOULD READ AS LONG AS 

CARDS IN READER 
SKIP BITS 14615 #BUSY, READY 

BUSY AND NOT READY GET DSW 
RD CARD CONTROL WORDS 

SENSE DSW CONTROL 
WITHOUT TURN OFF 
SENSE DSW CONTROL 
TURN OFF REQUEST 
SENSE AND TURN OFF DSW 
CHECK BIT 4 ONLY 
SKIP OPERATION COMPLETE 
**ERR. DSW WRONG. ACC. HAS 
DSW AFTER AN EOR WITH BIT 4 
GO READ NEXT CARD 
CHANGED TO LDX 28 BY LOADER 



DX FOR LOCATIONS 
/OOOO 
/0002 
/4 

/001D 
/4 



THRU 3F 



**ERR. LDX, IPL CARD-4 



/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/4 

/0023 

/4 

/4 

/4 

/4 



**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

*-*ERR. 

**ERR. 

*<-ERR. 

*«ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

*vERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

**ERR. 

*«-ERR. 

**ERR. 
**ERR. 
**ERR. 
**ERR. 



LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX,' 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 

LDX, 



IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 

IPL 



LDX, IPL 

LDX, IPL 

LDX, IPL 

LDX, IPL 



CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 

CARD-4 
CARD-4 
CARD-4 
CARD-4 



28FEB66 
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8B800700 
8B800710 
8B800720 
8B800730 
8B800740 
8B800750 
8B800760 
8B800770 
8B800780 
8B800790 
8B800800 
8B800810 
8B800820 
8B800830 
8B800840 
8B800850 
8B800860 
8B800870 
8B800880 
8B800890 
8B800900 
8B800910 
8B800920 
8B800930 
8B800940 
8B800950 
8B800960 
8B800970 
8B800980 
8B800990 
8B801000 
• 8B801010 
8B801020 
8B801030 
8B801040 
8B801050 
8B801060 
8B801070 
8B801080 
8B801090 
8B801100 
8B801110 
8B801120 
8B801130 
8B801140 
8B801150 
8B801160 
8B801170 
8B8O1180 
8B801190 
8B801200 
8B801210 
8B801220 
8B801230 
8B801240 
8B801250 
8B801260 
8B801270 
8B801280 
8B801290 
8B801300 
8B801310 
8B801320 
8B801330 
8B801340 
8B801350 
8B801360 
8B801370 
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0022 3004 

0023 6000 



0024 

0000 C400 0009 
000? 4820 
0003 3005 



0004 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOD 
OOOE 
OOOF 
0010 
0011 
0013 
0014 
0015 
0016 
0017 
0019 
001A 
001B 
001C 
001D 
001F 
0020 
002) 
0022 
0023 



C400 OOOA 

4820 

600B 

3005 

0000 

8000 

C400 0010 

4820 

6011 

3005 

4000 

C400 0016 

4820 

6017 

3005 

2000 

C400 001C 

4820 

601D 

3005 

1000 

C400 0022 

4820 

6023 

3005 

0800 

6000 



0024 
0000 
0002 
0003 
00 04 
0005 
0006 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOE 
OOOF 
0010 
0011 
0012 
0014 
0015 
0016 
0017 
0018 
001A 
001B 
001C 



C400 0005 
4820 
6006 

3006 

0400 

C400 OOOB 

4820 

600C 

3006 
0200 
C400 0011 
4820 
6012 
3006 
0100 
C400 0017 
4820 
6018 
3006 
0080 
C400 001D 
4820 
6023 
3006 



WAIT /4 **ERR. LDX, IPt CARD-4 

LOX /OOOO — CHANGED TO LDX 28 BY LOADER 

* CARDS 5 6 7 £ 8 TEST THE FOLLOWING 

*1.CRP READS IN £ 1 EACH BIT POSITION 

*2.LD 1 PUTS 6 1 IN EACH BIT OF ACC. 

*3.BSC Z SKIPS ON ACC#00O& 6 NOT SKIP ANY I BIT. 

-f 4 TEST EOR FOR 1,1 £ 0,0 



* CARD 05 - 
ORG 
LD 
BSC 
WAIT 

BITOO LD 
BSC 
LDX 
WAIT 

KOOOO DC 

K8000 DC 

BIT01 LD 
BSC 
LDX 
WAIT 

K4000 DC 

BIT02 LD 
BSC 
LDX 
WAIT 

K2000 DC 

BIT03 LD 
BSC 
LDX 
WAIT 

K1000 DC 

BIT04 LD 
BSC 
LDX 
WAIT 

K0800 DC 
LDX 

• CARD 06 - 
ORG 

BIT05 LD 
BSC 
LDX 
WAIT 

K0400 DC 

BIT06 LD 
BSC 
LDX 
WAIT 

K0200 DC 

BIT07 LD 
BSC 
LDX 
WAIT 

K0100 DC 

BIT08 LD 
BSC 
LDX 
WAIT 

K0080 DC 

BIT09 LD 
BSC 
LDX 
WAIT 



/OOOO 
KOOOO 
Z 
/5 

K8000 

Z 

BIT01 

/5 

/OOOO 

/8000 

K4000 

Z 

BIT02 

/5 

/4000 

K2000 

Z 

BIT03 

/5 

/2000 

K1000 

Z 

BIT04 

/5 

/1000 

K0800 

Z 

/0023 

/5 

/0800 

/OOOO 



/OOOO 

K0400 

Z 

BIT06 

/6 

/0400 

K0200 

Z 

BIT07 

lb 

/0200 

K0100 

Z 

BIT08 

lb 

/0100 

K00 80 

Z 

BIT09 

lb 

/00 80 

K0040 

Z 

/0023 

lb 



SET ACC. TO OOOO 
TEST SKIP ON ZERO 
v-ERR. BSC Z FAILED OR ACC. 
NOT -QUAL OOOO. 
SET BIT TO 1, OTHERS 0. 
SHOULD NOT SKIP 

**ERR. BSC Z FAIL OR ACC#0000 



SET BIT 1 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

**ERR. BSC Z FAIL OR ACC#000 

SET BIT 2 TO 2, OTHERS 0. 
SHOULD NOT SKIP 

J *ERR. BSC Z FAIL OR ACC#0000 

SET BIT 3 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

*-<ERR. BSC Z FAIL OR ACCflOOOO 

SET BIT 4 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

vvERR. BSC Z FAIL OR ACC#0000 

CHANGED TO LDX 28 BY LOADER 



CARD 6— BSC Z £ LD L TEST- 
SET BIT 5 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

■**ERR. BSC Z FAIL OR ACC#0000 

SET BIT 6 TO 2, OTHERS 0. 
SHOULD NOT SKIP 

*-ERR. BSC Z FAIL OR ACC#0000 

SET BIT 7 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

**ERR. BSC Z FAIL OR ACC#0000 

SET BIT 8 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

<-*ERR. BSC Z FAIL OR ACC#0000 

SET BIT 9 TO 1, OTHERS 0. 
SHOULD NOT SKIP 

**ERR. BSC Z FAIL OR ACC#0000 
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8B801380 

8B801390 

8B801400 

8B801410 

8B801420 

8B801430 

8B801440 

8B801450 

8B801460 

8B801470 

8B801480 

8B801490 

8B801500 

8B801510 

8B801520 

8B801530 

8B801540 

8B801550 

8B801560 

8B80157O 

8B801580 

8B801590 

8B801600 

8B801610 

8B801620 

8B801630 

8B801640 

8B801650 

8B801660 

8B801670 

8B801680 

8B801690 

8B8017OO 

8B801710 

8B801720 

8B801730 

8B801740 

8B8O1750 

8B601760 

8B80177O 

8B801780 

8B801790 

8B801800 

8B801810 

8B801820 

8B801830 

8B601840 

8B801850 

8B801860 

8B801870 

8B801880 

8B801890 

8B801900 

8B801910 

8B801920 

8B801930 

8B801940 

8B801950 

8B801960 

8B801970 

8B801980 

8B801990 

8B802000 

8B802010 

8B802020 

8B802030 

8B802040 

8B802050 
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DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
PAGE 



08B8-0 
2 





001D 0040 




K0040 


DC 


/0040 






8B802060 






001E OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802070 






001F OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802O80 






002 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802090 






0021 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802100 






0022 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802110 






0023 6000 






LDX 


/OOOO 


CHANGED TO LDX 28 BY LOADER 


8B802120 










* 










8B802130 
8B802140 
8B802150 






0024 




ORG 


/OOOO 


CARD 7 — BSC Z £ LD 1 TEST- 






OOOO C400 


0005 


BIT10 


LD L 


K0020 


SET BIT 10 TO 1, OTHERS 


0. 


8B802160 






0002 4820 






BSC 


z 


SHOULD NOT SKIP 




8B802170 






0003 6006 






LDX 


BIT11 






8B802180 






0004 3007 






WAIT 


11 


**ERR. BSC Z FAIL OR ACC#OOCO 


8B802190 






0005 0020 




K0020 


DC 


/0020 






8B802200 






0006 C400 


OOOB 


BIT11 


LD L 


K0010 


SET BIT 11 TO 1, OTHERS 


0. 


8B802210 






0008 4820 






BSC 


Z 


SHOULD NOT SKIP 




8B802220 






0009 600C 






LDX 


BIT12 






86802230 






OOOA 3007 






WAIT 


11 


vvERR. BSC Z FAIL OR ACC#00O0 


8B802240 






OOOB 0010 




K0010 


DC 


/0010 






8B802250 






OOOC C400 


0011 


BIT12 


LD L 


K0008 


SET BIT 12 TO 1, OTHERS 


0. 


8B802260 






OOOE 4820 






BSC 


Z 


SHOULD NOT SKIP 




8B802270 






OOOF 6012 






LDX 


BIT13 






8B8O2280 






0010 3007 






WAIT 


/7 


' + ERR. BSC Z FAIL OR ACC#0000 


8B802290 






0011 0008 




K0008 


DC 


/0008 






8B802300 






0012 C400 


0017 


BIT13 


LD L 


K0004 


SET BIT 13 TO 1, OTHERS 


0. 


8B802310 






0014 4820 






BSC 


Z 


SHOULD NOT SKIP 




8B802320 






0015 6018 






LDX 


BIT14 






8B802330 






0016 3007 






WAIT 


11 


*«-FRR. BSC Z FAIL OR ACC#0000 


8B802340 






0017 0004 




K0004 


DC 


/0004 






8B802350 






0018 C400 


001D 


BIT14 


LD L 


K0OO2 


SET BIT 14 TO 1, OTHERS 


0. 


8B802360 






001A 4820 






BSC 


I 


SHOULD NOT SKIP 




8B802370 






001B 6023 






LDX 


/002 3 






8B802380 






001C 3007 






WAIT 


11 


-ERR. BSC Z FAIL OR ACC#0000 


8B802390 






001D 0002 




K0002 


DC 


/0002 






8B802400 






001E OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802410 






001F OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802420 






0020 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802430 






0021 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802440 






0022 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802450 






0023 6000 






LDX 


/OOOO 


CHANGED TO LDX 28 BY LOADER 


8B802460 










* 










8B802470 
8B802480 
8B802490 






0024 




ORG 


/OOOO 


CARD 8 BSC 7 £ LD BIT 15 










# 






AND EOR 1,1 £ 0,0 




8B802500 






OOOO C400 


0005 


BIT15 


LD L 


K0001 


SET BIT 15 TO 1, OTHERS 


0. 


8B802510 






0002 4820 






BSC 


z 


SHOULD NOT SKIP 




8B802520 






0003 6006 






LDX 


TEOR 






8B802530 






0004 3008 






WAIT 


/8 


--ERR. BSC Z FAIL OR ACC#0000 


8B802540 






0005 0001 




K0001 


DC 


/0001 






8B802550 






0006 C400 


0012 


TEOR 


LD L 


KFFFF 






8B802560 






0008 F400 


0012 




EOR L 


KFFFF 


TfcST D#FFFF £ A#FFFF 




8B802570 






OOOA 4820 






BSC 


Z 


SHOULD SKIP 




8B802580 






OOOB 3008 






WAIT 


/8 


**ERR. SEE ACC. SHOULD # 


OOOO 


8B802590 






OOOC F400 


0011 




EOR L 


KOOOO 


TEST 0#0000 £ A#0000 




8B802600 






OOOE 4820 






BSC 


z 


SHOULD SKIP 




8B802610 






OOOF 3008 






WAIT 


/8 


*>-ERR. SEE ACC. SHOULD # 


OOOO 


8B802620 






0010 6023 






LDX 


/0023 






8B802630 






0011 OOOO 




KOOOO 


DC 


/OOOO 






8B802640 






0012 FFFF 




KFFFF 


DC 


/FFFF 






8B802650 






0013 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802660 






0014 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802670 






0015 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802680 






0016 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802690 






0017 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802700 






0018 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802710 






0019 OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802720 






001A OOOO 






DC 


/OOOO 


SPACE FILLER 




8B802730 




DATE 


28FEB66 














PROG ID 


08B8-0 


EC NO. 


415120 














PAGE 


2A 



n o 
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OOIB OOOO 








DC 




/OOOO 


SPACE FILLER 




001C OOOO 








DC 




/OOOO 


SPACE FILLER 




001D OOOO 








DC 




/OOOO 


SPACE FILLER 




001E OOOO 








DC 




/OOOO 


SPACE FILLER 




001F OOOO 








DC 




/OOOO 


SPACE FILLER 




0020 0" OOOO 








DC 




/oooo 


SPACE FILLER 




0021 OOOO 








DC 




/oooo 


SPACE FILLER 




0022 OOOO 








DC 




/oooo 


SPACE FILLER 




0023 6000 




* 




LDX 




/oooo 


CHANGED TO LDX 28 BY LOADER 








* 
* 


CARD 09 
T 










EST LOAD AND STORE LONG FORM 








* 




TEST ALL BITS TRANSFER B-D-A-U-A, A-M. A-B 








* 




EOR 


L £ BSC 


Z COULD CAUSE FAILURE 




0024 








ORG 




/OOOO 






OOOO C400 


OOOD 


TST1 


LD 


L 


K0N161 


LOAD A TO 3333 




0002 D400 


CCCC 


K0N2 


STO 


L 


/CCCC 


STORE 3333 IN CCCC 




0004 C400 


CCCC 






LD 


L 


/CCCC 


GET 3333 FROM CCCC 




0006 F400 


OOOD 






EOR 


L 


K0N1£1 


EOR A#3333 TO D#3333 




0008 4820 








BSC 




Z 


SHOULD SKIP 




0009 3009 








WAIT 




/9 


**ERR. A NOT OOOO. GO TO TST1 




OOOA C400 


0003 


TST2 


LD 


L 


K0N2G1 


LD A TO CCCC 




OOOC D400 


3333 


K0N1 


STO 


L 


/3333 


STORE CCCC AT 3333 




OOOE C400 


3333 






LD 


L 


/3333 


GET CCCC FROM 3333 




0010 F400 
0012 4820 


0003 






EOR 
BSC 


L 


K0N2E1 
Z 


EOR A#CCCC TO D#CCCC 
SHOULD SKIP 




0013 3009 








WAIT 




/9 


->*ERR. A NOT OOOO. GO TO TST2 




0014 6023 








LDX 




/0023 






0015 OOOO 








DC 




/OOOO 


SPACE FILLER 




0016 OOOO 








DC 




/OOOO 


SPACE FILLER 




0017 OOOO 

0018 OOOO 








DC 
DC 




/OOOO 
/OOOO 


SPACE FILLER 
SPACE FILLER 




0019 OOOO 
OOIA OOOO 
OOIB OOOO 








DC 
DC 
DC 




/OOOO 
/OOOO 
/OOOO 


SPACE FILLER 
SPACE FILLER 
SPACE FILLER 




001C OOOO 
001D OOOO 








DC 
DC 




/OOOO 
/OOOO 


SPACE FILLER 
SPACE FILLER 




001E OOOO 








DC 




/OOOO 


SPACE FILLER 




001F OOOO 

0020 OOOO 

0021 OOOO 








DC 
DC 
DC 




/OOOO 
/OOOO 
/OOOO 


SPACE FILLER 
SPACE FILLER 
SPACE FILLER 




0022 OOOO 








DC 




/OOOO 


SPACE FILLER 




0023 6000 








LDX 




/OOOO 


CHANGED TO LDX 28 BY LOADER 








* 

* 


CARD A TEST 
SRA 


EOR FOR 
1 PARTLY 






TESTED 




0024 




* 


CARD OA • 
ORG 












/OOOO 






OOOO C400 


OOIB 






LD 


L 


K8000 


PUT BIT 0#1 IN ACC. 




0002 6008 








LDX 




RETRY-2 


GO STORE IT IN TEST 




0003 1801 




SHIFT 


SRA 




1 


SHIFT TO TEST NEXT BIT 




0004 4820 








BSC 




Z 


SHOULD NOT SKIP 




0005 6008 








LDX 




RETRY-2 






0006 300A 




# 
* 




WAIT 




/A 


**ERR. SRA 1 DROPPED BIT 
LOC. TEST HAS WORD BEFORE 
SRA 1 THAT FAILED. 




0007 600A 








LDX 




RETRY 






0008 D400 


D018 






STO 


L 


TEST 


STORE BIT FOR EOR TEST 0£1 




OOOA C400 


5019 


RETRY 


LD 


L 


KOOOO 


CLEAR ACC. 




OOOC F400 


5018 






EOR 


L 


TEST 


EOR ACC#0 D HAS A 1. 




OOOE 4820 








BSC 




Z 


SHOULD NOT SKIP 




OOOF 6012 








LDX 




CONTA 






0010 300A 








WAIT 




/A 


**ERR. A IS OOOO GO TO RETRY 




0011 600A 








LDX 




RETRY 






0012 F400 0019 


CONTA 


EOR 


L 


KOOOO 


EOR ACC. HAS Alt D#0 




0014 4820 








BSC 




Z 


SHOULD NOT SKIP 




0015 601C 








LDX 




CONTB 






,0016 300A 








WAIT 




/A 


**ERR. A IS OOOO GO TO RETRY 


DATE 


28FEB66 
















EC NO. 


415120 

















8B802740 

8B802750 

8B802760 

8B802770 

8B802780 

8B802J90 

8B802800 

8B802810 

8B802820 

8B802830 

8B802840 

8B80285O 

8B802860 

8B802870 

8B802880 

8B802890 

8B802900 

8B802910 

8B802920 

8B802930 

8B802940 

8B802950 

8B802960 

8B802970 

8B802980 

8B802990 

8B803000 

8B803010 

8B803020 

8B803030 

8B803040 

8B803050 

8B803060 

8B803070 

8B803080 

8B803090 

8B803100 

8B803110 

8B803120 

8B803130 

8B803140 

8B803150 

8B803160 

8B803170 

8B803180 

8B803190 

8B8Q3200 

8B8O3210 

8B803220 

8B803230 

8B803240 

8B803250 

8B803260 

8B80327O 

8B803280 

8B803290 

8B803300 

8B803310 

8B803320 

88803330 

8B803340 

8B803350 

8B803360 

8B803370 

8B803380 

8B803390 

8B803400 

8B803410 



PROG ID 
PAGE 



0017 600A 

0018 OOOO 

0019 OOOO 
OOIA 0001 
OOIB 8000 
001C F400 OOIA 
001E 4820 
001F 6003 

0020 6023 

0021 OOOO 

0022 OOOO 

0023 6000 



0024 

OOOO C400 
0002 D400 
0004 D400 
0006 C400 
0008 8400 
OOOA D400 
OOOC C400 
OOOE 8400 
0010 D400 

0012 4820 

0013 6015 

0014 6023 

0015 8400 

0017 4820 

0018 300B 

0019 6006 
OOIA OOOO 
OOIB OOOO 
001C OOOO 
001D 0001 
001E FFFF 
001 F OOOO 

0020 OOOO 

0021 OOOO 

0022 OOOO 

0023 6000 



001C 
OOIB 
OOIA 
OOIB 
001E 
OOIB 
OOIA 
001D 
OOIA 



OOIB 



0024 
OOOO 
0002 
0004 
0006 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
0010 
0011 
0012 
0014 
0016 
0017 
0018 



0019 



OCOO 
OCOO 
OCOO 
F400 
4820 
6012 
6004 
6028 
0047 
1601 
F400 
3010 
6000 
OCOO 
F400 
4820 
600E 
6028 



OOOC 
0038 
0036 
0036 



0038 



0038 
0038 



LDX 
TEST DC 
KOOOO DC 
K0001 DC 
K8000 DC 
CONTB EOR 
BSC 
LDX 
LDX 
DC 
DC 
LDX 



RETRY 
/OOOO 
/OOOO 
/0001 
/8000 
K0001 

z 

SHIFT 
/0023 
/OOOO 
/OOOO 
/OOOO 



BIT WITH 1 IS BEING TESTED 



TEST 
SKIP 



FOR 
BIT 



BIT 15#1 
15#1,ALL 



GO TO DO NEXT BIT 



POS. DONE 
POSITION. 



SPACE FILLER 
SPACE FILLER 
CHANGED TO LDX 28 BY 



LOADER 



* CARD OB 
ORG 



ADD 



LD 
STO 
STO 
LD 
A 

STO 
LD 
A 

STO 
BSC 
LDX 
LDX 
TOTAL A 

BSC 
WAIT 
LDX 
SUMPL DC 
SUMMI DC 
HOOOO DC 
H0001 DC 
HFFFF DC 
DC 
DC 
DC 
DC 
LDX 



TEST ADD BY POSITIVE AND NEGATIVE ONES 



HOOOO 

SUMMI 

SUMPL 

SUMMI 

HFFFF 

SUMMI 

SUMPL 

H0001 

SUMPL 

Z 

TOTAL 

/0023 

SUMMI 

Z 

/B 

ADD 

/OOOO 

/OOOO 



1 

-1 









/oooo 



CLEAR TO ZERO 

SUM OF MINUS ONES 
SUM OF PLUS ONES 

GET SUM OF MINUS ONES 

ADD MINUS ONE 

STORE SUM OF MINUS ONES 

GET SUM OF PLUS ONES 

ADD PLUS ONE 

STORE SUM OF PLUS ONES 

SKIP WHEN SUM IS OOOO 

BRANCH WHEN ONE PASS DONE. 
ADD SUMMI TO SUMMPL 
SHOULD SKIP 
**ERR. TOTAL SHOULD BE ZERO 

LOC. FOR SUM OF PLUS ONES 
LOC. FOR SUM OF MINUS ONES 



SPACE FILLER 
SPACE FILLER 
SPACE FILLER 
SPACE FILLER 
CHANGED TO LDX 28 BY LOADER 



* CARD 10 
ORG 
XIO 
XIO 
XIO 
EOR 
BSC 
LDX 
LDX 
LDX 
DC 
DC 
EOR 
WAIT 
LDX 
XIO 
EOR 
BSC 
LDX 
LDX 



A10 



CIO 
BIO 

D10 



E10 





BIO 

K0800 

K0003 

K0003 

Z 

E10 

A10 

/0028 

BLD 

/1601 

K0800 

/10 

/O 

K0800 

K0800 

Z 

D10 

/0028 



READ ONE CARD INTO BLD 
RESET DSW 

SENSE DSW FOR 1442 
CHECK BITS 14615 ONLY 
SKIP BITS 14 £ 15 ONLY 
CONTINUE DSW ANALYSIS 
CARD IS BEING READ 

READ CONTROL 

1442 8/8 FORMAT 
RETURN DSW WORD TO ACC. 
**ERR. SEE ACC. DSW NOT RIGHT 
TRY AGAIN 

SENSE AND TURN OFF DSW 
CHECK FOR BIT 4 ONLY 
SKIP OPERATION COMPLETE 
DSW ERROR CONDITION 
READ A CARD £ FORM ITS SUM 



CARD 11 
ORG 



BLD 



THIS CARD IS READ OVER THE LOADER IN 46 THRU hH 
USES ITS INSTRUCTIONS FROM 0028 THRU 0045 



08B8-0 
3 



I. ( 



DATE 
EC NO. 



28FEB66 
415120 



8B803420 
8B803430 
8B803440 
8B803450 
8B803460 
8B803470 
8B803480 
8B803490 
8B803500 
8B803510 
8B803520 
8B80353O 
8B803540 
- 8B803550 
8B803560 
8B803570 
8B803580 
8B803590 
8B803600 
8B803610 
8B803620 
8B803630 
8B803640 
8B803650 
8B803660 
8B803670 
8B803680 
8B803690 
8B803700 
8B803710 
8B803720 
8B803730 
8B803740 
8B803750 
8B803760 
8B803770 
8B803780 
8B803790 
8B803800 
8B803810 
8B803820 
8B803830 
8B803840 
8B803850 
8B803860 
8B803870 
8B803880 
8B803890 
8B803900 
8B803910 
8B803920 
8B803930 
8B803940 
8B803950 
8B803960 
8B803970 
8B803980 
8B803990 
8B804000 
8B804010 
8B804020 
8B804030 
8B804040 
8B804050 
8B804060 
8B804070 
8B804080 
8B804090 



PROG ID 
PAGE 



08B8-0 
3A 
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0047 
0049 
004A 
004B 
004C 
0040 
004E 
004F 
0051 
0053 
0055 
0057 
0059 
005B 
005D 
005F 
0061 
0063 
0064 
0065 
0067 
0068 



C400 
4820 
604F 
3011 
6028 
0000 
0001 
C400 
D400 
D400 
C400 
8400 
D400 
C400 
8400 
D400 
F400 
4820 
6055 
C400 
4820 
3011 



0024 



004D 
0058 
0027 
0027 
FFFF 
0027 
0058 
004E 
0058 
0056 



0027 



0069 6000 



006A 





0000 





6028 




0001 





9FD7 




0002 





FFFF 




0003 





0001 




0004 





0001 




0005 





0001 




0006 





0001 




0007 





0002 




0008 





0004 




0009 





0008 




OOOA 





0010 




OOOB 





0020 




OOOC 





0040 




OOOD 





0080 




OOOE 





0100 




OOOF 





0200 




0010 





0400 




0011 





0800 




0012 





1000 




0013 





2000 




0014 





4000 




0015 





8000 




0016 





5555 




0017 





5555 




0018 





AAAA 




0019 





0001 




001 A 





AAAA 




001B 





AAAA 




001C 





5557 




001D 





5555 




001E 





AAAB 




001F 





1000 




0020 





F100 


DATE 


28FEB66 


EC NO. 


415120 



KOOOO 
K0001 
SUM1 



CKLOD 



LD 

BSC 

LDX 

WAIT 

LDX 

DC 

DC 

LO 

STO 

STO 

LD 

A 

STO 

LD 

A 

STO 

EOR 

BSC 

LDX 

LD 

BSC 

WAIT 



/0024 
Z 

SUM1 
/ll 

/0028 

/OOOO 

/0001 

KOOOO 

CKL0DS1 

/0027 

/0027 

/FFFF 

/0027 

CKL0D61 

K0001 

CKL0D61 

CKLOD-1 

Z 

CKLOD-2 

/0027 

Z 

/ll 



GET WORD COUNT 

SKIP IF WORD COUNT ZERO 

**ERR. WORD COUNT IS ZERO 
START LOADS NEXT CARD 



RESTORE MODIFIED ADDRESS 
CLEAR SUM LOC. 
FORM SUM OF LOCS. THRU 26 
MODIFY ADDRESS 



CHECK THAT ALL 
SKIP. ALL LOCS. 



WORDS 
ADDED 

26 



DONE 



LOAD SUM THRU 

SKIP READ IN OK. 

**ERR. IN CHECK SU. 

LOADS NEXT CARD. 

RUN CARD LOADED. CARD 

BEGINS LOADING HERE. 



START 
* 

MOVE LDX /OOOO RUN CARD LOADED. CARD 13 
* 

* CARD 12 

ORG 

* CHECK SUM CHECK CARD. THIS IS USED TO DETECT 

* ERRORS THAT OCCUR AS THE RESULT OF WRONG CHECK 

* SUM FOR CARD IMAGE IN LOCS. OOOO THRU 0026 

* CHECK SUM ROUTINES ADD LOC. THRU 26 IN SEQUENCE 

* . CORRECT ACC. AFTER ADD IS SHOWN BELOW IN 

* SEQUENCE THE PROG. FOLLOWS. 
CORRECT SUM. 

6028 



CORE 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



CONTENTS. 
/6028 
/9FD7 
/FFFF 
/0001 
/0001 
/0001 
/0001 
/0002 
/0004 
/0008 
/0010 
/0020 
/0040 
/0080 
/OlOO 
/0200 
/0400 
/0800 
/1000 
/2000 
/4000 
/8000 
/5555 
/5555 
/AAAA 
/0001 
/AAAA 
/AAAA 
/5557 
/5555 
/AAAB 
/1000 
/F100 



FFFF 

FFFE 

FFFF 

OOOO 

0001 

0002 

0004 

0008 

0010 

0020 

0040 

0080 

0100 

0200 

0400 

0800 

1000 

2000 

4000 

8000 

OOOO 

5555 

AAAA 

5554 

5555 

FFFF 

AAA9 

FFFF 

5554 

FFFF 

OFFF 

OOFF 



CORE LOC. 
OOOO 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
001B 
001C 
001D 
001E 
001F 
0020 
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8B804100 

8B804110 

8B804120 

8B804130 

8B804140 

8B804150 

8B804160 

8B804170 

8B804180 

8B804190 

8B804200 

8B804210 

8B804220 

8B604230 

8B804240 

8B804250 

8B804260 

8B804270 

8B804280 

8B804290 

8B804300 

8B804310 

8B804320 

8B804330 

8B804340 

8B804350 

8B804360 

8B804370 

8B804380 

8B804390 

8B804400 

8B804410 

8B804420 

8B804430 

8B804440 

8B804450 

8B804460 

8B804470 

8B804480 

8B804490 

8B804500 

8B804510 

8B804520 

8B804530 

8B804540 

8B804550 

8B804560 

8B804570 

8B804580 

8B804590 

8B804600 

8B804610 

8B804620 

8B804630 

8B804640 

8B804650 

8B804660 

8B804670 

8B804680 

8B804690 

8B804700 

8B804710 

8B804720 

8B804730 

8B804740 

8B804750 

8B804760 

8B804770 



PROG ID 
PAGE 
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0021 FFIO 

0022 FFFl 

0023 3210 


* 
* 
* 

* 


DC 
DC 
DC 




/FFIO 
/FFFl 
/3210 
/0024 
/OlOO 
/CCCC 


OOOF 0021 
OOOO 0022 
3210 0023 
3234 0024 
3334 0025 
OOOO 0026 


8B804780 
8B804790 
8B804800 
8B804810 
8B804820 
8B804830 
8B804840 
8B804850 






0024 

OOOO OCOO OOOC 


* CARD li - 
ORG 
XIO 


L 



B13 


READ TWO CARDS 


8B804860 
8B804870 
8B804880 






0002 OCOO 0038 




XIO 


L 


K0800 


RESET DSW 






0004 OCOO 0036 


A13 


XIO 


L 


K0003 


SENSE DSW FOR 1442 


8B804890 
8B804900 






0006 F400 0036 




EOR 


L 


K0003 








0008 4820 




BSC 




Z 


SKIP BITS 14 6 15 ONLY 


8B804910 






0009 6013 




LDX 




E13 


CONTINUE DSW ANALYSIS 


8B804920 






OOOA 6004 
OOOB 008A 


C0N2 


LDX 
DC 




A13 
CD15 


CARD IS BEING READ 


8B804930 
8B804940 






OOOC 0069 


B13 


DC 




MOVE 


READ CONTROL PROG. MODIFYS. 


8B804950 






OOOD 1601 
OOOE 6028 


C13 


DC 
LDX 




/1601 
/0028 


1442 8/8 FORMAT 


8B804960 
8B804970 






OOOF F400 0038 


D13 


EOR 


L 


K0800 


RETURN DSW WORD TO ACC. 


8B804980 






0011 3013 




WAIT 




/13 


**ERR. SEE ACC. DSW NOT RIGHT 


8B804990 






0012 6000 




LDX 




/O 


TRY AGAIN 


8B805000 






0013 OCOO 0038 


E13 


XIO 


L 


K0800 


SENSE AND RESET DSW 


8B805010 






0015 F400 0038 




EOR 


L 


K0800 


CHECK FOR BIT 4 ONLY 


8B805020 






0017 4820 




BSC 




Z 


SKIP OPERATION COMPLETE 


8B805030 






0018 600F 




LDX 




D13 


DSW ERROR CONDITION 


8B805040 






0019 C400 OOOE 


MODI 


LO 


L 


C13 


SET THIS PROG. TO READ 2ND 


8B805050 






001B D400 0019 




STO 


L 


MODI 


CARD 6 BR. TO READ IN 


8B805060 






001D C400 OOOB 
001F D400 OOOC 
0021 6000 


# 


LD 

STO 

LDX 


L 

L 


C0N2 

B13 

/O 


FIRST PROG. CARD 


8B805070 
8B805080 
8B805090 
8B805100 
8B8051 10 






0022 


* CARu Lt 
ORG 




MOVE 




8B8O5120 






0069 C400 0025 


MOVE 


LD 


L 


/0025 


GET ADDRESS FOR FIRST WORD 


8B805130 






006B 4820 




BSC 




Z 


SKIP ADDRESS EQU. OOOO 


8B805140 






006C 6070 




LDX 




STORE 




8B805150 






0060 6000 




LDX 




/OOOO 




8B805160 






006E 6400 0092 


HOP 


LDX 


L 


CKMOV 




8B805170 






0070 D400 0079 


STORE 


STO 


L 


PUT61 


SET FIRST WORD ADDRESS 


8B805180 






0072 C400 004D 




LD 


L 


KOOOO 




8B805190 






0074 D400 0077 




STO 


L 


GET&l 


SET TU GET FIRST WORD AT 


8B805200 






0076 C400 FFFF 


GET 


LD 


L 


/FFFF 


GET PROG. WORD 


8B805210 






0078 D400 FFFF 


PUT 


STO 


L 


/FFFF 


PUT PROG. WORD 


86805220 






007A C400 0079 




LD 


L 


PUT61 


MODIFY PUT 


8B805230 






007C 8400 004E 




A 


L 


K0001 




8B805240 






007E D400 0079 




STO 


L 


PUT61 




8B805250 






0080 C400 0077 




LD 


L 


GET£1 


MODIFY GET 


8B805260 






0082 8400 004E 




A 


L 


K0001 




8B805270 






0084 D400 0077 




STO 


L 


GETG1 




8B805280 






0086 F400 0024 




EOR 


L 


/0024 


CHECK FOR ALL WORDS MOVED 


86805290 






0088 4820 




BSC 




Z 


SKIP ALL WORDS MOVED 


8B805300 






0089 6076 




LDX 




GET 




8B805310 






008A 3014 


CD15 

# 
* 


WAIT 




/14 


'**ERR. CARD 15 SHOULD READ 
OVER THTS WAIT* 


8B805320 

8B805330 

8B805340 

- 8B805350 






008B 


* CAku 10 
ORG 




CD15 




8B805360 






008A C400 0025 


SUM2 


LD 


L 


/0025 


GET ADDRESS OF FIRST WORD 


8B8O5370 


* 




008C D400 0093 




STO 


L 


CKM0VC1 


PUT IT INTO ROUTINE 


8B805380 






008E C400 004D 




LD 


L 


KOOOO 


GET ADDRESS OF FIRST WORD 


8B805390 






0090 D400 0095 




STO 


L 


C0MP61 


IN IMAGE £ STORE IT. 


8B805400 






0092 C400 FFFF 


CKMOV LD 


L 


/FFFF 


GET WORD MOVED 


8B805410 






0094 F400 FFFF 


COMP 


EOR 


L 


/FFFF 


COMPARE WITH CARD IMAGE 


8B805420 






0096 4820 




BSC 




Z 


SKIP WORD STORED OK 


8B805430 






0097 3015 




WAIT 


/15 


--S-ERR. WORD NOT STORFD OK. 


8B805440 






0098 C400 0093 




LD 


L 


CKM0V£1 


MODIFY FOR NEXT WORD 


8B805450 




DATE 
EC NO. 


28FEB66 
415120 
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009A 





8400 


004E 




A L K0001 






8B805460 


009C 





D400 


0093 




STO L CKMOVei 






88805470 


009E 





C400 


0095 




LD L C0MPE1 


MODIFY FOR HEX! COMPARE 


8B805480 


OOAO 





8400 


004E 




A L K0001 






8B805490 


0OA2 





D400 


0095 




STO L C0MP61 






8B805500 


00A4 





F400 


0024 




EOR L /0024 


CHECK IF 


ALL DONE 


8B805510 


00A6 





4820 






BSC Z 


SKIP ALL 


WORDS CHECKED 


8B805520 


00A7 





606E 






LDX HOP 


GO TO CKMOV 


8B805530 


00A8 





6028 






LDX /0028 


GET NEXT 


CARD 


8B805540 










* 






8B80555Q 










* THIS CARD IS USED TO 


CHECK THAT THE MOVE 


8B805570 










* PORTION OF THE LOADER 


WORKS. 


THE CARD SHOULD 


8B805580 










* BE 


PLACED IN LOCS. 0100 THRU 0123 . 


8B805590 










* EACH LOCATION SHOULD 


CONTAIN ITS OWN ADDRESS. 


8B805600 










* THE 


LISTING SHOWS THE 


SUM DURING CHECK SUM ADD. 


8B805610 










* 




-SUM OF LOCS.- 


8B805620 


00A9 










ORG /0100 






8B805630 


0100 





0100 






DC /0100 


0100 




8B805640 


0101 





0101 






DC /0101 


0201 




8B805650 


0102 





0102 






DC /0102 


0303 




8BB05660 


0103 





0103 






DC /0103 


0406 




8B805670 


0104 





0104 






DC /0104 


050A 




8B805680 


0105 





0105 






DC /0105 


060F 




8B805690 


0106 





0106 






DC /0106 


0715 




8B805700 


0107 





0107 






DC /0107 


081C 




8B805710 


0108 





0108 






DC /0108 


0824 




8B805720 


0109 





0109 






DC /0109 


092D 




8B805730 


010A 





010A 






DC /010A 


0937 




8B805740 


010B 





010B 






DC /010B 


0942 




8B805750 


010C 





010C 






DC /010C 


0A4E 




8B805760 


010D 





010D 






DC /0100 


0B5B 




8B805770 


010E 





010E 






DC /010E 


0C69 




8B805780 


010F 





010F 






DC /010F 


0D78 




88805790 


0110 





0110 






DC /OHO 


0E88 




8B805800 


0111 





0111 






DC /Olll 


0F99 




8B805810 


0112 





0112 






DC /0112 


10AB 




8B805820 


0113 





0113 






DC /0113 


11BE 




8B805830 


0114 





0114 






DC /0114 


12D2 




8B805840 


0115 





0115 






DC /0115 


13E7 




8B805850 


0116 





0116 






DC /0116 


14FD 




8B805860 


0117 





0117 






DC /0117 


1614 




8B805870 


0118 





0118 






DC /0118 


1726 




8B805880 


0119 





0119 






DC /0119 


183F 




8B805890 


011A 





011A 






DC /011A 


1959 




8B805900 


011B 





011B 






DC /011B 


1A76 




8B805910 


one 





one 






DC /one 


1B92 




8B805920 


011D 





011D 






DC /011D 


1CAF 




8B805930 


011E 





011E 






DC /011E 


1DCD 




8B805940 


011F 





011F 






DC /011F 


1EEC 




8B805950 


0120 





0120 






DC /0120 


200C 




8B805960 


0121 





0121 






DC /0121 


212D 




8B805970 


0122 





0122 






DC /0122 


224F 




8B805980 


0123 





0123 






DC /0123 


2472 




8B805990 


0124 




0000 






END 






8B806000 



o 

( 

c 
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C R 


S S 


REFERENC 


E 




NAME 


•VALUE 


REFERENCES 






ADD 


0006 


0019 






Al 


0005 


OOOB 






A10 


0004 


OOOA 






A13 


0004 


OOOA 






A2 


002C 


0032 






A3 


0005 








A3A 


OOOF 


0015 






BITOO 


0004 








ritoi 


OOOB 


0007 






BIT02 


0011 


OOOE 






BIT03 


0017 


0014 






BIT04 


001D 


001A 






BIT05 


0000 








BIT06 


0006 


0003 






BIT07 


oooc 


0009 






BIT08 


0012 


OOOF 






BIT09 


0018 


0015 






BIT10 


0000 








BIT11 


0006 


0003 






BIT12 


OOOC 


0009 






BIT13 


0012 


OOOF 






BIT14 


0018 


0015 






BIT15 


0000 








BLD 


0047 


OOOC 






Bl 


OOOC 


0001 






BIO 


OOOC 


0000 






B13 


OOOC 


OOOOtOOlF 






B2 


0034 


002A v 






B3 


0016 


0001,0006 






CD15 


008A 


OOOB 






CKLOD 


0057 


0051,005B,005F 


,0061,0064 




CKMOV 


009 2 


006E»008C»0098 


009C 




COMP 


0094 


0090,009E,OOA2 






CONTA 


0012 


OOOF 






CONTB 


001C 


0015 






C0N2 


OOOB 


001D 






CIO 


OOOB 








C13 


OOOE 


0019 






Dl 


0012 


001B 






D10 


OOOE 


0017 






D13 


OOOF 


0018 






D2 


003A 


0044 






El 


0016 


OOOA 






E10 


0012 


0009 






E13 


0013 


0009 






E2 


003E 


0031 






E3 


001C 


0014 






GET 


0076 


0074,0080,0084, 


0089 




HFFFF 


001E 


0008 






HOP 


006E 


00A7 






HOOOO 


001C 


0000 






H0001 


001D 


OOOE 






KFFFF 


0012 


0006,0008 






K0N1 


OOOC 


0000,0006 






K0N2 


0002 


OOOA ,0010 






KOOOO 


0009 


0000 






K0001 


0005 


0000 






K0003 


OOOE 


0005,0007 






K0800 


0010 


0003,0012,0016, 


0018 




KOOOO 


0011 


OOOC 






KOOOO 


0019 


OOOA, 0012 






K0001 


00 1A 


001C 






K0003 


0018 


0005, OOOF, 0011 






KOOOO 


004D 


004F,0072,008E 






K0001 


004E 


005D,007C,0082, 


009A.00A0 




K0002 


00 ID 


0018 




DATE 


28FEB66 






EC NO. 


415120 







PROG ID 
PAGE 



08B8-0 
5A 



r 
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K0003 

K0004 

K0008 

K0010 

K0020 

K0040 

K0080 

KOI 00 

K0200 

K0400 

K0800 

K0800 

K0800 

K.1000 

K2000 

K4000 

K8000 

K8000 

LP 

MODI 

MOVE 

MOVE 

PUT 

RETRY 

R2 

SHIFT 

STORE 

SUMMI 

SUMPL 

SUM1 

SUM2 

TEOR 

TEST 

TOTAL 

TST1 

TST2 



0036 
O017 
0011 
OOOB 
0005 
00 ID 
0017 
0011 
OOOB 
0005 
001A 
0022 
0038 
00 1C 
0016 
0010 
001B 
OOOA 
OOOB 
0019 
0069 
0069 
0O78 
OOOA 
003D 
0003 
0070 
001B 
001A 
004F 
008A 
0006 
0018 
0015 
0000 
OOOA 



0004 ,0004, 0006 ,0006,002C,002E,003E 

0012 

OOOC 

0006 

0000 

0018 

0012 

OOOC 

0006 

0000 

0003, 0008, OOOD,001C,001E 

001D 

0002,0002,OOOE,OOOF,0012,0013,0014,0015,0028,003A,0040, 

0017 

0011 

OOOB 

0000 

0004 

0022 

001B 

OOOC 

0070,007A,007E 

0002,0005,0007,0011,0017 

0047 

001F 

006C 

0002, 0006, OOOA, 0015 

0004, OOOC, 0010 

004A 

0003 

0008, OOOC 
0013 



0045 



END OF ASSEMBLY 
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TABLE OP CONTENTS 
PARAGRAPH 

i. pufipose . . . 01 

2. PREREQUISITES. ...01 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. OPERATING PROCEDURE j 

3.1 PROGRAM LOADING 

3.2 ONE-CARD PROGRAMS TEST PROCEDURE 

3.2.1 CARD 03 PROGRAM TEST PROCEDURE 

3.2.2 CARDS 04-0B PROGRAM TEST PROCEDURES 

3.3 MANUAL ENTRY ADO TEST 

3.4 MANUAL ENTRY OATA-PATH TEST 

4. PRINTOUTS (NONEI 

5. COMMENTS . ... 

5.1 BASIC DIAGNOSTIC LOAOER PHILOSOPHY 

5.2 DESCRIPTION OF ONE-CARD PROGRAMS 

6. APPENDIX (NONES 

1. PURPOSE 

THE 1800 BASIC DIAGNOSTIC LOAOER IS A SELF-CHECKING PROGRAM USED TO 
LOAD THE PROCESSOR DIAGNOSTIC PROGRAMS Af.'D TO VERIFY THEIR CORRECT 
LOAOING. THE LOAOER CONTAINS ONE-CARD PHOGRAHS USED AS AIOSIN 
DIAGNOSIS OF BASIC FAILURES IN THE PROCESSOR. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

Z.2 EQUIPMENT PREREQUISITES 

A. 1800 DATA ACQUISITION AND CONTROL SYSTEM PROCESSOR. 

B. 1442 SERIAL CARD REAO/PUNCH. 

3. OPERATING PROCEDURE 
3.1 PROGRAM LOAOING 

A. AT 1442 SERIAL CARO REAO/PUNCH, 

1. DEPRESS NPRO PUSHBUTTON TO RUN OUT ANY 
CAROS REMAINING IN FEED. 

2. PLACE BASIC LOAOER OECK FOLLOWED BY MAIN 
PROGRAM AND ONE BLANK IN REAOER HOPPER. 

3. DEPRESS START PUSHBUTTON. READY INDICATOR 
SHOULO LIGHT. 



B. USING CONTROLS OF 1800 PROCESSOR CLEAR STORAGE TO 
70FF AS FOLLOWS, 

1. SET MODE SWITCH TO RUN. 

2. SET CHECK STOP SWITCH TO OFF. 

3. SET WRITE STOR PROT BITS SWITCH TO YES. 

4. SET DATA ENTRY SWITCHES TO TOFF. 

5. HOLD OOWN THE CLEAR STOR PUSHBUTTON AND 
DEPRESS START PUSHBUTTON TO CLEAR STORAGE. 

6 * OPERATION 10 ' 8U "° N T ° T£RM,NATE CLE ** 

C. AT 1800 PROCESSOR SET SWITCHES AS FOLLOWS, 

1. SET CHECK STOP SWITCH TO ON. 

2. SET WRITE STOR PROT BITS TO NO. 

D. DEPRESS RESET PUSHBUTTON. 

E * p°0»IB S LE% R a°5luSe1 SSSST^ ""* "" " W ° M£ CA *° F "° S - 
.♦-♦.•♦♦••.•.♦•♦.♦♦..— .♦..♦♦•.•••...♦♦♦.♦♦. •♦.♦.•*•♦♦*♦•.♦•..♦♦ 

I FAILURE • FAILURE / ACTION I 



• AFTER DEPRESSION OF 

• PROG LOAO BUTTON NO 

• CARD FEEOS, OR MORE 

• THAN ONE CARO FEEOS. 



! SofftI L0 *° PR °«DURE WITH MODE SWITCH IN SI 

• POSITION. IF FAILURE REOCCURS A PROG LOAD FAILURE 
! it ?9 SS 'BLE. FEEDING MORE THAN ONE CARD COULD ALSO 

• BE CAUSED BY FAILURE TO PERFORM WAIT INSTRUCTION 

• 0§oS F ' ™* T SH0UL ° H * VE * CA0 «NTO LOCAT ON 



• * 

F * P0i«BL% HA F T A^S AM F0LL S 0w: OPP£0 * ,TH ' ^' °° 1 ' * N ° B RE6 ' 50FF - 



FAILURE / ACTION 



* FAILURE • 

* » r»M.ime I ALII UN * 

I ess** ' : "•SBSSM^a^'si 



DATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PAGE 



08B8-0 
1 



OATE 
EC NO. 



28FEB66 
415120 



PROG 10 
PAGE 



0888-0 
1A 
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DEPRESS START PUSHBUTTON. CHECK THAT ALL LOADER ANO PROGRAM CAROS 
FEED. ANO THAT PROGRAM BEGINS EXECUTION. POSSIBLE FAILURES FOLLOW 



* PROGRAM STOPS AT WAIT 

* WITH I REG=0001, AND 

* 6 REG*30FF. 



* • * 

* FAILURE * FAILURE / ACTION * 

* * • 

****************** **************** ****************************«**»****»*******»* 

* * • 

• CARO 02 PROGRAM READS A CARD WHICH REMOVES WAIT FROM* 

• LOCATION 0000. AN XIO FAILURE IS INDICATEO. RUN • 

• CARD 03 TO HELP ISOLATE FAILURE. I PAR. 3.2.1 1. • 

• • 

•* •***•••****••*•****************** ******•**♦*♦*•*******♦****♦***»*♦****»******* 

* • • 

* PROGRAM STOPS AT ERROR ♦ REFER TO TABLE 1- ERROR WAIT DIAGNOSTIC GUIDE. • 

* WAIT. ( B REG READING * , 

* BETWEEN 3001 ANO 3015).* * 

* * * 

********************************** ♦******»**************».***»*********** # m # H 

* • • 

* PROGRAM STOPS AT OTHER * DETERMINE WHICH PROGRAM CAUSED FAILURE. IF MORE THAN* 

* THAN A WAIT INSTRUCTION* TWO CAROS HAVE FEOt FAILURE IS MOST LIKELY OUE TO • 

* • LAST CARD READ. * 



•••*•********•**** ♦**•**♦****♦**♦♦*«»♦*»*♦♦•******«*****„***»**********,****,** 

* • 

* WAIT * 
********«*******»********, FAILURE / RECOHHENDEO ACTION 

* B REGISTER I REGISTER * 

* * 
••••**•*** A*********************************************** ************ ********* 

* • 

* 3003 • THIS WAIT WILL NOT NORMALLY OCCUR WHILE LOADING A 

* • MAIN PROGRAM AS CARO 03 IS BYPASSEO. REFER TO CARD 

* • 03 PROGRAM TEST PROCEDURE {PARAGRAPH 3.2.1J. 

* * 

******************************************************************************* 

* * 

* 3004 * FAILURE OF LOX INSTRUCTION. RErER TO PROGRAM 

* * LISTING. RUN CARO 04 SEPARATELY. IF WAIT REOCCURS A 

* • SCOPING LOOP KAY BE SET UP BY REPLACING ERROR WAIT 

* * BY AN LOX /OOOO INSTRUCTION 160001. 

* • 



•♦♦J********************************************************************* 



•***•******•*••*•***»******,****** *************************»*»***** # ****** Ml *m 



* STOP PROGRAM. DETERMINE WHICH PROGRAM IS ACTIVE. 

* THE ACTIVE PROGRAM SHOULD BE ST01ED BETWEEN 

* LOCATIONS 0000 AND 0025 t OR BETt'SEN LOCATIONS 0028 

* AKD 004F. DISPLAY ACTIVE PROGRAM UNTIL A WAIT IS 

* FOUND. DETERMINE THE PROGRAM NUMBER BY REFERENCING 

* THE LAST 10 BITS OF THE HAIT INSTRUCTION. REFER TO 

* LISTING FOa THE PROGRAM AND RUN IN SI KODE TO 

* DETERMINE FAILURE. EXECUTION OF OKS-CARO PROGRAMS 
» MAY ALSO BE HELPFUL. I PAR. 3.2.1 AND 3.2.2 I. 



• PROGRAM RUNNING BUT 

• CARDS DO NOT FEED. 

* 
* 

**************************************«*******»*»*,****»******** *,*** M##### ,,; 

TABLE 1 
ERROR WAIT DIAGNOSTIC GUIOE 

♦•♦♦♦♦♦♦a*********************************************** ********** ## ,„ # „„ ## „ # 

• * . 

• WAIT * * 
*••****••****,*»»•******** FAILURE / RECOISMENDEO ACTION • 

• B REGISTER i REGISTER • » 
•*•*•****•*•****«***«***»« ***************«*************»»*»***,*************^ ## 

* * 






******* 



3005 
3006 
3007 
3008 



0005 



* REAO IN FAILURE FROM CARD READER, OR BIT TRANSFER 

• INTO A REG FA1LUKE, OR 8SC I INSTRUCTION FAILURE. 

• REFER TO LISTING. SET I REG TO ADDRESS OF LD IN- 

* STRUCTION JUST BEFORE WAIT INSTRUCTION AND STEP 

• THROUGH PROGRAM IN SI MODE TO LOCATE FAILING IN- 

* STRUCTION. 



*••**••••«******•*******•********* **»•*♦****♦♦*♦**********»**»**,***»*,*»****,** 



3008 



OOOC • EOR OF ALL ONES AGAINST ALL ONES DID NOT RESULT IN 

* A REG EQUAL 0000. REOEVELOP ERROR BY STARTING 

* PROGRAM AT LOCATION 0000. STEP THROUGH IN SI MODE. 

* 



************♦*♦*****»**«*♦»**♦*»»*«*«,**»»».*,*„* *«****«♦***»*»,**,»,**»* 



*•••• 



• 3008 



0010 



• EOR OF ALL ZEROES AGAINST ALL ZEROES OID NOT RESULT 

• IN A REG EQUAL 0000. REDEVELOP ERROR BY STARTING AT 

• LOCATION 0000 IN SI MODE. 

* * 
•*»*♦******♦**»**»*♦*«*«**♦*«*♦***»**»*»»*». ♦«*************„**********»******** 

* * 

* 3009 • LOAD LONG FAILURI , STORE LONG FAILURE, OR POSSIBLE 

* * EOR FAILURE. REFt « TO LISTING. RUN IN SI MODE 

* * CHECKING THAT AFTER A LOAD INSTRUCTION A REG IS 

* * CORRECT, ANO THAT AFTER A STORE INSTRUCTION THE A. 

* * B, ANO M REGISTERS ARE CORRECT. DATA PATH TEST MAY 

* * ALSO HELP (SEE PARAGRAPH 3.5). 

* • 

*****••*•****••••*****•***•**•**** *♦♦******»»»«***************************«,,„, 



* 

• 3001 

* 

* 

**♦*♦**•*••*•*******•*♦*•*•♦••*•*♦ ♦******»«*********************„*, # **, # H # ^ # ^ 

• • • 

• 3002 • SAME FAILURE AS 3001. PRESS PROG LOAD BUTTON TO * 

• ♦ LOAD CARD 03 TO HELP ISOLATE FAILURE. (REFER PARA- • 

• • GRAPH 3.2.11. * 

• • * 
*•*****•*•*•**•*»•** *******•♦***•***••♦♦***♦♦**♦**«♦*♦».»»»»««»»*, ** ### ****** ## , 



* CHECK A REGISTER. IT CONTAINS THE 1442 DSW. IF THE • 

* DSW IS OTHER THAN 0003, OR OROO, THE DSW IS IN * 

* ERROR. DEPRESS PROG LOAO BUTTON TO LOAD CARO 03 * 

* ONE-CARO PROGRAM. (CARO 03 IS AN XIO TEST PROGRAM. I • 

* SEE CARD 03 TEST PROCEDURE (PARAGRAPH 3.2.11. • 



• 300A 

* 

* 



0007 



* SRA 1 DROPPED THE 1 OURING THE SHIFT. FOLLOWING 

• THIS WAIT, PROGRAM RUNS AGAIN THROUGH SAME 

* CONDITIONS THAT CAUSEO THE ERROR. STEP THROUGH IN 

• SI MODE TO LOCATE FAILURE. 

*********•************♦**••**********••****♦•*♦*♦***#***••#»*••♦•*»♦♦*♦•»**♦***« 

• * 

* 300A 0011 * EOR OF A 1 IN STORAGE AGAINST A IN A REG RESULTED 

• * IN A IN A REG. RUN IN SI MODE TO LOCATE ERROR. 

* • 
••♦••♦••••♦•••••♦•♦•••♦♦♦♦♦♦•♦♦•••♦♦♦•I******************* **********,**,* ## „m 
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FAILURE / RECOMNENOED ACTION 



* 



300B 



* 



* WAIT * 

******♦*♦•♦***♦**•••*•«♦*« 

♦ B REGISTER I REGISTER • 

:•♦., :••••♦•*•♦.♦..*......♦♦♦.„.♦..•♦♦.♦..„„ ,„,J 

l 300A 0017 . £0R OF A IN STORAGE AGAINST A 1 IN A REG RFSili «n ! 

J J IN A IN A REG. RUN .N SI MODE TOWMf'iSJS™ . 

: * * ....«.-.«. *..*.....♦••*♦..•♦•„.„: 

ERROR^U*'*?; S".°E.3l UH ft * N0 SUMM1 N0T EQUAL 0000. ' 
tKKUR SUM IS IN A REG. DISPLAV Sumpi lun cnuui .Z.Z I 

DETERMINE IF THEIR SUM SHOULD BE 0000 * ?F THE R Su2 I 

SHOULO BE 0000, DIAGNOSE THE PROBLEM. IF THElisS . 

SHOULD NOT BE 0000, EITHER SUMPL OR SUMNI l\ V"" I 

^ ERROR. RUN MANUAL ENTRY ADD TEST I PARAGRAPH 3.41. • 

: **♦♦**—«••*♦♦♦......♦...♦•.• ........„„.«.., .„.; 

• 301 ° • fN R ?2 E °i S !J E B T f^f?- CHECK * * E6 « «"■"" COULO BE I 

# » IN THE 1442 READER, OR IN ITS ATTACHMENT ri»riii?.« 1 

I * OR COULO BE CAUSED 8Y INTERMITTENT PROCESSOR ' ! 

: • FAILURES. RUN CARD 03 ONE^ARO PROGrSS" ^ I 

!•—•--—•— ♦••♦♦**—•••••••••*.*.*.....•....•.••....♦.♦„„„„.: 

WORD COUNT OF CARD JUST READ IN MAS FOUND tn »c ! 

» PROCESSOR CONSOLE. A READ-IN FAILURE IS POSSIBLE. • 

: *•••*♦•*••••;••♦«."..*.........•.•♦.♦••♦...♦ : 

* 4M9 • _ 



sen 



0048 






3011 



0068 



SUM OF LOCATION 0000 THROUGH 0026 IS NOT 0000 

"rTrEaTwI™ IE KXft ?" SUM ' C«M« ?S* 
0027 f i^M« u*«M?« e f lH L0C * TI ° N 0000 THROUGH 

SSlJ^jra," °S R ffift&TBI IZ 
OF CARD 11. REFER TO LISTING. IF ERROR «?.«««. 

StSi SKJJB.SE" 6 - « S " » -IS - 



.•"•"-•"••....~.....~.......„....„„.......„...„......., M ,.. # , <#<###: 

: : aBff.ara &&■&■:»• ^ssa ;.v m : 

;•»«....«.............:....„..„..„.......... ., .... n „ nn ....„„..„„,: 

* 9014 * this uiir it ,.. . . „ • 



• THIS WAIT IS IN A LOCATION THAT SHOULO NOT BF * 

• EXECUTE© UNTIL CARD 15 IS READ. CARD 15 HAS f IS ! 

• FIRST WORD STORED IN THAT LOCATION BY tiu ii "m ! 

: sets i?,sbb svj&ssse. w colww,$ : 



# - «» «w bw IN HOLLERITH CODED HEXAC 



WAIT * 

•raSSS'TSSRS': FARURE ' ""OHMENDEO ACTION 
.-.♦♦*♦•♦.♦„„, — :„.. M . 

3015 ! ?*"?*. IN ST0R «N0 THE PROGRAM FROM THE CARD IMACF 

! TRANSFER. THE FAILING ADDRESS CAN BE fSuND flj 
D SPLA "MODE iiS'/SS F ° R C * R0 l5 ' ?SWI?CH°t" 
?HE SP NEX V T M ?N°STR A ^TiSN°K AT ™ £ AD °* ESS '° S,T, ° N ° F 

IF THE ERROR OCCURRED WHILE LOADING CARD 16. RFFPn 



* 
* 

« 



3.2 



ONE-CARD PROGRAMS TEST PROCEDURE 



PROCESS OF BUILDING UP TMS inlnel IH ? ^OAOER IN THE NORMAL 

CAN BE rSn INDIwSSaLlVSy LOAOlla fSJS M r2Jf"5^° PR0CRA " 
PROGRAM LOAD MOOE. LOADING INTO CORE STORAGE UNDER 

3.2.1 CARO 03 PROGRAM TEST PROCEDURE 

B. ON 1442 SERIAL CARO REAO/PUNCH, 

1. DEPRESS NPRO PUSHBUTTON TO CLEAR FEEO. 

** » L * CE CAR0 °* FOLLOWED BY SUBSTANTIAL DECK f» 
BLANK CAROS IN HOPPER. »«»»«««ii«l DECK OF 



DEPRESS START PUSHBUTTON. 
SHOULO LIGHT. 



REAOV INDICATOR 
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C ON 1800 PROCESSOR OPERATOR'S CONSOLE. 

1. SET CHECK STOP SWITCH TO ON. 

2. DEPRESS RESET PUSHBUTTON. 

J. OEPRESS PRQG LOAD PUSHBUTTON. CARD 04 
SHOULD FEED, LOAO, AND BEGIN EXECUTION. 

D. PROGRAM SHOULO CAUSE ONE CARD TO FEED. CHECK THAT 
CARD HAS FED. 

E. CHECK THAT PROGRAM HAS STOPPED AT WAIT KITH 
L R !SI SIER READING OF 0008, B REGISTER READING 
OF 3001, ANO A REGISTER READING OF 0003. 

IF PROGRAM OOPS NOT STOP AT AOOVE MENTIONEO WAIT, 
CARD 03 HAY NOT HAVE LOAOEO CORRECTLY. REFER TO 
PROGRAM LISTING ANO OISPLAV EACH LOCATION. 

IF A REGISTER IS NOT 0003 I CARD READER BUSY ANO 
NOT READY) A OSM FAILURE IS INDICATED. REFER TO 

«!?HS5:. SEI Ul * AMICABLE SCOPE LOOP TO AIO IN 
1 AGNOSI S* 

IF ALL REGISTERS MfNTIONED ARE CORRECT OEPRESS START 

F* CHECK THAT PROGRAM HAS STOfPEO AT WAIT KITH I REGISTER 
READING OF 0008, B REGISTER READING OF 3003, AND 
A REGISTER READING 0? 0800. 

IF A REGISTER READING IS NOT 0800 HJP COMPLETE) 
AN ERROR DSM IS IN3ICATE0. SET UP APPLICABLE SCOPE 
LOOP. UTILUE AVAILABLE DIAGNOSTIC AIOS TO LOCATE THE 
PROBLEM. IF REGISTERS READ CO.IRECTLY AND IT IS DESIRED 
TO REPEAT STEPS TKT.OUGH F, DEPRESS RESET ANO START 
PUSHBUTTONS IN SUCCESSION. IF NOT, PROCEED TO STEP G. 

G. DEPRESS START PUSHBUTTON. 

H. PROGRAM SHOULO FEEO CARDS CONTINUOUSLY ANO SHOULO 

» = U T ? P „ UNLESS AN ERR0R " AIT OCCURS WITH I REGISTER 
READING OF 0022, B REGISTER READING OF 3003. THIS 

Ji!'JI ^ l !;?!S* ,ES fHAT AN ERJU3R os " H ** B «N 06TECTE0. 
THE OSU IS DISPLAYED BY THE A REGISTER. REFER TO 

^i!I! N ?:, DETERMINE THE PSU BITS THAT ARE IN ERROR. 
I?! R or A ?f 2? LY TW0 LEGAL DSM READINGS, 0003 ANO 0800. 
AJ,Y OTHER DSW READINGS ASE CONSIDERED TO BE IN ERROR 
BY THE PROGRAM. SET UP APPLICABLE SCOPE LOOP. 

SCOrlS OF°Kto M F A uV B T E ,^L W '* CM ° °» **»»*" " ™"" A " 
SCOPE LOOP SETUP 

♦»*•*•»*•♦•♦♦♦••*♦♦•* •♦•••♦♦♦♦♦♦••♦♦♦♦♦*« 1# **,,m # *„ ##w 
• TO READ CARDS CONTINUOUSLY, INSERT LDX /0001 6001 , • 
AT LOCATION 0003. * 

T ?«5f A0 CAR0 ' SEWSE * N0 RESET 0* M » INSERT LDX /0001 • 
6001 , AT LOCATION 0005, * 

TO SENSE OSU CONTINUOUSLY WITHOUT CARD READING, • 

INSERT LDX /0003 6003 , AT LOCATION 0005. * 
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3.2.2 CARD 0* - 08 PROGRAMS TEST PROCEOURE 

THE FOLLOWING TEST PROCEDURE DESCRIPTION APPLIES TO ANY 
ONE-CARD PROGRAM FROM 04 TO OB. 

A. ON 1442 SERIAL CARD READ/PUNCH, 

1. DEPRESS NPRO PUSHBUTTON TO CLEAR FEEO. 

2. PLACE ONE-CARD PROGRAM FOLLOWEO BY TWO BLANK 
CARDS IN HOPPER. 
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3.3 



3. OEPRESS START PUSHBUTTON. 
SHOULD LIGHT. 



READY INDICATOR 



CN 1800 PROCESSOR OPERATOR'S CONSOLE, 

1. OEPRESS RESET PUSHBUTTON. 

2. OEPRESS PROG LOAD PUSHBUTTON. CARD 

SHOULD FEEO, LOAO, ANO BEGIN EXECUTION. 

THE PROGRAM HILL RUN CONTINUOUSLY UNLESS AN ERROR 
OCCURS, IN WHICH CASE PROGRAM STOPS AT ERROR WAIT. 
REFER TO PROGRAM LISTING ANO TO TABLE 1 - ERROR 
WAIT DIAGNOSTIC GUIDE. 



MANUAL ENTRY ADO TEST 

THIS TEST HELPS LOCATE AN ADD FAILURE THAT CANNOT BE 
LOCATED WHEN RUNNING CARD OS OF ONE-CARD PROGRAMS IN 
SI KOOE BECAUSE OF THE DYNAMIC NATURE OF THE PROBLEM. 
IF THE CONTENTS OF SUMPL ANO SUMMI DO NOT ADO TO 0000. 
THERE HAS BEEN A FAILURE IN ADOING 0001 TO SUMPL 
OR A FAILURE IN AODING FFFF TO SUMMI. TO DETERMINE 
WHICH OF THE TWO SUMS IS IN ERROR, IT MUST BE ASSUMEO 
THAT ONE OF THEM IS CORRECT IN ORDER TO ARRIVE AT THE VALUE 
OF THE OTHER PRIOR TO THE FAILURE. IN OTHER WORDS, TO DETER- 
MINE VALUE OF SUMPL PRIOR TO FAILURE, IT MUST BE ASSUMED 
THAT PRESENT VALUE OF SUMMI IS CORRECT AND VICE VERSA. 

EXECUTE ADD TEST PROGRAM AS FOLLOWS. 

A. OBTAIN VALUE OF SUMPL PRIOR TO FAILURE BY DETERMINING 
TWO'S COMPLEMENT OF (SUMMI - FFFFJ. 

B. OBTAIN VALUE OF SUMMI PRIOR TO FAILURE BY DETERMINING 
TWO'S COMPLEMENT OF (SUMPL - OOOtt. 

C. LOAD FOLLOWING PROGRAM BY MEANS OF CONSOLE ENTRY 
SWITCHES. 



i-IJIr Z "»»' • "• l«l.»l IU« UUU9. • 
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LOCATION 
0000 



0001 



3.4 



NOTE 
ALL NUMBERS SHOWN BELOM ARE IN HEXADECIMAL NOTATION. 



CONTENTS NMEM0N1C 



COMMENTS 



VALUE OF SUMPL PRIOR TO ERROR 
0001 



0002 


CORRECT 


SUN OF ADDITION 


0003 


COFC 


LD 


0004 


80FC 


A 


COOS 


FOFC 


EOR 


0006 


4820 


asc i 


0007 


3000 


WAIT 


0008 


6003 


LOX 



WILL BE IN ACCUMULATOR WHEN 
ADO OCCURS. 

WILL BE AOOEO TO ACCUMULATOR 
DURING ADO. 

USEO TO CHECK ADO OPERATION. 

LOAD ACCUMULATOR FROM 
LOCATION 0000. 

ADO CONTENTS OF LOCATION 0001 
TO ACCUMULATOR. 

EOR ACCUMULATOR WITH CORRECT 
ANSWER. 

SKIP ON ZERO TO LOCATION 0008. 

WAIT. AN ERROR HAS OCCUREO. 

BRANCH TO LOCATION 0003. 



0. LOAD I REGISTER WITH 0003. 

E. RUN PROGRAM IN RUN MODE. AN ADD FAILURE WILL 
CAUSE PROGRAM TO STOP AT WAIT INSTRUCTION WITH 
I REGISTER INDICATOR INDICATING 0008. 

F. IF PROGRAM RUNS CONTINUOUSLY WITHOUT ERRORS . 

1. OEPRESS STOP PUSHBUTTON. 

2. LOAO LOCATION 0000 WITH VALUE OF SUNN I 
PRIOR TO ERROR. 

3. LOAO LOCATION 0001 WITH FFFF. 

4. LOAO LOCATION 0002 WITH CORRECT SUN OF 
SUMMI PLUS FFFF. 

5. RUN AGAIN IN RUN MODE. 

MANUAL ENTRY OATA-PATH TEST 

THIS TEST IS LOAOEO USING THE DATA ENTRY SWITCHES 

AND TESTS THE ABILITY OF THE 1800 PROCESSOR TO TRANSFER ONES 

AND 2ER0ES BETWEEN THE FOLLOWING REGISTERS. 

A. FROM 8 TO D TO A TO M TO I REGISTER. 

B. FROM A TO U TO A REGISTER. 

C. FROM A REGISTER TO B REGISTER. 
0. FROM I REGISTER TO B REGISTER. 
E. FROM I REGISTER TO A REGISTER. 



LOCATION 



FFFA 
FFFB 



TEST PROCEDURE 

A. USING CONTROLS OF 1800 PROCESSOR, CLEAR STORAGE TO 
WAIT INSTRUCTION (33FFI. SEE PARAGRAPH 3.1 . 

B. ENTER THE FOLLOWING PROGRAM USING DATA ENTRY SWITCHES. 



CONTENTS MNEMONIC 
C0O6 LO 



4480 



BSI I 



FFFC 


FFFO 




FFFD 


FFFO 




FFFE 


D002 


STO 


FFFF 


COFC 


LO 


0000 


4480 


BSI I 



0001 
0002 


0002 
0002 




0003 


OOF 8 


STO 


0004 


T0F5 


MOX 



COMMENTS 



LOAO ACCUMULATOR WITH CONTENTS OF 
LOCATION 0001. 

STORE CONTENTS OF I COUNTER IFFFOI 
AT ADDRESS STORED IN LOCATION FFFD. 
SET I COUNTER TO THAT ADDRESS ANO AOD 
ONE TO I COUNTER. 

AOORESS POSITION OF BSI 1 INSTRUCTION 

THIS IS THE ACTUAL BRANCH ADDRESS FOR 
THE BSI I INSTRUCTION AND IS 
REPLACED BY THE BSI I. 

STORE CONTENTS OF ACCUMULATOR AT 
LOCATION 0001 (SHOULD NOT CHANGE). 

LOAD ACCUMULATOR WITH CONTENTS OF 
LOCATION FFFC. 

STORE CONTENTS OF I COUNTER (00021 AT 

AOORESS STORED IN LOCATION 0002. SET 
I COUNTER TO THAT AOORESS AND ADD ONE 
TO I COUNTER. 

THIS IS ADDRESS POSITION OF BSI I 
INSTRUCTION. 

THIS IS THE ACTUAL BRANCH AOORESS FOR 
THE BSI I INSTRUCTION ANO IS REPLACED 
BY THE BSI I INSTRUCTION. 

STORE CONTENTS OF ACCUMULATOR AT 
LOCATION FFFC (SHOULO NOT CHANGE). 

BRANCH TO LOCATION FFFA. 



C. LOAD I REGISTER WITH FFFA. 

0. STEP THROUGH PROGRAM IN SI MODE, CHECKING THAT 

PROGRAM LOOPS PROPEPLY. ANY DATA-PATH ERROR SHOULD 
RESULT IN THE IMPROPER BRANCHING OF A BSI I INSTRUCION 
AND STOPPING AT A WAIT INSTRUCTION. THE LOCATION 
BEFORE THE WAIT INSTRUCTION SHOULO CONTAIN THE CON- 
TENTS OF I REGISTER WHEN THE BRANCH OCCURREO. 
LOGICAL RECONSTRUCTION OF THE ERROR SHOULD ISOLATE 
A DATA-TRANSFER ERROR ANO SUGGEST THE CIRCUIT CARO 
CAUSING THE ERROR. 
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NOTE 

A BRANCH OUTSIDE OF THE PROGPAM INTO A CORE 
LOCATION LOADED WITH 33FF INDICATES AN 
EflROR HAS CCCURRED. SUBTRACT TWO FROM I 
REGISTER INDICATOR READING AND DISPLAY THAT 
LOCATION. THE CONTENT OF LOCATION DISPLAYED 
IS THE I REGISTER SETTING WHEN THE ERRONEOUS 
BRANCH OCCURED. IF THE BRANCH WAS CAUSED BY 
A BSI I INSTRUCTION FAILURE, THE LOCATION JUST 
CHECKED WILL HAVE A VALUE, BY ONE, THAN THE 
ADDRESS OF THE SECOND WORD OF THE BSI I INSTROC- 
TION. IF THIS IS THE CASE, DISPLAY LOCATIONS WHERE 
PROGRAM IS STORED TO DETERMINE IF THE LOCATIONS 
HAVE CHANGED. THE ADDRESSES OF BSI I INSTRUC- 
TION ARfc STORED BY THE STO INSTRUCTIONS, AND 
THE LOCATIONS FFFO AND 0002 ARE STORED 
BY THE BSI I INSTRUCTIONS. STATIC OR INTERMITTENT 
DATA-TRANSFER ERRORS SHOULD BE REAOUY DETECTED 
BY THIS MEANS, AND BE EASY 10 ISOLATE BECAUSE OF 
THE UNIQUE FAILURE INDICATIONS. 

ERRORS IN THE DATA PATH PROGRAM SHOULD BE CAUSEO 
BY SINGLE BIT FAILURES, OR BY HALF-WORD FAILURES. 
THUS, DROPPED OR ADDED BITS CAN BE REFERENCED 
DIRECTLY TO A CIRCUIT CARD. SWAP INDICATED 
CIRCUIT CARD TO SEE IF FAILURE CHANGES. 

THE 0, U, A, AND D REGISTERS CIRCUIT CAROS 
ARE LOCATEO IN ROW 4 OF THE CARD GATE, ANO ARE 
INTERCHANGEABLE. 

THE I, B, AND M REGISTERS CIRCUIT CARDS ARE 
LOCATED IN ROW 6 OF THE CARO GATE, ANO ARE 

INTERCHANGEABLE. 

FAILING BIT- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

COLUMN CDEFGH J K 

THE FOLLOWING CARDS CONTROL HALF-WORD TRANSFERS 
AND ARE INTERCHANGEABLE. 

M4, MS, M7, L5, AND L6. 

PROGRAM DESCRIPTION 

THE LO INSTRUCTION AT LOCATION FFFA PERFORMS THE FUNCTION 
OF SETTING THE ACCUMULATOR TO 0002 SO THAT WHEN THE FOLLOWING 
BSI I INSTRUCTiON IS PERFORMED, A COMPLEMENT BIT PATTERN 
<FFFDJ WILL BE SENT THROUGH THE A REGISTER, THUS TESTING 
THAT THE A REGISTER IS RETURNEO TO 0002 AT THE END OF 
THE BSI I INSTRUCTION. THIS TEST IS ACCOMPLISHED BY STORING 
111 H?? T f NTS 0F rH£ * «E«STER BACK INTO LOCATION 0001 AFTER 
THE BSI I INSTRUCTION. THE SAME PHILOSO?HY IS USED DURING 
?n , Jci NSIRUCT,0N * T L0C «J°N 0000 BY SETTING THE A REGISTER 
TO FFFD WHILE 0002 IS SENT THROUGH IT DURING THE BSI I INSTAUC- 
I'oc^.c? FA,LUR£ OF E'THER BSI I INSTRUCTION THAT AFFECTS THE 
A REGISTER WILL CAUSE THE FOLLOWING BSI I INSTRUCTION TO TAKE 
ITS ADDRESS FROM THE WRONG LOCATION. THIS LOCATION WILL 

^?!fSJr V , BE °" E 0F TH£ C0RE LOCATIONS LOADEO NIT* 33FF, THUS 
CAUSING THE PROGRAM TO STOP. 



5. COMMENTS 

5.1 BASIC DIAGNOSTIC LOADER PHILOSOPHY 

THE 1800 BASIC DIAGNOSTIC LOADER IS A SELF-CHECKING PROGRAM 
USED TO LOAD THE PROCESSOR DIAGNOSTIC PROGRAMS, AND TO VERIFY 
THEIR CORRECT LOADING. THE LOADER CONTAINS ONE-CARD PROGRAMS 
USEO AS AIDS IN DIAGNOSIS OF BASIC FAILURES IN THE PROCESSOR. 
THESE ONE-CARD PROGRAMS NUMBERED 03 THROUGH OB IN COLUMNS 
79 AND 80 ARE NORMALLY EXECUTED WHILE IN THE PROCESS OF 
LOADING ANO BUILDING OF THE LOAOER. CARD 03 IS BYPASSEO. 

TABLE 3 CONTAINS A BREAKDOWN CF THE 1800 BASIC DIAGNOSTIC 
LOADER. CARD NUMBER, LOCATION IN STORAGE AND FUNCTION OF 
EACH CARD ARE SHOWN. 

THE FINAL LOADER USED TO LOAD THE MAIN PROGRAM CONSISTS OF 
THE CONBINEO PROGRAMS OF CARDS 02, 11, 14 AND 15. CAROS 01, 
10, 12, 13, ANO 16 ARE USEO IN THE PROCESS OF BUILDING ANO 
CHECKING THE LOADER. CARDS 03 THROUGH 08 ARE ONE-CARO 
PROGRAMS USED TO CHECK SPECIFIC PROCESSOR FUNCTIONS. 

THE FINAL LOADER PERFORMS THE FOLLOWING FUNCTIONS. 

A. READS A CARD INTO LOCATION 0000 TO 0027. 

B. CONTINUOUSLY CHECKS DSW WAITING FOR AN OP COMPLETE. 
ANY ERROR OSW IS SIGNALED BY PROGRAM STOPPING AT A 
SPECIFIED ERROR WAIT INSTRUCTION. 

C. CHECKS WORD COUNT AFTER OP COMPLETE IS RECEIVEO. 

WORD COUNT MUST NOT BE ZERO. IF A WORO COUNT OF ZERO IS 
OETECTED PROGRAM STOPS AT ERROR WAIT. 



D. 



FORMS CHECK SUM OF LOCATIONS 0000 THROUGH 0026. THE 
OEVELOPED CHECK SUM MUST BE 0000 OR PROGRAM STOPS AT 
ERROR WAIT. 

CHECKS LOCATION 0025 FOR STARTING ADDRESS WHERE WORDS 
MUST BE STORED INTO. IF THE ADDRESS IS 0000 PROGRAM 
ASSUMES LAST CARO OF PROGRAM HAS BEEN READ AND 
CONSEQUENTLY BRANCHES TO LOCAMON 0000 TO BEGIN EXECU- 
TION 0* MAIN PROGRAM. IF THE ADDRESS IS NOT 0000 
PROGRAM MOVES THE NUMBER OF WO :DS SPECIFIEO BY THE 
WORO COUNT FROM IMAGE AREA 10000 - 00271 TO 
AOORESS SPECIFIED IN LOCATION 0025, AND ABOVE. 

COMPARES IEORI EACH WORD MOVED FROM IMAGE AREA WITH 
THE CORRESPONDING WORD AT THE NEW LOCATION. FAILURE OF 
ANY ONE WORD TO COMPARE RESULTS IN ERROR WAIT INDICATING 
A TRANSFER ERROR. 

G. REPEATS ENTIRE PROCEDURE FOR EVERY CARD. 



F. 
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TABLE 2 






REFERENCE DATA 




» * • 


**************** 


* CARO ♦ STORAGE ♦ FUNCTION / COMMENTS 


• LOAOEO * 


» NO 


. • LOCATION • 


• BY * 


**»«*»«•« «a •••»«**♦»»*♦#♦.«»♦«,»**»»»*»«,»„,„,„ # 


***•**••*«*•*»•* 


* 01 


• QOOO-0027 • LOADS CARD 02 

• * 


* PROGRAM LOAD • 


• 02 


• O028-004F * LOADS CARDS 09 - 10 

• * 


* CARO 01 * 


♦ 03 


• 0000-0027 » XIO TEST. NORMAL LOAD 

• • BYPASSES THIS CARO. TO 

• * EXECUTE. LOAD CARO 03 

• * UNDER PROGRAM LOAO. 


• CARO 02 • 


* 0* 


* 0000-0027 • LDX TEST. MAY BE LOADEO 

* • UNOER PROGRAM LOAO. 


♦ CARO 02 • 


*—---- 


— * — - — — — -# ——„____ _ 


►— — •— — «»—.. — «.* 


• 05 


♦ 0000-0027 • 

• • TESTS READ IN FROM CARO 




• 06 


♦ 0000-0027 • READER, LOAO LONG, BSC 2 

* * AND EOR.EACH CARO MAY BE 


* CARD 02 * 


* 07 


• 0000-0027 • LOADEO SEPARATELY UNDER 

• • PROGRAM LOAD. 




* 08 


• 0000-0027 • 




» — 






• 09 


♦ 0000-0027 • OATA PATH TEST. MAY BE 

* • LOADEO UNDER PROGRAM < 

• • LOAO. « 

* * « 


► CARO 02 * 


* OA 


• 0000-0027 * EOR TEST. MAY BE LOADEO < 

• • UNDER PROGRAM LOAO. ) 

• * 


' CARO 02 « 


• OB 


• 0000-0027 • ADO TEST. MAY BE LOAOEO « 

• • UNOER PROGRAM LOAO. « 

• • 


' CARO 02 • 


• 10 


* 0000-0027 • READS CARO 11 OVER PART ' 

* • OF CARO 02 PROGRAM. i 

* * 


• CARO 02 * 


* 11 


• 0046-0068 • WITH LOCATIONS 0028-0045 « 

• • OF CARO 02, BECOMES * 

• ♦ LOADER FOR CARDS 12 ANO « 

• * 13. 4 

• • 4 


> CARO 10 * 


♦ 12 


* 0000-0027 • OATA TO CHECK THAT CARO « 


> CARO 02 * 




* * 02 AND 11 COMBINED « 


ANO 11 * 




* • PROGRAM IS CORRECT. • 

* • • 




• 13 


• 0000-0027 * READS CARDS 14 AND IS. 4 


CARO 02 * 




* * • 

• * • 


ANO 11 • 


* 14 


• 0068-0089 * MOVES CARO IMAGE TO • 

• • SPECIFIED LOCATIOM. • 

* * ft 


CARO 13 * 


• 15 


* 00B9-00A7 • VERIFIES TRANSFER OF • 

* * MOVEO WORDS. * 

* • • 


CARO 13 * 


• 16 


• 0100-0123 • OATA CARD TO CHECK THAT « 


CARDS 02, * 




* * FINAL LOADER IS WORKING * 


11, 14 ANO • 




* • PROPERLY. • 


15. (FINAL • 




* * • 


LOADER) * 


••*»••••« ••♦•**♦••»♦»«»♦♦»♦*♦••••»•*♦♦♦»•#«*#«* 


*»*»*♦»•*♦•*»*» 



5.2 DESCRIPTION OF ONE-CARO PROGRAMS 

ONE-CARD PROGRAMS ARE NUMBERED 03 THROUGH OB, ANO MAY BE 
RUN INDIVIDUALLY BY LOADING UNDER PROGRAM LOAD MODE. 
PROGRAMS 04 THROUGH OB ARE EXECUTEO ONCE WHILE LOADING THE 
BASIC LOADER TO INSURE THAT THE FUNCTIONS TESTEO BY THESE ONE- 
CARO PROGRAMS ARE FUNCTIONING PROPERLY. PROGRAM 03 IS 
BVPASSEO BY THE BASIC LOADER. 



5.2.1 



5.2.2 



5.2.3 



5.2.4 



5.2.5 



S.2.« 



THE CARO 03 PROGRAM IS A TWO PART PROGRAM. PART 1 READS 
A CARD, RESETS DSW, SENSES OSW ANO STOPS ON WAIT TO PERMIT 

c?nS A n=\!?»? £R,,:Y THAT TH£ 0SW ,S CORRECT. FOLLOWING DEPRES- 
SION OF START PUSHBUTTON, THE PROGRAM SENSES ANO RESETS THE 
DSW AND STOPS ON WAIT TO ALLOW VERIFICATION OF OSW. IF NO 
ERRORS ARE ENCOUNTERED, PART 2 MAY BE EXECUTED. PART 2 CAUSES 
CAROS TO FEED CONTINUOUSLY AND CHECKS THE OSW. IF ANY OSW 
ERRORS ARE EMCOUNTEREO, PROGRAM STOPS ON WAIT WITH A 

S^i S «!L°' SPLAV1NC THE * esuLT W *N EOR OF THE ERROR OSW 
WITH 0800 • 

JUrn C , A 2?. i„£ R0GRAM •'"FORMS A TEST OF THE LDX INSTRUCTION. 
INCORRECT OPERATION OF THE LDX INSTRUCTION CAUSES PROGRAM TO 
BRANCH TO AN ERROR WAIT. THE B REGISTER READING FOR THE 
! RR0R . HA,T MAY BE 30 °* ,F THE BR * N CH OCCURS WITHIN THE 
t2° CRA «: u °2 33FF ,f PMMM >* HAOE TO BRANCH OUTSIDE OF 

o*??c?cJ °t: °I AN0 ° 8 TEST THAT EACH B1T POSITION OF THE A 
rlt ? TER ^ AN C BE ,^° AOEO WUM A l AN0 A °« AN ""OR tN LOADING 
THE A REGISTER CAUSES AN ERROR WAIT. THE BSC I INSTRUCTION 

r , ?n«i S ?.. T i $T£0 ' FAIUWE * THE BSC 2 INSTRUCTION WOULD 
CAUSE AN ERROR WAIT STOP. CARD 05 TESTS BIT POSITIONS 
THROUGH 4. CARO 06 TESTS BIT POSITIONS 5 THROUGH 9. CARD OT 
TESTS BIT POSITIONS 10 THROUGH 14. THROUGH 9. CARO 07 

CARD 08 TESTS BIT POSITION 15 ANO IN AODITION CHECKS THAT EOR 
OF FFFF ANO FFFF RESULTS IN A REGISTER EOUAL 0000, AND 
THAT EOR OF 0000 AND 0000 ALSO RESULTS IN A REGISTER EOUAL 
0000. FAILURE OF EOR CAUSES PROGRAM TO STOP ON ERROR WAIT. 

CARO 09 PROGRAM IS A TEST OF DATA TRANSFER 8ETWEEN REGISTERS. 
THE TEST TRANSFERS CONSTANTS 3333 ANO CCCC ALTERNATELY BETWEEN 
?:S't;r A_B AN ° 5 -°- A - M "GISTERS BY PERFORMING LOAO. 
ANO STORE INSTRUCTIONS. FAILURE TO OBTAIN EXPECTED RESULTS 
CAUSES PROGRAM TO STOP ON ERROR WAIT. " PttTE ° RESULTS 

THE CARO OA PROGRAM IS A TEST OF EOR ACCOMPLISHED BY 
TESTIN& EACH BIT POSITION FOR THE FOLLOWING CONOITIOHS. 

* " 0-1 AANDO CORRESPOND TO 

* * 1 0«0 BIT POSITIONS IN THE A ANO 

B REGISTERS. 
FAILURE OF EOR RESULTS IN PROGRAM STOPPING ON ERROR 
WAI TV 

**.*.!? 0B e f* 0CRAH «S * TEST OF THE ADO OPERATION. THE TEST 
*,£«? rn F ™c£° NT£ 2 TS ° F SVHB 0«-«C LOCATION SUNNI, AOOS 
™2JcJ°c C 2 NTENTS 0F SyMB °«-IC LOCATION SUMPL, AND AOOS 
CONTENTS OF SUMMI ANO SUMPL. IF THE RESULTANT SUM IS 
2£00 THE ENTIRE PROCEDURE IS REPEATED. IF THE SUM IS NOT 
0000 THE PROGRAM STOPS ON ERROR WAIT. 
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3001 



ABS 
ORG 



/3001 



3001 014C 



3002 03B8 



3003 047B 



3004 0627 



3005 07A8 

3006 07DF 

3007 3007 

3008 3008 



3009 0371 



300A 0373 



*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*XXXXXXXXXXXXXXXXX PROGRAMMED WAITS IN THIS X 
*XXXXXXXXXXXXXXXXX PROGRAM x 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



DC 



WAIT1S1 



WAIT FOR DATA ENTRY 

* SWITCHES TO BE SET. 

* PUSH START TO 

* CONTINUE THE PROGRAM. 

a:******************.***************:}. **.»£.(. s^s^s 



DC 



WAIT261 



*********** **** *** **** 
DC WAIT3S1 



WAIT BEFORE ROUTINE, 
TERMINATE PROGRAM OR 
HALT ON ERROR. IF 
HALT ON ERROR OR 
TERMINATE PROGRAM, 
A PRINTOUT WILL OCCUR 
BEFORE THE WAIT. 
PUSH START TO CONTINUE 
OR RESTART. 
»***.,* ********* ********* 



1443 PRINTER IS NOT 

* READY. MAKE PRINTER 

* READY AND PUSH START. 

*************************** ***********^* < .*-c !> J. S 



DC 



WAIT4S1 



WAIT BECAUSE TYPE- 

* WRITER IS NOT READY. 

* MAKE TYPEWRITER READY 

* AND PUSH START TO 

* CONTINUE PROGRAM. 
^^i**************************-**,..^,..,:,)^^.,.** 
* 

DC WAIT5S1 LOST INTRPT. AFTER 

* TIMED WRT OR RD. 

**********************************£$*.[;$,. ,;,$.,. .«.,.,. 

* 

DC WAIT6S1 LOST INTRPT. AFTER BSP 

******************************< ^sjc** * #} j. ###***** 

DC /3007 NOT USED 
DC /3008 NOT USED 

******************** ^ft***************.^,,,^,^* 

S*************************************^.^*^.,. 

* 

* 

* ON ALL LOST INTERRUPT 

* WAITS, PUSH RESET 

* AND START TO RESTART. 

****************************** ^^ss^-s^ss^*,;. 

***********#************************;(.$;;: ^^^ 



DC 



WAIT9C1 



NO LEGAL DSW BIT ON 
AT INTERRUPT. PUSH 
RESET AND START TO 
RESTART PROGRAM. 
*********************** **,-****-,* *********<.$.;... 



DC 



WAITA61 



BLANK ILSW AT 

* INTERRUPT. PUSH 

* RESET AND START 

* TO RESTART THE PROGRAM. 
************************.;., >. =,.********* s **o. S!Jfe *^ :i! 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



8B900020 

8B900030 

8B900040 

8B900050 

8B900060 

8B900070 

8B900080 

8B900090 

8B900100 

8B900110 

8B900120 

8B9OO130 

8B900140 

8B900150 

8B900160 

8B900170 

8B900180 

8B900190 

8B900200 

8B900210 

8B900220 

8B900230 

8B900240 

8B900250 

8B900260 

8B900270 

8B900280 

8B900290 

8B900300 

8B900310 

8B900320 

8B900330 

8B900340 

8B900350 

8B900360 

8B900370 

8B900380 

8B900390 

8B900400 

8B900410 

8B900420 

8B900430 

8B900440 

8B900450 

8B900460 

8B900470 

8B900480 

8B900490 

8B900500 

8B900510 

8B900520 

8B900530 

8B900540 

8B900550 

8B900560 

8B900570 

8B900580 

8B900590 

8B900600 

8B900610 

8B900620 

88900630 

8B900640 

8B900650 

8B900660 

8B900670 

8B900680 

8B900690 



012C 

012C B900 



012D 

012F 

0131 

0132 

0133 

0134 

0136 

0137 

0138 

013A 

013C 

013D 

013E 

013F 

0141 

0142 

0143 

0145 

0147 

0149 

014B 

014C 

014E 



6700 
6F00 
6050 
63F9 
C30A 
D700 
7301 
70FB 
6700 
6F00 
6050 
631A 
COOF 
0700 
73FF 
70FC 
CCOO 
DCOO 
C400 
D480 
3001 
4C00 
0332 



0132 
0124 



02ED 



013D 
0124 



0008 



02D8 
0000 
02EE 
02E7 

02EF 



014F 

0150 

0151 
0153 

0155 

0156 

0157 

0158 

0159 
015A 
015B 
015C 
015D 
015E 
015F 
0160 
0161 
0162 
0163 
0164 
0165 

0166 

0167 

0168 

0169 
016A 
016B 
016C 
016D 
016E 
016F 

0170 

0171 



0172 



0000 

6373 

C700 0157 

D700 066C 

73FF 

70FA 

7073 

0308 

0712 

0308 

048B 

0080 

012F 

0080 

00C3 

00F8 

0131 

0OF5 

012E 

01E0 

0003 
0D40 
0002 
7100 
0001 
D4C0 
0001 
3880 
0000 
9C40 
0000 
4E20 
0000 
3E80 



ORG 
DC 
-XXXXXXXXX 
*XXXXXXXX 

■*xxxxxxxx 

* 

BEGN LDX 
STX 
LDX 
BEGN1 LDX 
BEGN2 LD 
STO 
MDX 
MOX 
LDX 
STX 
LDX 

BEGAP LDX 
LD 

BEGBA STO 
MDX 
MDX 
LDD 
STD 
LD 
STO 

WAIT1 WAI1 
BSC 

BEGX3 DC 

* 
* 
* 

BEGIN DC 
LDX 

BEGAN LD 
STO 
MDX 
MDX 
MDX 

BEGX8 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



300 

/B900 
XXXXXXXXXXXXXXX 
XXXXXXXXX ROUTI 
XXXXXXXXXXXXXXX 

L3 BEGN1 
L3 /0124 
X /0050 
3 -7 
3 10 
L3 EDITS9 
3 1 

BEGN2 
L3 BEGAP 
L3 /0124 
X /0050 
3 26 
BEGX3 
L3 8 
3 -1 
BEGBA 
L BEGX4 
L 

L ACTItl 
I EDITG3 

1 
L MONT 
SVINT 



PID 
XXXXXXXXXXXXXXXXXXXXXX 
NE TO READ EDIT CARDSX 
XXXXXXXXXXXXXXXXXXXXXX 

IX 3 * LDR RETURN 

STORE IN LDR 

GO TO LOADER 

IX # NO ENTRIES 

GET AN ENTRY 

SET IN EDIT FIELD 

DECR IX 

LOOP 

IX 3 * LDR RETURN 

STORE IN LOADER 

GO TO LOADER 

IX # NO LVLS 

GET COMMON INTR TRAP 

SET 

DECR IX REG 

LOOP 

SET RESTART 

* 

GET INTRPT RTN ADRS 

SET FOR TAPES 

WAIT FOR SWS 

COMMON INTR TRAP 



RESTORE PROGRAM TO 4 
MICROSEC MEM AND MOD 3 



DRS 




3 115 
L3 BEGX8-1 
L3 CON-1 
3 -1 
BEGAN 
BEGAC 
776 
1810 
776 
1163 
128 
303 
128 
195 
248 
305 
245 
302 
480 
3 

3392 
2 

28928 
1 

54464 
1 

14464 


40000 


20000 

16000 



SE 



CONSTANT 



GET BASE 
SET 

DECR IX 
LOOP 



RESTORE CONSTANTS 



8B900700 

8B900710 

8B900720 

8B90O730 

8B900740 

8B900750 

8B900760 

8B900770 

8B900780 

8B900790 

8B900800 

8B900810 

8B9OO820 

8B900830 

8B900840 

8B900850 

8B900860 

8B900870 

8B900880 

8B900890 

8B900900 

8B900910 

8B900920 

8B900930 

8B900940 

8B900950 

8B900960 

8B900970 

8B900980 

8B900990 

8B901000 

8B901010 

8B901020 

8B901030 

8B901040 

8B901050 

8B901060 

8B901070 

8B901080 

8B901090 

8B901100 

8B901110 

8B901120 

8B901130 

8B901140 

8B901150 

8B901160 

8B901170 

8B901180 

8B901190 

8B901200 

8B901210 

8B901220 

8B901230 

8B901240 

8B901250 

8B901260 

8B901270 

8B901280 

8B901290 

8B901300 

8B901310 

8B901320 

8B901330 

8B901340 

8B901350 

8B901360 

8B901370 



>ATE 
EC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 

411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
1 



^ATE 
cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
1A 



F 
L 
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0173 





0000 


0174 





2EE0 


0175 





0000 


0176 





1F40 


0177 





0000 


0178 





OFAO 


0179 





0000 


017A 





0C80 


017B 





0000 


017C 





0960 


0170 





0000 


017E 





0640 


017F 





0000 


0180 





0578 


0181 





0000 


0182 





04B0 


0183 





0000 


0184 





03E8 


0165 





0000 


0186 





0384 


0187 





0000 


0188 





0320 


0189 





0000 


018A 





02BC 


018B 





0000 


018C 





0258 


0180 





0000 


018E 





01F4 


018F 





0000 


0190 





0190 


0191 





0000 


0192 





0168 


0193 





0000 


0194 





0140 


0195 





0000 


0196 





0118 


0197 





0000 


0198 





OOFO 


0199 





0000 


019A 





OOOC 


019B 





0000 


019C 





00C8 


0190 





0000 


019E 





00B4 


019F 





0000 


01A0 





OOAO 


01A1 





0000 


01A2 





008C 


01A3 





0000 


01A4 





0078 


01A5 





0000 


01A6 





006 E 


01A7 





0000 


01A8 





0064 


01A9 





0000 


01AA 





005A 


01AB 





0000 


01AC 





0050 


01AD 





0000 


01AE 





0046 


01AF 





0000 


01B0 





003C 


01B1 





0000 


01B2 





0032 


01B3 





0000 


01B4 





002C 


01B5 





0000 


01B6 





0028 



DC 





DC 


12000 


DC 





DC 


8000 


DC 





DC 


4000 


DC 





DC 


3200 


DC 





DC 


2400 


DC 





DC 


1600 


DC 





DC 


1400 


DC 





DC 


1200 


DC 





DC 


1000 


DC 





DC 


900 


DC 





DC 


800 


DC 





DC 


700 


DC 





DC 


600 


DC 





DC 


500 


DC 





DC 


400 


DC 





DC 


360 


DC 





DC 


320 


DC 





DC 


280 


DC 





DC 


240 


DC 





DC 


220 


DC 





DC 


200 


DC 





DC 


180 


DC 





DC 


160 


DC 





DC 


140 


DC 





DC 


120 


DC 





DC 


110 


DC 





DC 


100 


DC 





DC 


90 


DC 





DC 


80 


DC 





DC 


70 


DC 





DC 


60 


DC 





DC 


50 


DC 





DC 


44 


DC 





DC 


40 



PART NO. 
PAGE 



8B901380 

8B901390 

8B901400 

8B901410 

8B901420 

8B901430 

8B901440 

8B901450 

8B901460 

8B901470 
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8B901510 

8B901520 

8B901530 

8B901540 

8B901550 

8B901560 

8B901570 

8B901580 

8B901590 

8B901600 

8B901610 

8B901620 

8B901630 

8B901640 

8B901650 

8B901660 

8B901670 

8B901680 

8B901690 

8B901700 

8B901710 

8B901720 

8B901730 

8B901740 

8B901750 

8B901760 

8B901770 

8B901780 

8B901790 

8B901800 

8B901810 

8B901820 

8B901830 

8B901840 

86901850 

8B901860 

8B901870 

8B901880 

8B901890 

8B901900 

8B901910 

8B901920 
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01B7 





0000 


01B8 





0024 


01B9 





0000 


01BA 





0020 


01BB 





0000 


01BC 





001C 


01BD 





0000 


01 BE 





0018 


01BF 





0000 


01CO 





0016 


01C1 





0000 


01C2 





0014 


01C3 





03C0 


01C4 





0780 


01C5 





4D92 


01C6 





0003 


01C7 





0000 


01C8 





0025 


01C9 





004B 


01CA 





0070 



DC 





DC 


36 


DC 





DC 


32 


DC 





DC 


28 


DC 





DC 


24 


DC 





DC 


22 


DC 





DC 


20 


DC 


960 


DC 


1920 


DC 


19858 


DC 


3 


DC 





DC 


37 


DC 


75 


DC 


112 



*xxxxxxxxxxxxxxxxxxxxxx 

*XXXXXXXXXXXXXXXXX EDIT 
♦XXXXXXXXXXXXXXXXXXXXXX 

* 



XXXXXXXXXXXXXXXXXXXXXXX 

ROUTINE XXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXX 





* 
* 
* 






SET 


PROGRAM TO MEM SPEED 


01CB C400 02EC 


# 
BEGAC 


LD 


L 


EDIT68 


GET MEM SPEED 


01CD 4C30 0202 




BSC 


L 


BEGAD-1,; 


I- BR IF 4.00 US 


01CF 4C10 020F 




BSC 


L 


BEGAE,- 


BR IF 2.00 US 


01D1 636F 




LDX 


3 


111 




01D2 10A0 


BAK 


SIT 




32 


SETUP 


01D3 C700 066C 




LD 


L3 


SPEC 


CONSTANTS 


01D5 1882 




SRT 




2 


FOR 


01D6 AOOB 




M 




ARIA1+1 


2.25 US MEMORY 


01D7 A80B 




D 




ARIA1+2 




01D8 1002 




SLA 




2 




01D9 D700 066C 




STO 


L3 


SPEC 




01DB 73FF, 




MDX 


3 


-1 




01DC 70F5 




MOX 




BAK 




01DD C006 




LD 




ARIA1+3 




01DE D400 06DC 




STO 


L 


MLGX7 




01E0 7005 




MDX 




PART2 


BR TO CONT. SETUP 


01E1 FFFF 


ARIA1 


DC 




/FFFF 


X 


01E2 OOOF 




DC 




/OOOF 


T 


01E3 0011 




DC 




/0011 


N 


01E4 0025 




DC 




/0025 


T 


01E5 FFFF 


PART2 


DC 




/FFFF 


S 


01E6 C811 


LDD 




ARIA5 


SETUP 


01E7 DCOO 067A 




STD 


L 


MT5X0 


SPECIAL 


01E9 C810 




LDD 




ARIA5+2 


DOUBLE 


01EA DCOO 067C 




STD 


L 


MT5X0+2 


WORO 


01EC C80F 




LDD 




ARIA5+4 


CONSTANTS 


01ED DCOO 067E 




STD 


L 


MT5X0+4 




01EF C80E 




LDD 




ARIA5+6 




01FO DCOO 0680 




STD 


L 


MT5X0+6 




01F2 COOO 




LD 




ARIA5+8 




OIF 3 D400 06DB 




STO 


L 


GPHLM 




01F5 6400 0213 




LDX 


L 


BEGAF 




OIF 8 0000 




BSS 


E 







01F8 0002 


ARIA5 


i DC 




/0002 


D C 


01F9 B150 




DC 




/B150 


W 


01FA 0002 




DC 




/0002 


U N 


01FB 2778 




DC 




/2778 


B R S 


01FC 0001 




DC 




/0001 


LOT 



8B902060 
8B902070 
8B902080 
8B902090 
8B902100 
8B902110 
8B902120 
8B902130 
8B902140 
8B902150 
8B902160 
8B902170 
8B902180 
8B902190 
8B9022O0 
8B902210 
8B902220 
8B902230 
8B902240 
8B902250 
8B902260 
8B902270 
8B902280 
8B902290 
8B902300 
8B902310 
8B902320 
8B902330 
8B902340 
8B902350 
$ 8B902360 

$ 8B902370 
$ 8B902380 
$ 8B902390 
$ 8B902400 
$ 8B902410 
$ 8B902420 

* 8B902430 
$ 8B902440 

* 8B902450 
$ 8B902460 
$ 8B902470 
$ 8B902480 
$ 8B902490 
$ 8B9O250O 
$ 8B902510 
$ 8B90252O 
$ 8B902530 

* 8B902540 
$ 8B902550 
$ 8B902555 
$ 8B902560 
$ 8B902570 
$ 8B902580 
$ 8B902590 
$ 8B902600 
$ 8B902610 
$ 8B902620 
$ 8B902630 
$ 8B902640 
$ 8B902650 
S 8B902660 
$ 8B902670 
$ 8B902680 
$ 8B902690 
$ 8B902700 
t 8B902710 
* 8B902720 



■■ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 
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01FD 





9D98 






DC 




/9D98 


E A 


$ 


8B902730 


01FE 





0001 






DC 




/0001 


N 


$ 


8B902740 


01FF 





13B8 






DC 




/13B8 


T 


$ 


8B902750 


0200 





0002 






DC 




/0002 


S 


$ 


8B902760 


0201 





FFFF 




-£ 


DC 




/FFFF 




$ 
$ 


8B902770 
8B902775 


0202 





636F 






LDX 


3 


111 




$ 


8B902780 


0203 





C700 


066C 


BEGAD 


LD 


L3 


CON-1 


GET A CONSTANT 




8B902790 


0205 





1801 






SRA 




1 


DVD BY 2 




8B902800 


0206 





D700 


066C 




STO 


L3 


CON-1 


SET 




8B902810 


0208 





73FF 






MDX 


3 


-1 


OECR IX 




8B902820 


0209 





70F9 






MDX 




BEGAD 


LOOP 




8B902830 


020A 





C400 


066B 




LD 


L 


C0NV1 


GET CONV CONSTANT 




8B902840 


020C 





0400 


06 DC 




STO 


L 


MLGX7 


SET 




8B902850 


020E 





7004 




* 


MDX 




BEGAF 






8B9O2860 
8B902870 










* 






MEMORY SPEED IS 2 MICROSEC 




8B902880 










=£ 












8B902890 


020F 





C400 


066A 


BEGAE 


LD 


L 


CONV 


GET CONV CONSTANT 




8B902900 


0211 





D400 


06 DC 


* 
* 


STO 


L 


MLGX7 

EDIT 


TO DRIVE MODEL 




86902910 
8B902920 
8B902930 
8B902940 


0213 





C500 


02EA 


BEGAF 


LD 


LI 


EDIT66 


GET DR MODEL 




8B902950 


0215 





4808 






BSC 




6 


ARE THEY MOD 3 




8B902960 


0216 





7052 






MDX 




BEGAM 


YES 




8B902970 


0217 





F400 


036E 




EOR 


L 


ONE 






8B902980 


0219 





4820 






BSC 




Z 


ARE THEY MOD 1 




8B9O2990 


021A 





7076 




* 


MDX 




BEGAI 

SET 


NO 
PROGRAM TO MODEL 1 




8B903000 
8B903010 
8B903020 
8B903030 


021B 





C400 


06D9 




LD 


L 


TURA1 


GET TURNAROUND 




8B903040 


021D 





D400 


0679 




STO 


L 


MT1X0 


SET 




8B9Q305O 


021F 





C400 


06DD 




LD 


L 


M0D1S 


GET TAPE SPEED 




8B903060 


0221 





D400 


06DF 




STO 


L 


INPSE 


SET 




8B903070 


0223 





C400 


06DB 




LD 


L 


GPHLM 


GET GR LN MOD 




8B903080 


0225 





1001 






SLA 




1 


MUL BY 2 




8B903090 


0226 





8400 


06DB 




A 


L 


GPHLM 


MUL BY 1 




8B903100 


0228 





D400 


06 DB 




STO 


L 


GPHLM 


SET MODIFIER 




8B903110 


022A 





6304 






LDX 


3 


4 






86903120 


022B 





10A0 




BEGAG 


SLT 




32 


CLEAR A AND Q 




8B903130 


022C 





C700 


066C 




LD 


L3 


CON-1 


GET A CONSTANT 




8B903140 


022E 





A400 


0D84 




M 


L 


MT7X0 


MUL BY 10 




8B903150 


0230 





18D0 






RTE 




16 


SET IN ACCUM 




8B903160 


0231 





8400 


0679 




A 


L 


MT1X0 


ADD TURNAROUND 




8B903170 


0233 





D700 


066C 




STO 


L3 


CON-1 


SET 




8B903180 


0235 





73FF 






MDX 


3 


-1 


DECR IX 




8B903190 


0236 





70F4 






MDX 




BEGAG 


LOOP 




8B903200 


0237 





C400 


06DA 




LD 


L 


MD1LM 


GET READ LIMIT 




8B903210 


0239 





0400 


066E 




STO 


L 


C0NS1 


SET 




8B903220 


023B 





6308 






LDX 


3 


8 






8B903230 


023C 





C700 


0670 


BEGAR 


LD 


L3 


C0N1-1 


GET A CONSTANT 




8B903240 


023E 





1001 






SLA 




1 


MUL BY 2 




8B903250 


023F 





8700 


0670 




A 


L3 


C0N1-1 


MUL BY 1 




8B903260 


0241 





D700 


0670 




STO 


L3 


C0N1-1 


SET 




8B903270 


0243 





73FF 






MDX 


3 


-1 


DECR IX 




8B903280 


0244 





70F7 






MDX 




BEGAR 


LOOP 




8B903290 


0245 





C400 


02EC 




LD 


L 


EDIT68 


GET MEM SPEED 




8B903300 


0247 





4C18 


0262 




BSC 


L 


FWRD.+- 


BR IF 2.00 US 


$ 


8B903310 


0249 





4C10 


02D5 




BSC 


L 


BEGAK,- 


BR IF 4.00 US 


$ 


8B903320 


024B 





C010 






LD 




ARIA2 




$ 


8B903330 


024C 





D400 


0675 




STO 


L 


MT5XA 


SETUP 


$ 


8B903340 


024E 





COOE 






LD 




ARIA2+1 


FOR 


$ 


8B903350 


024F 





D400 


0676 




STO 


L 


MT5XA+1 


2.25 US 


$ 


8B903360 


0251 





COOC 






LD 




ARIA2+2 


MEMORY 


$ 


8B903370 


0252 





D400 


0677 




STO 


L 


MT5XA+2 


SPEED 


$ 


8B903380 


0254 





COOA 






LD 




ARIA2+3 


AND 


$ 


8B903390 



0255 





D400 


0678 




STO 


L 


MT5XA+3 


MOD 1 


$ 


8B903400 


0257 





C008 






LD 




ARIA2+4 


TAPE 


$ 


8B903410 


0258 





D400 


06DB 




STO 


L 


GPHLM 


CONSTANTS 


$ 


8B903420 


025A 





4C00 


02D5 




BSC 


L 


BEGAK 


BR TO EXIT SETUP 


$ 


8B903430 


025C 





029C 




ARIA2 


DC 




/029C 




$ 


8B903440 


025D 





0310 






DC 




/0310 


MOD 1 


$ 


8B903450 


025t 





0294 






DC 




/0294 


TAPE 


$ 


8B903460 


025F 





0308 






DC 




/0308 


CONSTANTS 


$ 


3B903470 


0260 





0008 






DC 




/0008 


2.25 US 


$ 


8B903480 


0261 





FFFF 






DC 




/FFFF 




$ 


8B903490 


0262 





7402 


0677 


FWRD 


MDX 


L 


MT5XA+2.2 


ADJ GRPH LIMITS 


$ 


8B903500 


0264 





74FF 


0678 




MDX 


L 


MT5XAS3.-1 


# 




8B903510 


0266 





7401 


06DB 




MDX 


L 


GPHLM, 1 


-* 




8B903520 


0268 





706C 




* 


MDX 




BEGAK 


BR TO EXIT 


$ 


8B903530 
8B903535 


0269 





C400 


02EC 


BEGAM 


LD 


L 


EDIT+8 


GET P/C SPEED XTNT 


$ 


8B903540 


026B 





4828 






BSC 




Z + 


SKIP IF NEG. 


$ 


8B903550 


026C 





7003 






MDX 




* + 3 


BR IF NOT 2.25 US 


$ 


8B903560 


026D 





C400 


06 DB 




LD 


L 


GPHLM 




$ 


8B903570 


026F 





7017 






B 




FWD1 


SETUP 


$ 


8B903580 


0270 





C010 






LD 




ARIA3 


MOD 3 


$ 


8B903590 


0271 





D400 


0675 




STO 


L 


MT5XA 


TAPE 


$ 


8B903600 


0273 





COOE 






LD 




ARIA3+1 


CONSTANTS 


$ 


8B903610 


0274 





D400 


0676 




STO 


L 


MT5XA+1 


FOR 


$ 


8B903620 


0276 





COOC 






LD 




ARIA3+2 


2.25 US P/C 


$ 


8B903630 


0277 





D400 


0677 




STO 


L 


MT5XA+2 




$ 


86903640 


0279 





COOA 






LD 




ARIA3+3 




$ 


8B903650 


027A 





D400 


0678 




STO 


L 


MT5XA+3 




$ 


8B903660 


027C 





C008 






LD 




ARIA3+4 




$ 


8B903670 


027D 





D400 


06DB 




STO 


L 


GPHLM 




$ 


8B903680 


027F 





4C00 


02D5 




BSC 


L 


BEGAK 


BR TO EXIT 


$ 


8B903690 


0281 





00 DO 




ARIA3 


DC 




/OODO 




$ 


8B903700 


0282 





OOFB 






DC 




/OOFB 


MOD 3 


$ 


8B90371O 


0283 





OOCE 






DC 




/OOCE 


TAPE 


$ 


8B903720 


0284 





OOF 9 






DC 




/00F9 


CONSTANTS 


$ 


8B903730 


0285 





0002 






DC 




/0002 




$ 


8B903740 


0286 





FFFF 




* 


DC 




/FFFF 




$ 
$ 


8B903750 
8B903755 


0287 





1801 




FWD1 


SRA 




1 


CK FOR 1 


$ 


8B903760 


0288 





4C20 


02D5 




BSC 


L 


BEGAK, Z 


BR # NOT 1 




8B903770 


028A 





7401 


06DB 




MOX 


L 


GPHLM, 1 


SET TO 2 




8B903780 


028C 





7407 


0676 




MDX 


L 


MT5XAG1.7 


ADJ GPH LMTS 




8B903790 


028E 





7406 


0678 




MDX 


L 


MT5XA£3,6 






8B903800 


0290 





7044 




* 
* 


MDX 




BEGAK 

CHECK 


FOR MODEL 2 




8B903810 
8B903820 
8B903830 


0291 





C500 


02EA 


BEGAI 


LD 


LI 


EDIU6 


GET DR MODEL 




8B903840 
8B903850 


0293 





F400 


0610 




EOR 


L 


C0DEH&2 






8B903860 


0295 





4820 






BSC 




Z 


ARE THEY MODEL 2 




8B903870 


0296 





703E 




-s 


MDX 




BEGAK 


NO 




8B903880 
8B903890 










* 






SET PROGRAM TO MODEL 2 




8B903900 


0297 





C400 


06D8 


* 


LD 


L 


TURA2 


GET TURNAROUND 




8B903910 
8B903920 


0299 





D400 


0679 




STO 


L 


MT1X0 


SET 




8B903930 


029B 





C400 


06DE 




LD 


L 


M0D2S 


GET TAPE SPEED 




8B903940 


029D 





D400 


06DF 




STO 


L 


INPSE 


SET 




8B903950 


029F 





7401 


06DB 




MDX 


L 


GPHLM, 1 






8B903960 


02A1 





6304 






LDX 


3 


4 






8B903970 


02A2 





10AO 




BEGAJ 


SLT 




32 


CLEAR A AND 




8B903980 


02A3 





C700 


066C 




LD 


L3 


CON-1 


GET A CONSTANT 




88903990 


02A5 





1001 






SLA 




1 


MUL BY 2 




86904000 


02A6 





D700 


066C 




STO 


L3 


CON-1 


SET 




8B904010 


02A8 





73FF 






MDX 


3 


-1 


DECR IX 




8B904020 


02A9 





70F8 






MDX 




BEGAJ 


LOOP 




8B904030 


02AA 





6308 






LDX 


3 


8 






8B904040 


02AB 





C700 


0670 


BEGAS 


LD 


L3 


C0N1-1 


GET A CONSTANT 




8B9O4050 



">ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


01QCT67 


14N0V69 


3OJAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
3 



'ATE 


01JUL66 


01NQV66 


15MAY67 


01SEP67 


010CT67 


14NOV69 


30JAN70 


cC NO. 
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411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
3A 



F 
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02AD 





1801 






SRA 




1 


MUL BY .5 


02AE 





8700 


0670 




A 


L3 


C0N1-1 


MUL BY 1 


02B0 





0700 


0670 




STO 


L3 


C0N1-1 


SET 


02B2 





73FF 






MDX 


3 


-1 


DECR IX 


02B3 





70F7 






MDX 




BEGAS 


LOOP 


02 B4 





7401 


0677 




MDX 


L 


MT5XA62.1 


ADJ GRPH LMT 


02B6 





C035 






LD 




EDIT68 


GET MEM SPEED 


02B7 





4C18 


0201 




BSC 


L 


FWD2,+- 


BR IF 2.00 US P/C 


02B9 





4C10 


0205 




BSC 


L 


BEGAK,- 


BR IF 4.00 US P/C 


02BB 





COOF 






LD 




ARIA4 




02BC 





D400 


0675 




STO 


L 


MT5XA 


SETUP 


02BE 





COOD 






LD 




ARIA4+1 


FOR 


02BF 





D400 


0676 




STO 


L 


MT5XA+1 


2.25 US P/C 


02C1 





COOB 






LD 




ARIA4+2 


AND 


02C2 





0400 


0677 




STO 


L 


MT5XA+2 


MOD 2 


02C4 





C009 






LD 




ARIA4+3 


TAPE 


02C5 





0400 


0678 




STO 


L 


MT5XA+3 


CONSTANTS 


02C7 





C007 






LD 




ARIA4+4 




02C8 





D400 


0679 




STO 


L 


MT5XA+4 




02CA 





700A 






MDX 




BEGAK 


BR TO EXIT 


02CB 





0148 




ARIA4 


DC 




/0148 




02CC 





0194 






DC 




/0194 


MOD 2 


02CD 





0144 






DC 




/0144 


TAPE 


02CE 





0190 






DC 




/0190 


CONSTANTS 


02CF 





0004 






DC 




/0004 




0200 





FFFF 




£ 


DC 




/FFFF 




0201 





74FF 


0678 


FWD2 


MDX 


L 


MT5XA+3t-l 


ADJ GPH CNST 


0203 





7401 


060B 




MDX 


L 


GPHLM.l 


* 


02D5 





4C80 


014F 


BEGAK 

* 

* 
* 
* 
* 
* 
* 


BSC 


I 


BEGIN 

GO TO 


EXIT 

PROG INITILIZATION 














CONSTANTS 


0208 




0000 




BSS 


E 







02D8 





4C00 


013D 


BEGX4 


BSC 


L 


BEGAP 


RESTART CONSTANT 


02DA 





02E1 




BEGX5 


DC 




SHO 


IOCC-READ BIT SWS 


020B 





0240 






DC 




/0240 




020C 





02E2 




BEGX7 


DC 




SW1 


READ PROG SWS IOCC 


020D 





0260 






DC 




/0260 





* 

♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
♦XXXXXXXXXXXXXXXXX PROGRAM STATUS TABLE XXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* 



020E 





B900 


02DF 





0000 


02E0 





0000 


02E1 





0000 


02E2 





0000 


02E3 





FFFF 


02E4 





7000 


02E5 





3000 


02E6 





0000 


02E7 





0000 


02E8 





0000 


02E9 





0000 


02EA 





0000 


02EB 





0000 


02EC 





0000 


02ED 





0000 


02EE 





0313 



PID 


DC 


RID 


DC 


RAD 


DC 


SWO 


DC 


SW1 


DC 


TERM 


DC 


EDIT 


DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 


* 




* 




* 




ACTI 


DC 




DC 



/B900 







ROUTINE NUMBER 





ROUTINE ADDRESS 





SWITCH ENTRY 1 





SWITCH ENTRY 2 


/FFFF 


TERMINATOR 


/7000 


TAPE AREA CODE 


/3000 


1443 AREA CODE 





ILSW BIT -TAPES 





INTR ADRS-TAPES 





NUMBER TRACKS DR 





NUMBER TRACKS DR 1 





DRIVE MODEL 





DRIVE 1 MODEL 





MEMORY SPEED 


DSW 


TABLE 





AREA CODE TAPES 


INTR361 


INTR RTN TAPES 



8B904060 

8B904070 

8B904080 

8B904090 

8B904100 

8B904110 

8B904120 

$ 8B904130 

$ 8B904140 

t 8B904150 

$ 8B904160 

$ 8B904170 

$ 8B904180 

$ 8B904190 

$ 8B904200 

$ 8B904210 

$ 8B904220 

$ 8B904230 

$ 8B904240 

t 8B904250 

$ 8B904260 

$ 8B904270 

$ 8B904280 

$ 8B904290 

$ 8B904300 

$ 8B904310 

$ 8B904315 

$ 8B904320 

8B904330 

SX 8B904340 

8B904350 

8B904360 

8B904370 

8B904380 

8B904390 

8B904400 

8B904410 

8B904420 

8B904430 

8B904440 

8B904450 

8B904460 

8B904470 

8B904480 

8B904490 

8B904500 

8B904510 

8B904520 

8B904530 

8B904540 

8B904550 

8B904560 

8B904570 

8B904580 

8B904590 

8B904600 

8B904610 

8B904620 

8B904630 

8B904640 

8B904650 

8B904660 

8B904670 

8B904680 

8B904690 

8B904700 

8B904710 

8B904720 







* 










8B904730 






*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B904740 






*XXXXXXXXXXXXXXXXX INITIALIZATION ROUTINE XXXX 


8B904750 






*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B904760 






# 










8B904770 


02EF 630B 




MONT 


LDX 


3 


11 


CLEAR DST TABLE 


8B904780 


02F0 1010 






SLA 




16 




8B904790 


02F1 D700 


06DF 


MONTI 


STO 


L3 


DST-1 




8B904800 


02F3 73FF 






MDX 


3 


-1 




8B904810 


02F4 70FC 




* 


MDX 




MONTI 




8B904820 
8B904830 






* 






SET 


NECESSARY VALUES 


8B904840 






* 










8B904850 


02F5 1010 






SLA 




16 




8B904860 


02F6 D0E8 






STO 




RID 


CLEAR RTN NO 


8B904870 


02F7 D400 


093B 




STO 


L 


PGSW 


CLEAR PROG SW 


8B904880 


02F9 COEA 






LD 




EDIT 


GET TAPE AREA CODE 


8B904890 


02FA D0F2 






STO 




ACTI 


SET 


8B904900 


02FB D400 


06E8 




STO 


L 


DST68 




8B904910 


02FD 0804 






XIO 




UNMK3 


UNMASK ALL LEVELS 


8B904920 


02FE 0805 






XIO 




UNMK4 




8B904930 


02FF 4006 






BSI 




RDSWS 


READ SWS 


8B904940 


0300 4C00 


06F0 




BSC 


L 


M0NT4 


BRANCH 


8B904950 


0302 0000 






BSS 


E 







8B904960 


0302 0000 




UNMK3 


DC 







IOCC-UNMASK LOWER 


8B904970 


0303 0480 






DC 




/0480 




8B904980 


0304 0000 




UNMK4 


DC 







IOCC-UNMASK UPPER 


88904990 


0305 0481 




* 


DC 




/0481 




8B905000 
8B905010 


0306 0000 




RDSWS 


DC 









8B905020 


0307 08D2 






XIO 




BEGX5 


READ DATA SWS 


8B905030 


0308 08D3 






XIO 




BEGX7 


READ PROG SWS 


8B905040 


0309 C0D8 






LD 




SW1 


ADJ PROG SWS 


8B905050 


030A 1005 






SLA 




5 




8B905060 


030B 1800 






SRA 




13 




8B905070 


030C D0D5 






STO 




SW1 


# 


8B905080 


030D 4C80 


0306 




BSC 


I 


RDSWS 


EXIT 


8B905090 






♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B905100 






♦XXXXXXXXXXXXXXXXX INTERRUPT ROUTINE XXXXXXXXX 


8B905110 






*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B905120 






* 










88905130 


03 OF 6600 


0000 


TAXI 


LDX 


L2 





RESTORE IX 


8B905140 


0311 C856 






LDD 




TAAQ 


RESTORE A AND 


8B905150 


0312 4C40 


0000 


INTR3 


BOSC 


L 





ENTRY AND EXIT 


8B905160 


0314 6AFB 






STX 


2 


TAXltl 


SAVE IX 2 


8B905170 


0315 0852 






STD 




TAAQ 


SAVE A AND Q 


8B905180 


0316 084F 






XIO 




ILSW 


SENSE ILSW BIT 


8B905190 


0317 4418 


0371 




BSI 


L 


TERR. 6- 


BRANCH ON BLANK ILSW 


8B905200 


0319 EOCC 






AND 




E0IT&2 


CK IF TAPE 


8B905210 


031A 4C20 


031E 




BSC 


L 


INTRR, Z 


BRANCH # TAPE 


8B905220 


031C 4015 






BSI 




SVINT 


BRANCH-NOT TAPE 


8B905230 


031D 70F1 






MDX 




TAXI 


GO EXIT 


8B905240 


031E C04B 




INTRR 


LD 




DSW 


BUILD SENSE DSW 


8B905250 


031F FOCD 






EOR 




ACTI 


* 


8B905260 


0320 D04A 






STO 




DSWE1 


* 


8B905270 


0321 0848 






XIO 




OSW 


SENSE-NO RESET 


8B905280 


0322 C048 






LD 




oswei 


BUILD RESET SENSE 


8B905290 


0323 F04A 






EOR 




ONE 


* 


8B905300 


0324 D046 






STO 




DSW61 


* 


8B905310 


0325 0844 






XIO 




DSW 


SENSE-RESET 


8B905320 


0326 D045 






STO 




TADSW 


SAVE SENSE WD 


8B905330 


0327 6600 


06E0 




LDX 


L2 


: DST 


SET IX 


8B905340 


0329 C042 






LD 




TADSW 


GET SENSE WD 


8B905350 


032A E042 






AND 




TAOWC 


CK FOR LEGAL 


8B905360 


032B 4808 






BSC 




6 


SKIP # LEGAL 


8B905370 


032C 4042 






BSI 




ERRI 


ILLEGAL DSW 


8B905380 


032D C03E 






LD 




TADSW 


GET SENSE WD 


8B905390 


032E 0207 






STO 




! 7 


SET IN DST 


8B905400 



^ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


"cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
4 



N ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
4A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



032F 70DF 




MDX 


TAXI 


0330 0000 




BSS 


E 


0330 0701 


DSWSP 


DC 


/0701 


0331 0000 


* 
* 


DC 






EXIT 



SENSE-RESET IOCC 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE TO SERVICE XXXXX 
*XXXXXXXXXXXXXXXXX NON-PROGRAM GENERATED XXXXX 
*XXXXXXXXXXXXXXXXX INTERRUPTS XXXXX 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



0332 0000 




SVINT 


DC 







0333 D030 






STO 


SVIO 


SAVE ACCUMULATOR 


0334 COAE 






LD 


TERM 


SET ILLEGAL INTR 


0335 D400 


06E7 




STO L 


DST£7 


* 


0337 082E 






XIO 


ILSW 


RESET ILSW 


0338 7402 


0362 




MDX L 


SV7.2 


SET PASS SWITCH 


033A 1010 






SLA 


16 




033B 0023 






STO 


SV4 


CLEAR AREA CODE CNTR 


033C C020 






LD 


SV2 




0330 0023 






STO 


SV6 


SET IOCC IN USE SW 


033E C01D 




SVINO 


LD 


SV1 




033F D020 






STO 


SV5 


SET MODIFIER COUNTER 


0340 C01E 




SVIN1 


LD 


SV4 


* 


0341 100B 






SLA 


11 


* 


0342 E81D 






OR 


SV5 


*BUILD IOCC 


0343 E81D 






OR 


SV6 


* 


0344 0020 






STO 


SVIO&l 


* 


0345 08 IE 






XIO 


SVIO 


SENSE OSW AND RESET 


0346 74FF 


0360 




MDX L 


SV5,-1 




0348 70F7 






MDX 


SVIN1 


BRANCH IF NOT ALL MD 


0349 7401 


035F 




MDX L 


SV4tl 


INCREMENT AREA CODE 


034B C013 






LD 


SV4 




034C 900E 






S 


SVO 


CHECK IF ALL AC USED 


0340 4808 






BSC 


£ 


SKIP IF ALL AC USED 


034E 70EF 






MDX 


SVINO 


GO SENSE WITH NXT AC 


034F 74FF 


0362 




MDX L 


SV7,-1 


SKIP IF SECOND PASS 


0351 7001 






MDX 


*61 




0352 7005 






MDX 


SVEXT-1 




0353 COOA 






LD 


SV3 




0354 DOOC 






STO 


SV6 


SET IOCC FOR PI 


0355 1010 






SLA 


16 




0356 0008 






STO 


SV4 


SET AC FOR NEXT 


0357 70E6 






MDX 


SVINO 


*PASS 


0358 COOB 






LD 


SVIO 


RESTORE ACCUMULATOR 


0359 4CC0 


0332 


SVEXT 

# 


BOSC I 


SVINT 


EXIT 






* 




** 


CONSTANTS ** 


035B 001F 




SVO 


DC 


/001F 


NUMBER OF AREA CODES 


035C OOFF 




SV1 


DC 


/OOFF 


NUMBER OF MODIFIERS 


0350 0701 




SV2 


DC 


/0701 


SENSE/RESET DSW 


035E 0700 




SV3 


DC 


/0700 


SENSE/RESET PISW 


035F 0000 




SV4 


DC 





AREA CODE INDICATOR 


0360 0000 




SV5 


DC 





MODIFIER INDICATOR 


0361 0000 




SV6 


DC 





IOCC IN USE 


0362 0000 




SV7 


DC 





PASS SWITCH 


0364 0000 






BSS E 







0364 0000 




SVIO 


DC 





SENSE DSW IOCC 


0365 0000 




;£ 


DC 











* 
* 




CONSTANTS 


0366 0000 




BSS E 







0366 0000 




ILSW 


DC 





SENSE ILSW IOCC 


0367 0300 






DC 


/0300 





IE 



IX 



PART NO. 
PAGE 



8B905410 
8B905420 
8B905430 
8B905440 
8B905450 
8B905460 
8B905470 
8B905480 
8B905490 
8B905500 
8B905510 
8B905520 
8B905530 
8B905540 
8B905550 
8B905560 
8B905570 
8B905580 
8B905590 
8B905600 
8B905610 
8B905620 
8B905630 
8B905640 
8B905650 
8B905660 
8B905670 
8B905680 
8B905690 
8B905700 
8B905710 
8B905720 
8B905730 
8B905740 
8B905750 
8B905760 
8B905770 
8B905780 
8B905790 
8B905800 
8B905810 
8B905820 
8B905830 

8B905840 
8B905850 
8B905860 
8B905870 
8B905880 
8B905890 
8B905900 
8B905910 
8B905920 
8B905930 
8B905940 
8B905950 
8B905960 
8B905970 
8B905980 
8B905990 
8B906000 
8B906010 

8B906020 
8B906030 
8B906040 
8B906050 
8B906060 
8B906070 
8B906080 



2196491 

5 
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PART NO. 2196491 
PAGE 5A 



0368 





0000 


TAAO 


DC 





A AND TEM STOR 


0369 





0000 




DC 







036A 





0700 


DSW 


DC 


/0700 


DSW IOCC 


036B 





0000 




DC 







036C 





0000 


TADSW 


DC 





TAPE OSW STORAGE 


036D 





3040 


TADWC 


DC 


/3040 


CK TAPE DSW FOR OK 


036E 





0001 


ONE 

* 
* 


DC 


1 


CONSTANT 










ERROR 


HANGS 


036F 





0000 


ERRI 


DC 







0370 





3009 


WAIT9 


WAIT 


9 


ILLEGAL INTRPT 


0371 





0000 


TERR 


DC 







0372 





300A 


WAITA 


DC 


/300A 


BLANK ILSW 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX COMMON OCC ROUTINE XXXXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



0373 
0374 
0375 







0000 
6A10 
6780 


0373 


DCC 


DC 

STX 

LDX 


2 

13 




DCC2S1 

DCC 


SAVE IX 2 
1X3 # RETURN 


0377 
0378 






C300 
DOFA 




J£ 


LD 
STO 


3 



DCC 


GET 


ADRS OF S 


0379 





6680 


0373 


# 


LDX 


12 


DCC 


1X2 


# ADRS ST 


037B 
037D 
037F 








C680 
EE80 
EE80 


0000 
0001 
0002 


* 


LD 
OR 
OR 


12 
12 
12 



1 
2 


SET 
SET 
SET 


AREA CODE 

FUNC 

MODIFIER 


0381 
0382 






1890 
C203 




* 


SRT 

LD 


2 


16 
3 


PUT 
GET 


IN Q 
I/O ADRS 


0383 
0384 






D806 
6600 


0000 


DCC2 


STD 
LDX 


L2 


DCC3 



SET IOCC WD 
RESTORE IX 2 


0386 





0803 




* 

DCC3 


XIO 




DCC3 


DO COMMAND 


0387 
038A 





4F00 
0002 


0001 


BSC 
BSS 


L3 
E 


1 
2 


RETURN 



sx 



* 
*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*XXXXXXXXXXXXXXXXX COMMON DELAY ROUTINE XXXXXX 
<-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



038C 





0000 




DELAY 


DC 









038D 





6780 


038C 




LDX 


13 


DELAY 


1X3 # RETURN 


038F 





CF80 


0000 




LDD 


13 





GET COUNT 


0391 





980C 




JDLY2 


SD 




MONE 


SUB 1 


0392 





D80D 






STD 




MST 


SAVE 


0393 





4C20 


398 




BSC 


L 


JDLY3.Z 


CK FOR ZERO 


0395 





18D0 






RTE 




16 




0396 





4C18 


039A 




BSC 


L 


JDLY4,£- 


CK FOR ZERO 


0398 





C807 




JDLY3 


LDD 




MST 


GET COUNT 


0399 





70F7 






MDX 




JDLY2 




039A 





7401 


038C 


JDLY4 


MDX 


L 


DELAY, 1 


£1 TO RETURN 


039C 





4C80 


038C 




BSC 


I 


DELAY 


RETURN 


039E 




0000 






BSS 


E 







039E 





0000 




MONE 


DC 









039F 





0001 






DC 




1 




03A0 





0000 




MST 


DC 









03A1 





0000 






DC 










SE 



SX 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX COMMON SENSE DEVICE RTN XXX 



8B906090 

8B906100 

8B906110 

8B906120 

8B906130 

8B906140 

8B906150 

8B906160 

8B906170 

8B906180 

8B906190 

8B906200 

8B906210 

8B906220 

8B906230 

8B906240 

8B906250 

8B906260 

8B906270 

8B906280 

8B906290 

8B906300 

8B906310 

8B906320 

8B906330 

8B906340 

8B906350 

8B906360 

8B906370 

8B906380 

8B906390 

8B906400 

8B906410 

8B906420 

8B906430 

8B906440 

8B906450 

8B906460 

8B906470 

8B906480 

8 B9 06490 

8B906500 

8B906510 

8B906520 

8B906530 

8B906540 

8B906550 

8B906560 

8B906570 

8B906580 

8B906590 

8B906600 

8B906610 

8B906620 

8B906630 

8B906640 

8B906650 

8B906660 

8B906670 

8B906680 

8B906690 

8B906700 

8B906710 

8B906720 

8B906730 

8B906740 

8B906750 

8B906760 



^ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


..-C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 

PAGE 
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5 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
5A 



F 
L 
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PAGE 6 



2400 TIMING TEST 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



03A2 


0000 




DIND 


DC 









03A3 


6780 


03A2 




LDX 


13 


DIND 


IX 3 * RETURN 


03A5 


C780 


0000 




LD 


13 





LOAD AREA CODE 


03A7 


F006 






EOR 




FNC 


SET FUNCT 


03A8 


F780 


0001 




EOR 


13 


1 


SET MOD 


03AA 


D006 






STO 




iocci&i 


SAVE 


03AB 


0804 






XIO 




IOCCl 


SENSE 


03AC 


4F00 


000 3 




BSC 


L3 


3 


RETURN 


03AE 


0700 




FNC 


DC 




/0700 




03B0 


0000 






BSS 


E 







03B0 


0000 




I0CC1 


DC 









03B1 


0000 






DC 










*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX COMMON HALT ROUTINE XXXXXXX 
♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* 



03B2 





oooo 




HALT 


DC 









03B3 





0C00 


043E 




XIO 


L 


MK15 


MASK ALL LEVELS 


03B5 





ocoo 


0440 




XIO 


L 


MK27 


* 


03B7 





3002 




WAIT2 


WAIT 




2 


COMMON WAIT 


03B8 





ocoo 


0302 




XIO 


L 


UNMK3 


UNMASK 


03BA 





ocoo 


0304 




XIO 


L 


UNMK4 


UNMASK 


03BC 





4C80 


03B2 




BSC 


I 


HALT 


RETURN 


03BE 





0000 




WC 

* 


DC 







WD CT STORAGE 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE TO CONTROL XXXX 
*XXXXXXXXXXXXXXXXX CONVERSION AND LOGGING XXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



03BF 





0000 




LOGC 


DC 









03C0 





6D00 


564 




STX 


LI 


L0GC761 


SAVE IXING 


03C2 





6E00 


0566 




STX 


L2 


L0GC861 


* 


03C4 





6F00 


0568 




STX 


L3 


LOGC 961 


* 


03C6 





6500 


08F7 




LDX 


LI 


MODO 


IX 1 # ADRS OF MSG 


03C8 





6600 


0D96 




LDX 


L2 


PRA 


IX 2 # ADR OF MSG 


03 C A 





631F 






LDX 


3 


31 


IX 3 # LNGTH/OUTPUT 


03CB 





1010 






SLA 




16 


SET ACCUM # BLANK 


03 CC 





D700 


0D91 


LOGIC 


STO 


L3 


PRA 4-1 


SET I/O AREA # BLANK 


03CE 





73FF 






MDX 


3 


-1 




03CF 





70FC 






MDX 




LOGIC 




03D0 





6700 


08F7 




LDX 


L3 


MODO 


IX 3 # ADRS OF MSG 


0302 





C100 






LD 


1 





GET LINE NO/WD CT 


03D3 





1808 






SRA 




8 


SAVE LINE NUMBER 


03D4 





4C18 


0499 




BSC 


L 


LOGDOtS- 


BRANCH # LINE ZERO 


03D6 





7306 




L0G2C 


MDX 


3 


6 


SET 1X3 # 2ND MOD 


03D7 





7210 






MDX 


2 


16 


SET 1X2 # 2ND MOD 


0308 





C100 






LD 


1 





GET WD CT/LINE NO 


03D9 





1008 






SLA 




8 




03DA 





1808 






SRA 




8 


SAVE WD CT 


03DB 





D0E2 






STO 




we 




03DC 





74FC 


03BE 




MDX 


L 


WCt-4 


DECR WD CT 


03DE 





7001 






MOX 




L0GV1 


NOT DONE 


03DF 





7039 






MDX 




L0G6C 


CONV COMPLETE 


03E0 





1010 




LOG VI 


SLA 




16 


CLEAR ODD-EVEN SW 


03E1 





D400 


0462 




STO 


L 


sw 


* 


03E3 





C400 


02DF 




LD 


L 


RID 


GET RTN ID 


03E5 





F07D 






EOR 




K007 


CK FOR RTN 7 


03E6 





4820 






BSC 




Z 


SKIP = RTN 7 


03E7 





7016 






MDX 




L0G3C 


BRANCH 


03E8 





6700 


0930 




LDX 


L3 


MTTYD 


SET IX 3 


03EA 





C300 




L0GV2 


LD 


3 





GET WD 


03EB 





0400 


05E5 




STO 


L 


WDCON 


SET 


03ED 





4400 


05A6 




BSI 


L 


HEDEC 


CONVERT TO DEC 


03EF 





C400 


05DB 




LD 


L 


CODEtl 


GET CONVERTED WO 



8B906770 
8B906780 

SE 8B906790 
8B906800 
8B906810 
8B906820 
8B906830 
8B906840 
86906850 

SX 8B906860 
8B906870 
8B906880 
8B906890 
8B906900 
8B906910 
8B906920 
8B906930 
8B906940 
8B906950 

SE 8B906960 
8B906970 
8B906980 
8B906990 
8B907000 
8B907010 

SX 8B907020 
8B907030 
8B907040 
8B907050 
8B907060 
8B907070 
8B907080 
8B907090 

SE 8B907100 
86907U0 
8B907120 
8B907130 
8B907140 
8B907150 
8B907160 
8B907170 
8B907180 
8B907190 
8B907200 
8B907210 
8B907220 

8B907230 
8B907240 
8B907250 
8B907260 
8B907270 
88907280 
8B907290 
8B907300 
8B907310 
8B907320 
&8907330 
8B907340 
8B907350 
8B907360 
8B907370 
8B907380 
8B907390 
8B907400 
8B907410 
&B907420 
88907430 
8B907440 



ENANCt DIAGNOSTIC 


PROGRAM 


FOR THE 


1800 SYSTEM 


NG TEST 












03F1 D200 




STO 


2 





SFT IN MSG 


03F2 7201 




MDX 


2 


1 


INCR IX 


03F3 7301 




MDX 


3 


1 


* 


03F4 7401 0462 




MDX 


L 


SW,1 


INCR SWITCH 


03F6 C066 




LD 




sw 


GET SWITCH 


03F7 4804 




BSC 




E 


SKIP IF EVEN 


03F8 70F1 




MDX 




L0GV2 


LOOP 


03F9 7201 




MDX 


2 


1 


INCR IX 


03FA 74FF C3BE 




MDX 


L 


WCi-1 


CK FOR DONE 


03FC 70ED 




MDX 




L0GV2 


LOOP 


03FD 701B 




MDX 




L0G6C 


PRINT 


03FE C101 


L0G3C 


LD 


1 


1 


GET HEX/DEC SW 


03FF 4C18 0411 




BSC 


L 


L0G5C6- 


BRANCH # HEX 


0401 C300 




LD 


3 





GET WD TO CONV 


0402 D400 05E5 




STO 


L 


WDCON 


SET IN CONV RTN 


0404 4400 05A6 




BSI 


L 


HEDEC 


GO CONV TO DEC 


0406 CCOO 05DA 




LDD 


L 


CODE 


GET PACKED WD 


0408 D200 


L0G4C 


STO 


2 





SET IN MSG 


0409 18D0 




RTE 




16 




040A D201 




STO 


2 


1 




040B 7203 




MDX 


2 


3 




040C 7301 




MDX 


3 


1 


INCR IX 3 


040D 74FF 03BE 




MDX 


L 


WC-1 


CHECK FOR DONE 


040F 70EE 




MDX 




L0G3C 




0410 7008 




MDX 




L0G6C 




0411 C300 


L0G5C 


LD 


3 





GET WD TO CONVERT 


0412 D400 0606 




STO 


L 


HEXWD 


STO IN HEX CONV RTN 


0414 4400 05E6 




BSI 


L 


HEXCV 


GO CONVERT TO HEX 


0416 CCOO 060C 




LDD 


L 


HEXCD 


GET CONVERTED WD 


0418 70EF 




MDX 




L0G4C 


GO CK FOR DONE 


0419 C400 02E3 


L0G6C 


LD 


L 


TERM 


GET A TERM 


041B D200 




STO 


2 





SET IN I/O AREA 


041C C400 02DF 




LD 


L 


RID 


GET RTN NO 


041E 9045 




S 




K006 


SUB 6 


041F 4820 




BSC 




Z 


SKIP IF RTN 6 


0420 7015 




MOX 




HERE 




0421 C400 0D2E 




LD 


L 


LOW 


GET LOW CREEP SW 


0423 4810 




BSC 




- 


SKIP IF NEG 


0424 7003 




MDX 




HERE1 




0425 C03F 




LD 




K0020 


GET NEG SIGN 


0426 0400 0DA5 




STO 


L 


PRA4&19 


SET IN MSG 


0428 C400 0D30 


HERE1 


LD 


L 


AVG 


GET AVG SW 


042A 4810 




BSC 




- 


SKIP IF NEG 


042B 7003 




MDX 




HERE2 




042C C038 




LD 




K0020 


GET NEG SIGN 


042D D400 0DA8 




STO 


L 


PRA4622 


SET IN MSG 


042F C400 0D2F 


HERE2 


LD 


L 


HI 


GET HI SW 


0431 4810 




BSC 




- 


SKIP IF NEG 


0432 7003 




MDX 




HERE 




0433 C031 




LD 




K0020 


GET NEG SIGN 


0434 D400 ODAB 


# 


STO 


L 


PRA4625 


SET IN MSG 


0436 C400 02E1 


HERE 


LD 


L 


swo 


GET SWS 


0438 1806 




SRA 




6 




0439 4C04 0466 




BSC 


L 


LOGACiE 


BRANCH # USE PRINTER 


043B 4C00 052A 


* 


BSC 


L 


LOGBC 


USE TYPEWRITER 


043E 0000 


BSS 


E 







043E FFFF 


MK15 


DC 




/FFFF 


MASK ALL LVLS IOCCS 


043F 0480 




DC 




/048O 




0440 FFFF 


MK27 


DC 




/FFFF 




0441 0481 




DC 




/0481 




0442 0700 


SNSPR DC 




/0700 




0443 0700 




DC 




/0700 




0444 6500 0000 


L0G7C LDX 


LI 


RESTORE IX 1 


0446 6600 0000 


L0G8C LDX 


L2 


RESTORE IX 2 


0448 6700 0000 


L0G9C LDX 


L3 


RESTORE IX 3 


044A 4C80 03BF 




BSC 


I 


LOGC 


EXIT 



PART NO. 2196491 
PAGE 6A 



8B907450 
8B907460 
8B907470 
8B907480 
86907490 
8B907500 
8B907510 
8B907520 
8B907530 
8B907540 
8B907550 
8B907560 
8B907570 
8B907580 
8B907590 
8B907600 
8B907610 
8B907620 
8B907630 
8B907640 
8B907650 
8B907660 
8B907670 
8B907680 
8B907690 
8B907700 
8B907710 
SRC 8B907720 
8B907730 
8B907740 
8B907750 
8B907760 
8B907770 
8B907780 
8B907790 
8B907800 
8B907810 
8B907820 
8B907830 
8B907840 
8B907850 
8B907860 
8B907870 
8B907880 
8B907890 
8B9O7900 
8B907910 
8B907920 
8B907930 
8B907940 
8B907950 
8B907960 
8B907970 
8B907980 
8B907990 
8B908000 
8B908010 
8B908020 
8B908030 
8B908040 
8B908050 
8B908060 
8B908070 
8B908080 
8B908090 
8B908100 
86908110 
SX 8B908120 



^ATE 
cC NO. 



01JUL66 01N0V66 15MAY67 01SEP67 010CT67 14N0V69 30JAN70 
415178 415233 411731 411857 411875 431319 431319A 



PROG ID 
PAGE 



08B9-2 
6 



ATE 01JUL66 01N0V66 15MAY67 01SEP67 010CT67 14N0V69 30JAN70 
^C NO. 415178 415233 411731 411857 411875 431319 431319A 



PROG ID 
PAGE 



08B9-2 
6A 
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044C 





0000 




PCCO 


DC 









044D 





69F7 






STX 


1 


L0G7C&1 


SAVE IX 1 


044E 





6AF8 






STX 


2 


L0G8CC1 


SAVE IX 2 


044 F 





6BF9 






STX 


3 


L0G9CS1 


SAVE IX 3 


0450 





C010 






LD 




PCCX1 


GET WD CT 


0451 





D400 


08F7 




STO 


L 


MODO 


SAVE 


0453 





C0F8 






LD 




PCCO 


GET RETURN 


0454 





D400 


03BF 




STO 


L 


LOGC 


SAVE 


0456 





C400 


02E3 




LD 


L 


TERM 


GET TERMINATOR 


0458 





D400 


ODAE 




STO 


L 


PRA4S28 


SET IN MSG 


045A 





C400 


02E1 




LD 


L 


SWO 


GET SW FNC 


045C 





1806 






SRA 




6 




045D 





4C04 


0466 




BSC 


L 


LOGACE 


BRANCH # USE PRINTER 


045F 





4C00 


052A 




BSC 


L 


LOGBC 


USE TYPEWRITER 


0461 





0009 




PCCX1 


DC 




9 


PCCO WD CT 


0462 





0000 




SW 


DC 







ODD-EVEN SW 


0463 





0007 




K007 


DC 




/0007 


CONSTANT 7 


0464 





0006 




K006 


DC 




6 


CONSTANT 


0465 





0020 




K0020 


DC 




/0020 


* 



SE 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*-XXXXXXXXXXXXXXXXX PRINTER OUTPUT ROUTINE XXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



0466 





6B18 




LOGAC 


STX 


3 


L0GABS1 


SAVE IX 3 


0467 





C400 


08F7 




LD 


L 


MODO 


GET WD CT/ LINE NO 


0469 





1008 






SLA 




8 


SAVE WD CT 


046A 





1808 






SRA 




8 




046B 





D001 






STO 




L0GADS1 




046C 





6700 


0000 


LOGAD 


LDX 


L3 





IX 3 # WD CT 


046E 





C700 


048F 




LD 


L3 


PRWC-2 


GET FINAL WD CT 


0470 





D400 


0D92 




STO 


L 


PRA4 


SAVE 


0472 





COCF 






LD 




SNSPR 


GET SENSE IOCC 


0473 





F400 


02E5 




EOR 


L 


EDITS1 


SET AREA CODE 


0475 





DOCD 






STO 




SNSPRU 


SAVE 


0476 





08C7 






XIO 




MK15 


MASK ALL LVLS 


0477 





08C8 






XIO 




MK27 


* 


0478 





08C9 






XIO 




SNSPR 


SENSE PRINTER 


0479 





4804 






BSC 




E 


IS PRINTER READY 


047A 





3003 




WAIT3 

* 


WAIT 




3 


PRINTER NOT READY 










* 

*********£: 


»********************************,.* 


047B 





4400 


0373 




BSI 


L 


DCC 


GO LOG 


047D 





05 AO 






DC 




L0GX3 


ADRS OF STRING 










*****: 


*****: 


**«: 


{* *r £ £ =( S&- & 3jc & jj; 


********************Je* 


047E 





6700 


0000 


LOGAB 


LDX 


L3 





RESTORE IX 3 


0480 





08C1 




LOGAE 


XIO 




SNSPR 


SENSE PRINTER 


0481 





1002 






SLA 




2 




0482 





4810 






BSC 




- 


IS PRTR CMPL ON 


0483 





70FC 






MDX 




LOGAE 


NO 


0484 





COBE 






LD 




SNSPRU 


GET IOCC 


0485 





F400 


036E 




EOR 


L 


ONE 


SET BIT 15 


0487 





DOBB 






STO 




SNSPRU 


SAVE 


0488 





08 B9 




LOGAF 


XIO 




SNSPR 


SENSE PRINTER 


0489 





1801 






SRA 




1 




048A 





4804 






BSC 




E 


IS PRTR BUSY 


048B 





70FC 






MDX 




LOGAF 


YES 


048C 





OCOO 


0302 




XIO 


L 


UNMK3 


UNMASK ALL LEVELS 


048E 





OCOO 


0304 




XIO 


L 


UNMK4 




0490 





70B3 






MDX 




L0G7C 


GO EXIT 


0491 





OOOE 




PRWC 


DC 




14 


WORD CTS FOR PRINTER 


0492 





0013 






DC 




19 




049 3 





0016 






DC 




22 




0494 





0019 






DC 




25 




0495 





00 1C 






DC 




28 




0496 





00 IF 






DC 




31 




0497 





0022 






DC 




34 





8B908130 
8B908140 
8B908150 
8B908160 
8B908170 
8B908180 
8B908190 
8B908200 
8B908210 
8B908220 
8B90823O 
8B908240 
8B908250 
8B908260 
8B908270 
8B908280 
8B908290 
8B908300 
86908310 
8B908320 
8B908330 
8B908340 
8B908350 
8B908360 
8B908370 
8B908380 
8B908390 
8B908400 
8B908410 
8B908420 
8B908430 
8B908440 
8B908450 
8B908460 
8B908470 

8B908480 
8B908490 

8B908500 
8B908510 
8B908520 
8B908530 
8B908540 
8B908550 
8B908560 
8B908570 
8B908580 
8B908590 
8B908600 
8B908610 
8B908620 
8B908630 
8B908640 
8B908650 
8B908660 
8B908670 
8B908680 
86908690 
8B908700 
8B908710 
86908720 
8B908730 
8B908740 
8B908750 
86908760 
8B908770 
86908780 
8B908790 
8B908800 



0498 





001C 


DC 




28 






0499 





C102 


LOGDO LD 


1 


2 


GET WO TO CONV 


049A 





D400 0606 


STO 


L 


HEXWD 


SET IN RTN 




049C 





4400 05E6 


BSI 


L 


HEXCV 


GO CONVERT 




049E 





CCOO 060C 


LDD 


L 


HEXCD 


GET CONVERTED 


WD 


04A0 





DCOO 0D96 


STD 


L 


PRA 


SET IN MSG 




04A2 





C104 


LD 


1 


4 


GET MSG ID 




04A3 





D400 0606 


STO 


L 


HEXWD 


SET IN RTN 




04A5 





4400 05E6 


BSI 


L 


HEXCV 


GO CONVERT TO 


HEX 


04A7 





CCOO 060C 


LDD 


L 


HEXCD 


GET CONVERTED 


WD 


04A9 





D400 0D99 


STO 


L 


PRA63 


SET IN MSG 




04AB 





18 DO 


RTF 




16 


MOVE Q TO A 




04AC 





D400 0D9A 


STO 


L 


PRA&4 


SET IN MSG 




04AE 





C400 02DF 


LD 


L 


RID 


GET RTN NUMBER 


04B0 





0400 0606 


STO 


L 


HEXWD 


SET IN RTN 




04B2 





4400 05E6 


BSI 


L 


HEXCV 


GO CONVERT TO 


HEX 


04B4 





CCOO 060C 


LDD 


L 


HEXCD 


GET CONVERTED 


WD 


04 B6 





DCOO 0D9C 


STD 


L 


PRA&6 


SET IN MSG 




04B8 





C400 02E0 


LD 


L 


RAD 


GET RTN ADRS 




04BA 





D400 0606 


STO 


L 


HEXWD 


SET IN RTN 




04BC 





4400 05E6 


BSI 


L 


HEXCV 


GO CONVERT TO 


HEX 


04BE 





CCOO 060C 


LDD 


L 


HEXCD 


GET CONVERTED 


WD 


04C0 





D400 0D9F 


STO 


L 


PRA&9 


SET IN MSG 




04C2 





18D0 


RTF 




16 


MOVE Q TO A 




04C3 





D400 ODAO 


STO 


L 


PRA610 


SET IN MSG 




04C5 





C105 


LD 


1 


5 


GET DRIVE NO 




04C6 





D400 0606 


STO 


L 


HEXWD 


SET IN RTN 




04C8 





4400 05E6 


BSI 


L 


HEXCV 


GO CONVERT 




04CA 





CCOO 060C 


LDD 


L 


HEXCD 


GET CONVERTED 


WD 


04CC 





D400 00A2 


STO 


L 


PRAU2 


SET IN MSG 




04CE 





18D0 


RTE 




16 






04CF 





D400 0DA3 


STO 


L 


PRAU3 


SET IN MSG 




04D1 





4C00 0306 


BSC 


L 


L0G2C 







SRC 



SRC 



SRC 



SRC 



SRC 



*XXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX 1443 
*XXXXXXXXXXXXXXXXXXXXXX 

* 



XXXXXXXXXXXXXXXXXXXXXXX 

PAGE CONTROL ROUTINE X 

XXXXXXXXXXXXXXXXXXXXXXX 



040 3 





0000 




RST 


DC 









04 D4 





C400 


02E1 




LD 


L 


SWO 


GET SWITCHES 


04D6 





1009 






SLA 




9 


CK FOR 1443 


0407 





4C10 


04DE 




BSC 


L 


RST2,- 


BRANCH # NOT 1443 


0409 





0844 






XIO 




RSTX2 


SKIP TO CHN 1 


040A 





0845 




RST1 


XIO 




RSTX3 


SENSE 1443 


04DB 





1802 






SRA 




2 


CK FOR BUSY 


04DC 





4804 






BSC 




E 


SKIP # NOT BUSY 


04 DD 





70FC 






MDX 




RST1 


LOOP 


04DE 





C500 


02E8 


RST2 


LD 


LI 


EDITS4 


GET NUMBER OF TRACKS 


04 EO 





4C18 


04E4 




BSC 


L 


DR9 t 6- 


BRANCH # 9 TRACK 


04E2 





C03F 






LD 




K0700 


SET 7 TRACK 


04E3 





7001 






MDX 




DR9U 


BRANCH 


04E4 





C03E 




DR9 


LD 




K0900 


GET 9 TRACK 


04E5 





D400 


0E51 




STO 


L 


LN3B 


SET IN MSG 


04E7 





C500 


02EA 




LD 


LI 


EDIT66 


GET DRIVE MODEL 


04E9 





4C18 


04ED 




BSC 


L 


MD3,£- 


BRANCH # MODEL 3 


04EB 





1008 






SLA 




8 


MOVE TO LHW 


04EC 





7001 






MDX 




M03U 


BRANCH 


04ED 





C036 




MD3 


LD 




K0300 


GET MODEL 3 


04EE 





D400 


0E50 




STO 


L 


LN3A 


SET IN MSG 


04F0 





C400 


02FC 




LD 


L 


EDITS8 


GET MEM SPEED 


04F2 





4C18 


0500 




BSC 


L 


TMIC.+- 


BRANCH # 2 MIC 


04F4 





4C10 


04FD 




BSC 


L 


TMICA,- 


BRANCH IF 4 MIC 


04F6 





C400 


0527 




LD 


L 


H02 36 


SET MSG TO 2.25 


04F8 





0400 


0E5A 




STO 


L 


LN3C 


# 


04FA 





C400 


0528 




LD 


L 


H0205 


* 


04FC 





7008 






MDX 




TMICB 


CONTINUE 


04FD 





C400 


0526 


TMICA 


LD 


L 


H0400 


GET 4 MIC 


04FF 





7001 






MDX 




TMICU 


BRANCH 



8B908810 

8B908820 

8B908830 

8B908840 

8B908850 

8B908860 

8B908870 

8B908880 

8B908890 

8B908900 

8B908910 

86908920 

86908930 

86908940 

8B908950 

86908960 

8B908970 

8B908980 

86*508990 

88909000 

8B909010 

8B909020 

86909030 

8 6909040 

8B909050 

8B909060 

8B909070 

8B909080 

8B909090 

8B909100 

8B909110 

8B909120 

8B909130 

8B909140 

88909150 

86909160 

8B909170 

8B909180 

88909190 

88909200 

86909210 

86909220 

8B909230 

88909240 

8B909250 

8B909260 

8B909270 

86909280 

8B909290 

8B909300 

8B909310 

8B909320 

8B909330 

8B909340 

8B909350 

8B909360 

8B909370 

86909380 

8B909390 

8B909400 

8B909410 

8B909411 

8B909412 

8B909413 

8 B9 094 14 

8B909415 

8B909420 

8B909430 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



0869-2 

7 



ATE 
cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
7A 



F 
L 
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0500 C024 




TMIC 


LO 




K0200 


GET 2 MIC 


8B909440 


0501 D400 


0E5A 




STO 


L 


LN3C 


SET IN MSG 


8B909450 


0503 C400 


0529 




LD 


L 


H2020 


SET DASHES 


$ 8B909451 


0505 D400 


0E5B 


TMICB 


STO 


L 


LN3C+1 


# 


$ 8B909452 


0507 6913 






STX 


1 


SVES1 


SAVE IX 1 


8B909460 


0508 7100 






MDX 


1 





CHECK DR NUMBER 


8B909470 


0509 7003 






MDX 




SYDR 


DRIVE 1 


8B909480 


050A 6500 


200A 




LDX 


LI 


/200A 


IX # -0 


88909490 


050C 7002 






MDX 




SYDR1 


BRANCH 


8B909500 


0500 6500 


2001 


SYDR 


LDX 


LI 


/2001 


IX # -1 


8B909510 


050F 6000 


0E58 


SY0R1 


STX 


LI 


LN30 


SET IN MSG 


8B909520 


0511 6700 


0E4C 




LDX 


L3 


LN3-1 


IX # MSG ADRS 


8B909530 


0513 4400 


0C21 




BSI 


L 


LOADV 


SET MSG - PRINT 


8B909540 


0515 1010 






SLA 




16 


CLEAR ACC 


8B909550 


0516 4400 


0C19 




BSI 


L 


LOADK 


SET BLANK LINE 


8B909560 


0518 4400 


044C 




BSI 


L 


PCCO 


PRINT BLANK 


8B909570 


051A 6500 


0000 


SVE 


LDX 


LI 


*-# 


RESTORE IX 1 


8B909580 


051C 4C80 


0403 




BSC 


I 


RST 


EXIT 


8B909590 


051E 0000 






BSS 


E 







8B909600 


051E 0100 




RSTX2 


DC 




/0100 


IOCC - CARRIAGE SKIP 


8B909610 


051F 3400 






DC 




/3400 


* 


8B909620 


0520 0000 




RSTX3 


DC 




/OOOO 


IOCC - SENSE 1443 


8B909630 


0521 3701 






DC 




/3701 


* 


8B909640 


0522 0007 




K0700 


DC 




/0007 


CONSTANTS 


8B909650 


0523 0009 




K0900 


DC 




/0009 


* 


8B909660 


0524 0300 




K0300 


DC 




/0300 


* 


8B909670 


0525 0220 




K0200 


DC 




/0220 


* 


8B909680 


0526 0420 




H0400 


DC 




/0420 


* 


8B909690 


0527 023B 




H023B 


DC 




/023B 


* 


$ 8B909691 


0528 0205 




H0205 


DC 




/0205 


* 


$ 8B909692 


0529 2020 




H2020 

* 


DC 




/2020 


s 


$ 8B909693 
8B909700 






SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B909710 






*XXXXXXXXXXXXXXXXX ROUTINE TO CONVERT XXXXXXXX 


8B909720 






*XXXXXXXXXXXXXXXXX PRINTER CODE XXXXXXXX 


8B909730 






*XXXXXXXXXXXXXXXXX TO 


TYPEWRITER CODE XXXXXXXX 


8B909740 






*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B909750 






* 










8B909760 


052A 1010 




LOGBC 


SLA 




16 




8B909770 


052B D03F 






STO 




LOXOO 


CLEAR HALF WD SW 


8B909780 


052C 6937 






STX 


1 


L0GC761 


SAVE IX 1 


8B909790 


0520 6A38 






STX 


2 


L0GC8&1 


SAVE IX 2 


8B909800 


052E 6B39 






STX 


3 


L0GC961 


SAVE IX 3 


8B909810 


052F C06F 






LD 




PRSP 


GET CARRIAGE RETURN 


8B909820 


0530 0400 


0D92 




STO 


L 


PRA4 


SET IN MSG 


8B909830 


0532 6700 


0093 




LDX 


L3 


PRA4JU 


IX 3 # ADRS MSG 


8B909840 


0534 C300 




L0GC1 


LD 


3 





GET WD TO CONVERT 


8B909850 


0535 0036 






STO 




L0X02 


SAVE 


8B909860 


0536 F400 


02E3 




EOR 


L 


TERM 




8B909870 


0538 4818 






BSC 




£- 


IS IT A TERM 


8B909880 


0539 7027 






MDX 




LOGCC 




8B909890 


053A C031 




L0GC2 


LD 




L0X02 


GET WD TO CONVERT 


8B909900 


053B 4C18 


0556 




BSC 


L 


L0GCA.6- 


BRANCH IF ZERO 


8B909910 


053D 180C 






SRA 




12 


SAVE ZONE 


8B909920 


0536 D001 






STO 




L0GC3&1 




8B909930 


053F 6500 


0000 


L0GC3 


LDX 


LI 





IX 1 # ZONE 


8B909940 


0541 C500 


056E 




LD 


LI 


L0X04 


GET ADRS OF ZONE 


8B909950 


0543 0007 






STO 




L0GC561 


SAVE 


8B909960 


0544 C027 






LD 




LOX02 


GET WD TO CONVERT 


88909970 


0545 1004 






SLA 




4 


SAVE POSITION 


8B909980 


0546 180C 






SRA 




12 




8B909990 


0547 D001 






STO 




L0GC461 




8B910000 


0548 6600 


0000 


L0GC4 


LDX 


L2 





IX 2 # POSITION 


88910010 


054A C600 


0000 


L0GC5 


LD 


L2 





GET TYPEWRITER CODE 


8B910020 


054C 7400 


056B 




MDX 


L 


LOXOO, 


IS THIS FIRST HALF 


8B910030 


054E 700B 






MDX 




L0GC6 


NO 


8B910040 


054F D01D 






STO 




L0X03 


YES 


8B910050 


0550 7401 


056B 




MDX 


L 


LOXOO, 1 


SET TO SECOND HALF 


8B910060 



0552 C019 




LD 


L0X02 


GET WD TO CONVERT 


8B910070 


0553 1008 




SLA 


8 


SET TO SECOND 


HALF 


8B910080 


0554 D017 




STO 


L0X02 


SAVE 




8B910090 


0555 70E4 




MDX 


L0GC2 


GO CONVERT 




8B910100 


0556 D0F2 


LOGCA 


STO 


L0GC4&1 






8B910110 


0557 C01A 




LD 


L0X0464 


GET ADRS 




86910120 


0558 D0F2 




STO 


L0GC561 


SET 




8B910130 


0559 70EE 


* 


MDX 


L0GC4 


GO SET BLANK 




8B910140 
8B910150 




* 




SECOND HALF WORD 




86910160 




* 










8B910170 


055A 1808 


L0GC6 


SRA 


8 


MOVE TO SECOND HALF 


86910180 


055B F011 




EOR 


L0X03 


COMBINE WITH 


FIRST 


8B910190 


055C 0300 


LOGCB 


STO 


3 


SET IN MSG 




8B910200 


055D 1010 




SLA 


16 






8B910210 


0556 DOOC 




STO 


LOXOO 


SET TO FIRST 


HALF 


8B910220 


055F 7301 




MDX 


3 1 


IX 3 * NEXT WD 


8B910230 


0560 70D3 


* 


MDX 


L0GC1 


CONVERT NEXT 


WD 


8B910240 
88910250 




* 




FOUND 


A TERMINATOR 




8B910260 




* 










8B910270 


0561 4400 061E 


LOGCC 


BSI 


L LOG 


GO PRINT 




8B910280 


0563 6500 0000 


L0GC7 


LDX 


LI 


RESTORE IX 1 




8B910290 


0565 6600 0000 


L0GC8 


LDX 


L2 


RESTORE IX 2 




8B910300 


0567 6700 0000 


L0GC9 


LDX 


L3 


RESTORE IX 3 




8B910310 


0569 4C00 0444 


* 


BSC 


L L0G7C 


GO EXIT 




8B910320 
8B910330 




* 




CONSTANTS 




8B910340 




* 










8B910350 


056B 0000 


LOXOO 


DC 





HALF WORD SWITCH 


8B910360 


056C 0000 


L0X02 


DC 





TEMP STORAGE 


FOR 


8B910370 




* 






WORD TO CONVERT 


8B910380 


056D 0000 


LOX03 


DC 





TEMP STORAGE 


FOR 


8B910390 




* 






TYPEWRITER CODE 


88910400 


056E 0573 


L0X04 


DC 


PROO 


ADRS OF ZONE 





8B910410 


056F 057C 




DC 


PR01-2 


ADRS OF Z0N6 


1 


8B910420 


0570 0587 




DC 


PR02 


ADRS OF Z0N6 


2 


8B910430 


0571 0593 




DC 


PR03-1 


ADRS OF Z0N6 


3 


8B910440 


0572 0586 




DC 


PR02-1 


ADRS OF BLANK 


86910450 




* 










8B910460 




* 




PRINTER CODE TO TYPEWRITER 


8B910470 




* 




CODE 


C0NV6RSI0N TABLE 


8 6910480 




* 










8B9 10490 


0573 2100 


PROO 


DC 


/2100 







86910500 


0574 FCOO 




DC 


/FCOO 


1 




8B910510 


0575 0800 




DC 


/D800 


2 




8B910520 


0576 OCOO 




DC 


/DCOO 


3 




8B910530 


0577 FOOO 




DC 


/FOOO 


4 




8B910540 


0578 F400 




DC 


/F400 


5 




8B910550 


0579 0000 




DC 


/DOOO 


6 




8B910560 


057A D400 




DC 


/D400 


7 




8B910570 


057B E400 




DC 


/E400 


8 




8B910580 


057C EOOO 




DC 


/EOOO 


9 




8B9 10590 


057D C400 




DC 


/C400 







88910600 


057E 9AO0 


PR01 


DC 


/9A00 


S 




8B910610 


057F 9E00 




DC 


/9E00 


T 




8B910620 


0580 B200 




DC 


/B200 


U 




8B910630 


0581 B600 




DC 


/B600 


V 




8B910640 


0582 9200 




DC 


/9200 


w 




8B910650 


0583 9600 




DC 


/9600 


X 




8B910660 


0584 A600 




DC 


/A600 


Y 




8B910670 


0585 A200 




DC 


/A200 


z 




8B910680 


0586 2100 




DC 


/2100 


BLANK 




8B910690 


0587 8400 


PR02 


DC 


/8400 


- 




8B910700 


0588 7E00 




DC 


/7600 


J 




8B910710 


0589 5A00 




DC 


/5A00 


K 




8B910720 


058A 5E00 




DC 


/5E00 


L 




8B910730 


058B 7200 




DC 


/7200 


M 




8B910740 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


8A 



oooooooooooooo ooooooo ooooooooooooc 



oooooooooooooo ooooooo ooooocooooooc 
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0!>8C 





7600 


0580 





5200 


Q58E 





5600 


058F 





6600 


0590 





6200 


0591 





4200 


0592 





4000 


0593 





D600 


0594 





3E00 


0595 





1A00 


0596 





1E00 


0597 





3200 


0598 





3600 


0599 





1200 


059A 





1600 


059B 





2600 


059C 





2200 


059D 





0200 


059E 





0000 


059F 





8121 



05A0 02E5 
05A1 05A4 

05A2 05A5 
05A3 0D92 



05A4 0000 
05A4 0500 
05A5 0000 





DC 


/7600 


N 




DC 


/52 0O 


D 




DC 


/5600 


P 




DC 


/6600 







DC 


/6200 


R 




DC 


/4200 






DC 


/4000 


$ 




DC 


/D600 


* 


PR03 


DC 


/3E00 


A 




DC 


/1A00 


B 




DC 


/1E00 


C 




DC 


/3200 


D 




DC 


/3600 


E 




DC 


/1200 


F 




DC 


/1600 


G 




DC 


/2600 


H 




DC 


/2200 


I 




DC 


/0200 






DC 


/oooo 


. 


PRSP 


DC 


/8121 


CARRIAGE RETURN 


<- 




CONSTANTS 


* 
* 
* 




ADRS STRING FOR DCC C 


L0GX3 


DC 


EDITS1 


ADRS OF AREA COD 




DC 


L0GX8 


ADRS OF FUNCTION 




DC 


L0GX9 


ADRS OF MODIFIER 


* 


DC 


PRA4 


ADRS OF MSG 


* 




FUNCTION AND MODIFIER 




BSS 1 


= 




L0GX8 


DC 


/0500 


FUNCTION 


L0GX9 

* 


DC 


/OOOO 


MODIFIER 


* 




MASK 


CONSTANTS 


* 








* 









*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*XXXXXXXXXXXXXXXXX HEX TO DECIMAL CONVERSION X 
*XXXXXXXXXXXXXXXXX ROUTINE x 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



05A6 





0000 




HEDEC 


DC 







05A7 
05A8 
05A9 







6B21 
6A22 

6923 






STX 
STX 
STX 


3 
2 
1 


HEDE4S1 
HEDE5S1 
HEDE661 


05AA 
05AC 






6500 
6600 


05E1 
05DC 




LDX 
LDX 


LI 
L2 


OPARA 
CVTBL 


05AE 
05AF 






C036 
D028 






LD 
STO 




HDCON 
WORD 


05B0 





6700 


060E 


HEDE1 


LDX 


L3 


CODEH 


05B2 





C200 






LD 


2 





05B3 





D025 






STO 




CONVO 



05B4 C023 
05B5 9023 
05B6 4C28 05BF 

05B8 8020 
05B9 D01E 

05BA C01E 



HEDE2 LD WORD 
S CONVO 
BSC L HEDE3.SZ 



A 
STO 

LD 



CONVO 
WORD 

CONVO 



SAVE IX 3 

SAVE IX 2 

SAVE IX 1 

OUTPUT AREA INDEX 

CONVERSION TABLE IX 

SET WORD TO CONVERT 
IN WORK AREA 

CODE TABLE INDEX 

SET CONVERSION 
CONSTANT IN SW AREA 

CHECK WORD AGAINST 
CONVERSION CONSTANT 
BRANCH IF MINUS 

RESTORE NUMBER 



SET UP FOR NEXT 



SE 



8B910750 

8B910760 

8B910770 

8B910780 

8B910790 

8B910800 

8B910810 

8B910820 

86910830 

8B910840 

8B910850 

8B910860 

88910870 

8B910880 

8B910890 

8B910900 

8B910910 

8B910920 

8B910930 

8B910940 

8B910950 

8B910960 

8B910970 

8B910980 

8B910990 

8B911000 

8B911010 

8B911020 

8B911030 

8B911040 

88911050 

8B911060 

8B911070 

8B911080 

8B911090 

8B911100 

8B911110 

86911120 

8B911130 

8B911140 

8B911150 

8B911160 

8B911170 

8B911180 

8B911190 

8B911200 

8B911210 

8B911220 

8B911230 

8B911240 

8B911250 

8B911260 

8B911270 

8B911280 

8B911290 

8B911300 

8B911310 

86911320 

8B911330 

8B911340 

8B911350 

8B911360 

8B911370 

8B911380 

8B911390 

8B911400 

8b911410 

8B911420 
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05BB 8200 
05BC D01C 

05BD 7301 
05BE 70F5 



05BF 8200 
05CO 0017 

05C1 C300 
05C2 D100 

05C3 7101 
05C4 7201 

05C5 C200 
05C6 4C20 05B0 

05C8 6700 0000 
05CA 6600 0000 
05CC 6500 0000 



05CE 





C012 


05CF 





1008 


05D0 





E811 


05D1 





D008 


05D2 





C010 


05D3 





1008 


05D4 





E80F 


0505 





D005 



05D6 4C80 05A6 



05D8 0000 
05D9 0000 



05DA 



0000 



05DA 0000 
05DB 0000 

05DC 03E8 
05DD 0064 
05DE OOOA 
05DF 0001 
05E0 0000 

05E1 0000 
05E2 0000 
05E3 0000 
05E4 0000 

05E5 0000 



05E6 





0000 


05E7 





6B1B 


05E8 





6A18 


05E9 





6204 



A 2 

STO CONVO 

MDX 3 1 

MDX HEUE2 

* 

HEDE3 A 2 

STO WORD 



LD 
STO 

MDX 
MDX 

* 

LO 
BSC 

HEDE4 LDX 
HEDE5 LDX 
HEDE6 LDX 
LO 
SLA 
OR 
STO 
LD 
SLA 
OR 
STO 



1 1 

2 1 



CHECK 

CODE TABLE INDEX & 1 

NEGATIVE RESULT 

RESTORE LAST NUMBER 



SET 1443 CODE IN 
OUTPUT AREA 

OUTPUT AREA INDEX £1 
CONVERSION TBL IX £1 



2 
L HEDE1.Z 

L3 
L2 
LI 

OPARA 

8 

OPARAfil 

CODE 

0PARAS2 

8 

0PARAC3 

C0DE61 



RESTORE INDEX REG 3 
RESTORE INDEX REG 2 
RESTORE INDEX REG 1 
GET 1ST CODE AND 
PACK WITH 2ND 



GET 3RD CODE AND 
PACK WITH 4TH 



BSC I 



* 

WORD 

CONVO DC 

* 

BSS 



HEDEC RETURN TO USER 
CONVERSION CONSTANTS 



SX 



DC 



CODE 



DC 
DC 



CVTBL DC 
DC 

DC 
DC 
DC 

OPARA DC 
DC 

DC 
DC 
# 

WDCON DC 

* 

*XXXXXXXXXXXX 
*XXXXXXXXXXXX 

*xxxxxxxxxxxx 

-"XXXXXXXXXXXX 






/03E8 
/0064 
/OOOA 
/0001 

/oooo 








WORK AREA 
WORK AREA 



PACKED WORDS 1 AND 2 
PACKED WORDS 3 AND 4 

1000 
100 

10 
1 



OUTPUT WORK AREA 



STORAGE/WD TO CONVRT 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXX HEX TO 1443 HEX XXXXXXXX 
XXXXX CONVERSION ROUTINE XXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



05EA C01B 



HEXCV DC 
STX 
STX 
LDX 

* 

LD 





HEXC361 

HEXC2C1 

4 

HEXWD 



SAVE IX 3 
SAVE IX 2 
CONVERSION INDEX 

GET WORD TO CONVERT 



SE 



PART NO. 
PAGE 



8B911430 

8B911440 

8B911450 

8B911460 

8B911470 

88911480 

8B911490 

8B911500 

86911510 

8B911520 

8B911530 

8B911540 

8B911550 

8B911560 

8B911570 

8B911580 

8B911590 

8B911600 

8B911610 

8B911620 

8B911630 

8B911640 

8B911650 

86911660 

8B911670 

8B911680 

8B911690 

8B911700 

8B911710 

8B911720 

86911730 

8B911740 

8B911750 

86911760 

8B911770 

86911780 

86911790 

8B911800 

88911810 

8B911820 

8B911830 

86911840 

8B911850 

8B911860 

86911870 

8B911880 

86911890 

86911900 

8B911910 

8B911920 

8B911930 

8B911940 

86911950 

8B911960 

8B911970 

8B911980 

86911990 

88912000 

86912010 

8B912020 

8B912030 

8B912040 

8B912050 

86912060 

8B912070 

8B912080 

8B912090 

8B912100 



2196491 
9A 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
9 



"^ATE 

^C NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
9A 



F 
L 
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05EB 1890 






SRT 




16 


SET A IN 


05EC 1010 






SLA 




16 




05ED 1084 




HEXC1 


SLT 




4 


GET CHARACTER 


05EE D001 






STO 




HEXC163 




05EF 6700 


0000 




LDX 


L3 





SET CODE TABLE INDEX 


05F1 C700 


060E 




LD 


L3 


CODEH 


GET CODED CHARACTER 


05F3 0600 


0606 




STO 


L2 


HEXOO-1 


AND SAVE 


05F5 1010 




$ 


SLA 




16 




05F6 72FF 






MOX 


2 


-1 


CHECK IF DONE 


05F7 70F5 




# 


MOX 




HEXC1 




05F8 C011 






LD 




HEX 006, 3 


PACK CODED WORDS 


05F9 1008 






SLA 




8 




05FA E80E 






OR 




HEX00&2 




05FB D010 






STO 




HEXCD 




05FC COOB 






LD 




HEX0061 




05FD 1008 






SLA 




8 




05FE E808 






OR 




HEXOO 




05FF 0000 






STO 




HEXCD61 




0600 6600 


0000 


HEXC2 


LDX 


L2 





RESTORE IX 2 


0602 6700 


0000 


HEXC3 


LDX 


L3 





RESTORE IX 3 


0604 4C80 


05E6 


* 
* 


BSC 


I 


HEXCV 


RETURN TO USER 












CONSTANTS 


0606 0000 




HEXWD 


DC 







WORD TO CONVERT 


0607 0000 




HEXOO 


DC 







* 


0608 0000 






DC 







* UNPACKED CODED 


0609 0000 






DC 







* WORD 


060A 0000 




$ 


DC 







* 


060C 0000 






BSS 


E 







060C 0000 




HEXCO 


DC 







* PACKED CODED WORD 


0600 0000 






DC 







* 






* 
* 
# 
COOEH 






CONVERSION TABLE 


060E OOOA 




DC 




/OOOA 





060F 0001 






DC 




/0001 


1 


0610 0002 






DC 




/0002 


2 


0611 0003 






DC 




/0003 


3 


0612 0004 






DC 




/0004 


4 


0613 0005 






DC 




/0005 


5 


0614 0006 






DC 




/0006 


6 


0615 0007 






DC 




/0007 


7 


0616 0008 






DC 




/0008 


8 


0617 0009 






DC 




/0009 


9 


0618 0031 






DC 




/0031 


A 


0619 0032 






DC 




/0032 


B 


061A 0033 






DC 




/0033 


C 


061B 0034 






DC 




/0034 


D 


061C 0035 






DC 




/0035 


E 


0610 0036 






DC 




/0036 


F 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SXXXXXXXXXXXXXXXXX TYPEWRITER OUTPUT ROUTINE X 
♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* 



MASK ALL LVLS 



061E 


0000 


LOG 


DC 







061F 


OCOO 043E 




XIO 


L 


MK15 


0621 


OCOO 0440 


if 


XIO 


L 


MK27 


0623 


0838 




XIO 




SENSE 


0624 


180A 




SRA 




10 



SENSE FOR READY 



8B912110 
8B912120 
8B912130 
8B912140 
8B912150 
8B912160 
8B912170 
8B912180 
8B912190 
8B912200 
8B912210 
8B912220 
8B912230 
8B912240 
8B912250 
8B912260 
8B912270 
8B912280 
8B912290 
8B912300 
8B9123I0 
8B912320 
8B912330 
SX 8B912340 
8B912350 
8B912360 
8B912370 
8B912380 
8B912390 
8B91240O 
8B912410 
8B912420 
8B912430 
8B912440 
8B912450 
8B912460 
8B912470 
8B912480 
8 B9 12490 
8B912500 
8B912510 
8B912520 
8B912530 
8B912540 
8B912550 
8B9 12560 
8B912570 
8B912580 
8B912590 

8B912600 
8B912610 
8B912620 
8B912630 
8B912640 
8B912650 
8B912660 
8B912670 
8B912680 
8B912690 
8B912700 
8B912710 
SE 8B912720 
8B912730 
8B912740 
8B912750 
8B912760 
8B912770 
8B912780 



IBM MAINTENANCE DIAGNOSTIC 
2400 TIMING TEST 

0625 4804 



PROGRAM FOR THE 1800 SYSTEM 



BSC 



0626 3004 




WAIT4 


WAIT 




4 


TYPEWRTR NOT RDY 


0627 1010 






SLA 




16 




0628 D036 




* 


STO 




WROSW 


CLEAR 1/2 WD SWITCH 


0629 C036 




LD 




AORS 


GET MESSAGE ADDRESS 


062A D010 






STO 




L0G01C1 




062B D001 






STO 




L0G04&1 




062C C400 


0D92 


L0G04 


LD 


L 


PRA4 


GET MSG WORD 


062E F400 


02E3 




EOR 


L 


TERM 


CHECK FOR TERM 


0630 4C18 


0654 




BSC 


L 


L0G02,S- 


BRANCH IF TERM 


0632 C480 


062D 




LD 


I 


LOG0461 


GET MSG WORD 


0634 F02C 






EOR 




K2121 


CK FOR BLANK 


0635 4C20 


063A 




BSC 


L 


LOGOltZ 


BRANCH IF NOT BLANK 


0637 7401 


062D 


L0G05 


MOX 


L 


L0G0461,1 


INCR SCAN ADRS 


0639 70F2 






MDX 




L0G04 


LOOP 


063A C400 


0D92 


L0G01 


LD 


L 


PRA4 


GET WORD TO PRINT 


063C D021 




* 


STO 




IOARA 


SET IN OUTPUT AREA 






•* 

* 






OUTPUT A CHARACTER 


063D 081C 




* 
XIOWR 


XIO 




WRITE 


WRITE CHARACTER 


063E 081D 




* 
XIOSN 


XIO 




SENSE 


CHECK BUSY 


063F 180B 






SRA 




11 




0640 4804 






BSC 




E 




0641 70FC 




* 


MDX 




XIOSN 


BUSY 






* 






CHECK FOR 1ST 1/2 WORO 


0642 C01C 




* 


LD 




WRDSW 


GET 1/2 WORD SWITCH 


0643 4804 






BSC 




E 




0644 7006 




* 
* 
* 


MDX 




L0G03 

SET 


GO SETUP FOR NEXT WD 
UP FOR 2ND 1/2 WORD 


0645 C018 




* 


LD 




IOARA 


GET WORD IN 10 AREA 


0646 1008 






SLA 




8 


POSITION 2ND 1/2 WD 


0647 0016 






STO 




IOARA 




0648 7401 


065F 




MDX 


L 


WRDSW, 1 


BUMP WORD SWITCH 


064A 70F2 




* 
* 
* 


MDX 




XIOWR 

SET 


GO WRITE 2ND 1/2 WD 
UP FOR NEXT WORD 


064B 7401 


063B 


* 
L0G03 


. MDX 


L 


L0G0161,! 


I INCR ADRS TO PRINT 


064D 7401 


065F 




MDX 


L 


WRDSW, 1 


INCR WORO SW 


064F CODO 






LD 




L0G04U 


GET SCAN AORS 


0650 90EA 






S 




L0G01E1 


SUB PRINT ADRS 


0651 4C10 


063A 




BSC 


L 


L0G01,- 


BRANCH # MORE TO PRT 


0653 70E3 




* 


MDX 




L0G05 


BRANCH TO SCAN 






* 
* 






TERMINATOR FOUNO EXIT 


0654 OCOO 


302 


L0G02 XIO 


L 


UNMK3 


UNMASK ALL INTERRUPT 


0656 OCOO 


0304 


£ 


XIO 


L 


UNMK4 


LEVELS 


0658 4C80 


061E 


* 


BSC 


I 


LOG 


EXIT 



SX 



LOG CONSTANTS 



PART NO. 2196491 
PAGF 10A 



8B912790 

8B912800 

86912810 

8B912820 

8B912830 

8B912840 

8B912850 

8B912860 

8B912870 

8B912880 

8B91289C 

8B912900 

8B912910 

8B912920 

8B912930 

8B912940 

8B912950 

8B912960 

8B912970 

8B912980 

8B912990 

8B913000 

8B913010 

8B913020 

8B913030 

8B913040 

8B913050 

8B913060 

8B913070 

8B913080 

8B913090 

8B913100 

8B913110 

8B913120 

8B913130 

8B913140 

8B913150 

8B913160 

8B913170 

8B913180 

8B913190 

8B913200 

8B913210 

8B913220 

8B913230 

8B913240 

8B913250 

8B913260 

8B913270 

8B913280 

8B913290 

8B913300 

8B913310 

8B913320 

8B913330 

8 B9 13340 

8B913350 

8B913360 

8B913370 

86913380 

8B913390 

8B913400 

8B913410 

8B913420 

8B913430 

8B913440 

8B913450 

8B913460 



ATE 
cC NO. 



01JUL66 01N0V66 15MAY67 01SEP67 010CT67 14N0V69 3OJAN70 PROG ID 08B9-2 
415178 415233 411731 411857 411875 431319 431319A PAGE 10 



'ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
10A 



o 



ooooooooooooo o o o o o o o ooooooooooooc 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



065A 




0000 




BSS 1 


E 




065A 





065E 


WRITE 


DC 


IOARA 


WRITE IOCC 


065B 





0902 




DC 


/0902 




065C 





0000 


SENSE 


DC 


/OOOO 


SENSE IOCC 


0650 





0F03 




DC 


/0F03 




065E 





0000 


IOARA 


DC 





OUTPUT AREA 


065F 


u 


0000 


WRDSW 


DC 





1/2 WORD SWITCH 


0660 





0D92 


ADRS 


DC 


PRA4 


MESSAGE ADDRESS 


0661 


u 


2121 


K2121 


DC 


/2121 





0662 0000 

0663 C400 02E1 

0665 100B 

0666 4410 03B2 
0668 4C00 02EF 



066A 




0000 


066A 





0021 


066B 





0042 


066C 





002C 


066D 





0308 


066E 





0712 


066F 





0308 


0670 





048B 


0671 





0080 


0672 





012F 


0673 





0080 


06 74 





00C3 


0675 





00F8 


0676 





0131 


0677 





00F5 


0678 





012E 


0679 





01E0 


067A 





0003 


067B 





0D40 


067C 





0002 


067D 





7100 


067E 





0001 


06 7F 





04C0 


0680 





0001 


0681 





3880 


0682 





0000 


0683 





9C40 


0684 





0000 


0685 





4E20 


0686 





0000 


0687 





3E80 


0688 





0000 


0689 





2EE0 


068A 





0000 


068B 





1F40 


068C 





0000 


068D 





OFAO 


068E 





0000 


06 8F 





0C80 


0690 





0000 


0691 





0960 


0692 





0000 


0693 





0640 


0694 





0000 


0695 





0578 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX END PROGRAM ROUTINE XXXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



END DC 
LD 
SLA 
BSI 
BSC 

*xxxxxxxx 
*xxxxxxxx 
*xxxxxxxx 

BSS 
CONV DC 
C0NV1 DC 
SPEC DC 





SWO 

11 

HALT,- 

MONT 



GET SW FNC 

BRANCH # NOT LOOP 
LOOP PROGRAM 



SE 



CON 



DC 
DC 
DC 
DC 

C0N1 OC 
DC 
DC 
DC 

MT5XA DC 
DC 
DC 
DC 

MT1X0 DC 

MT5X0 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



xxxxxxxxxx 

xxxxxxxxx 

xxxxxxxxxx 

E 
33 
66 

/002C 
776 
1810 
776 
1163 
128 
303 
128 
195 
248 
305 
245 
302 
480 
3 

3392 
2 

28928 
1 

54464 
1 

14464 


40000 


20000 


16000 


12000 


8000 


4000 


3200 


2400 


1600 

1400 



xxxxxxxxxxxxxxxxxxxxxxxxxxx 

COMMON PROGRAM CONSTANTS XX 
XXXXXXXXXXXXXXXXXXXXXXXXXXX 

2 MIC MEM CON MULT 
4 MIC MEM CON MULT 



SPACE 






MIN 


RD 


TIME AT 


LD PT 


MAX 


RD 


TIME AT 


LD PT 


MIN 


WT 


TIME AT 


LD PT 


MAX 


WT 


TIME AT 


LD PT 


MIN 


RD 


TIME NOT 


LD 


MAX 


RD 


TIME NO! 


' LD 


MIN 


WT 


TIME NOT 


LD 


MAX 


WT 


TIME NOT 


LD 


UPPER GR LIMIT- 


9TR 


UPPER GR LIMIT- 


7TR 


LOWER GR LIMIT- 


9TR 


LOWER GR LIMIT- 


7TR 


BCKWRD 


TO FORWRD TME 


DELAY M 5 SEC 








4 








3 








2 








1 








500 MILLISEC 






400 








300 








200 








100 








80.00 








60.00 








40.00 








35.00 





8B913470 

8B913480 

8B913490 

8B913500 

8B913510 

8B913520 

8B913530 

8B913540 

8B913550 

8B913560 

8B913570 

8B913580 

8B913590 

8B913600 

8B913610 

8B913620 

8B913630 

8B913640 

8B913650 

8B913660 

8B913670 

8B913680 

86913690 

8B913700 

8B913710 

8B913720 

8B913730 

8B913740 

8B913750 

8B913760 

8B913770 

8B913780 

8B913790 

8B913800 

8B913810 

8B913820 

8B913830 

8B913840 

8B913850 

8B913860 

8B913870 

8B913880 

8B913890 

8B913900 

8B913910 

8B913920 

8B913930 

8B913940 

8B913950 

8B913960 

8B913970 

8B913980 

8B913990 

8B914000 

8B914010 

8B914020 

8B914030 

8B914040 

8B914050 

8B914060 

8B914070 

8B914080 

8B914090 

8B914100 

86914110 

8B914I20 

8B914130 

8B914140 



0696 0000 


DC 





0697 04B0 


DC 


1200 


0698 0000 


DC 





0699 03E8 


DC 


1000 


069A 0000 


DC 





069B 0384 


DC 


900 


069C 0000 


DC 





069D 0320 


DC 


800 


069E 0000 


DC 





069F 02BC 


DC 


700 


06AO 0000 


DC 





06A1 0258 


DC 


600 


06A2 0000 


DC 





06A3 01F4 


DC 


500 


06A4 0000 


DC 





06A5 0190 


MT540 DC 


400 


06A6 0000 


DC 





06A7 0168 


DC 


360 


06A8 0000 


DC 





06 A9 0140 


DC 


320 


06AA 0000 


DC 





06AB 0118 


DC 


280 


06AC 0000 


DC 





06AD OOFO 


DC 


240 


06AE 0000 


DC 





06AF OODC 


DC 


220 


06B0 0000 


DC 





06B1 00C8 


MT591 DC 


200 


06B2 0000 


DC 





06B3 0064 


OC 


180 


06B4 0000 


DC 





06B5 OOAO 


DC 


160 


06B6 0000 


DC 





06B7 008C 


DC 


140 


06B8 0000 


DC 





06B9 0078 


DC 


120 


06BA 0000 


DC 





06BB 006E 


DC 


110 


06BC 0000 


DC 





06BD 0064 


DC 


100 


06BE 0000 


DC 





066F 005A 


DC 


90 


06C0 0000 


DC 





06C1 0050 


DC 


80 


06C2 0000 


DC 





06C3 0046 


DC 


70 


06C4 0000 


DC 





06C5 003C 


DC 


60 


06C6 0000 


DC 





06C7 0032 


DC 


50 


06C8 0000 


DC 





06C9 002C 


DC 


44 


06CA 0000 


DC 





06CB 0028 


DC 


40 


06CC 0000 


DC 





06CD 0024 


DC 


36 


06CE 0000 


DC 





06CF 0020 


DC 


32 


06D0 0000 


DC 





06D1 001C 


DC 


28 


06D2 0000 


DC 





06D3 0018 


DC 


24 


06D4 0000 


DC 





06D5 0016 


DC 


22 


06D6 0000 


DC 





06D7 0014 


MT506 DC 


20 


06D8 03C0 


TURA2 DC 


960 


06D9 0780 


TURA1 DC 


1920 



30.00 
25.00 
22.50 
20.00 
17.50 
15.00 
12.50 
10.00 

09.00 

08.00 

07.00 

06.00 

05.50 

05.00 

04.50 

04.00 

03.50 

03.00 

02.75 

02.50 

02.25 

02.00 

01.75 

01.50 

01.25 

01.10 

01.00 

00.90 

00.80 

00.70 

00.60 

00.55 

00.50 

MODEL 2 TURNAROUND 
MODEL 1 TURNAROUND 



PART NO. 
PAGE 



8B914150 

8B914160 

8B914170 

8B914180 

8B914190 

8B914200 

8B914210 

8B914220 

8B914230 

8B914240 

8B914250 

8B914260 

8B914270 

8B914280 

8B914290 

8B914300 

8B914310 

8B914320 

8B914330 

86914340 

8B914350 

8B914360 

8B914370 

8B914380 

8B914390 

86914400 

8B914410 

8B914420 

8B914430 

8B914440 

8B914450 

86914460 

8B914470 

8B914480 

8B914490 

8B914500 

8B914510 

8B914520 

8B914530 

8B914540 

8B914550 

8B914560 

8B914570 

8B914580 

8B914590 

8B914600 

8B914610 

8B914620 

869 14630 

8B914640 

8B914650 

8B914660 

8B914670 

8B914680 

8B914690 

8B914700 

8B914710 

8B914720 

8B914730 

8B914740 

8B914750 

8B914760 

8B914770 

8B914780 

86914790 

8B914800 

8B914810 

8B914820 



2196491 
11A 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
11 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
11A 



F 
L 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



2400 TIMING TEST 



06DA 
06DB 
06DC 
06DD 
060E 
06DF 



4092 
0003 
0000 
0025 
00 4B 
0070 



MODEL 1 RD LIMIT 
LINE LIMIT MODIFIER 
CONVERT MULTIPLIER 
MODEL 1 TAPE SPEED 
MODEL 2 TAPE SPEED 
MODEL 3 TAPE SPEED 



06E0 





0000 


06E1 





0000 


06E2 





0000 


06E3 





0000 


06E4 





0000 


06E5 





0000 


06E6 





0000 


06E7 





0000 


06E8 





0000 


06E9 





0000 


06EA 





0000 


06EB 





06E8 


06EC 





06E9 


06ED 





06EA 


06EE 





0E9C 


06EF 





0000 



MD1LM DC 19858 

GPHLM DC 3 

MLGX7 DC 

M0D1S DC 37 

M0D2S DC 75 

INPSE DC 112 

*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

♦XXXXXXXXXXXXXXXXX DEVICE STATUS TABLE XXXXXX 
♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* 

* 

DST DC MAX TIME FOR WRT 

MIN TIME FOR WRT 
MAX TIME FOR RD 
MIN TIME FOR RD 
ACTUAL WRT TIME 
ACTUAL RD TIME 
WD CT 
LAST DSW 
AREA CODE 
FUNCTION 
MODIFIER 

ADRS OF AREA COD 
ADRS OF FUNCTION 
ADRS OF MODIFIER 
ADRS OF I/O AREA 
NUMBER OF TRACKS 
* 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX SUPERVISOR ROUTINE XXXXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* 
* 

* 



DC 








DC 





1 


DC 





2 


DC 





3 


DC 





4 


DC 





5 


DC 





6 


DC 





7 


DC 





8 


DC 





9 


DC 





10 


DC 


DST68 


11 


DC 


DST69 


12 


DC 


DSTtlO 


13 


DC 


IOA 


14 


DC 





15 



CHECK FOR DRIVE READY 



06F0 





6100 




M0NT4 


LDX 


1 





SET IXING FOR DR 


06F1 





6600 


06E0 




LDX 


L2 


DST 




06F3 





C400 


02E1 




LD 


L 


SWO 


GET CONTROL SWS 


06F5 





4828 






BSC 




ez 


IS DR TO BE RUN 


06F6 





701A 






MDX 




MON25 


NO 


06F7 





4400 


0807 




BSI 


L 


DSWO 


SENSE DRIVE 


06F9 





4804 






BSC 




E 


IS DRIVE READY 


06FA 





706F 






MDX 




M0N11 


NO 


06FB 





4400 


014F 


* 
* 
* 


BSI 


L 


BEGIN 

SET 


SET CONSTANTS 
DSTO TO DRIVE 


06FD 





4400 


04D3 


BSI 


L 


RST 


RESTORE PRINTER 


06FF 





1010 






SLA 




16 




0700 





D400 


02DF 




STO 


L 


RID 


ZERO RTN NO 


0702 





C400 


02E8 




LD 


L 


EDIT64 


GET NO TRACKS 


0704 





D20F 






STO 


2 


15 


SET IN DST 


0705 





C400 


02 E4 




LD 


L 


EDIT 


GET AREA COOE 


0707 





D208 






STO 


2 


8 


SET IN DST 


0708 





F500 


075F 




EOR 


LI 


MONXO 


SET DR SELECTION 


070A 





D400 


02ED 




STO 


L 


ACT I 


SET 










* 






CHECK PROG HALT SW-BIT 15 


070C 





C400 


02E1 


MONTD 


LD 


L 


SWO 


GET SW FNC 


070E 





4804 






BSC 




E 


IS PROG HALT SW ON 


070F 





7006 






MDX 




MON2 3 


YES 


0710 





7007 






MDX 




MON22 


NO 


0711 





C400 


093B 


MON2 5 


LD 


L 


PGSW 


GET PROG SW 


0713 





4820 






BSC 




Z 


IS PROGRAM COMPLETE 


0714 





7070 






MDX 




M0N24 


YES 


0715 





7027 






MDX 




MONTC 


NO 



SRC 



SRC 
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8B914830 

8B914840 

8B914850 

8B914860 

8B914870 

8B914880 

86914890 

8B914900 

86914910 

8B914920 

8B914930 

88914940 

8B914950 

86914960 

8B914970 

8B914980 

8B914990 

86915000 

8B915010 

86915020 

8B915030 

8B915040 

8B915050 

8B915060 

8B915070 

8B915080 

8H915090 

8B915100 

8B915110 

8B915120 

88915130 

86915140 

86915150 

86915160 

86915170 

8B915180 

86915190 

86915200 

88915210 

8B915220 

88915230 

86915240 

8B915250 

8B915260 

88915270 

8B915280 

86915290 

88915300 

8B915310 

8B915320 

8B915330 

8B915340 

86915350 

8B915360 

8B915370 

88915380 

86915390 

88915400 

88915410 

88915420 

8B915430 

88915440 

8B915450 

8B915460 

8B915470 

8B915480 

8B915490 

8B915500 



ENANCE DIAGNOSTIC 


PROGRAM 


FOR THE 


1800 SYSTEK 


] 
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NG TEST 
















****#***#«*** 4 


.* v ********* 


********************* 


8B915510 


0716 4400 03B2 


MON2 3 


BSI 


L 


HALT 


* 


8B915520 




****<. ********** ********** 


!*****#************«<•<■ 


88915530 




* 










8B915540 




* 










88915550 




* 






CHECK 


FOR ROUTINE SELECTED 


8B915560 




* 






IN BIT 


• SWITCHES 


86915570 




* 










86915580 


0718 C400 02E2 


MON22 


LD 


L 


SW1 


GET SW FNC 1 


86915590 


071A 4820 




BSC 




z 


IS A RTN SELECTED 


88915600 


0718 7004 




MDX 




MONTF 


YES 


8B915610 


071C C400 02DF 


M0NT6 


LD 


L 


RID 


GET RTN NO 


8B915620 


071b 8400 0925 


M0N10 


A 


L 


MTTX1 


ADD 1 


8B915630 


0720 DOOC 


MONTF 


STO 




M0NT7C1 




86915640 


0721 D400 02DF 




STO 


L 


RID 


SAVE 


86915650 


0723 4400 07F0 




BSI 


L 


RWD 


GO REWIND SRC 


8B915660 


0725 630A 




LDX 


3 


10 


SET UP I/O AREA 


8B915670 


0726 C400 0927 




LD 


L 


MTTX6 




86915680 


0728 D700 0E9C 


M0NT8 


STO 


L3 


IOA 




86915690 


072A 73FF 




MDX 


3 


-1 




8B915700 


072B 70FC 




MDX 




M0NT8 




8B915710 


072C 6700 0000 


M0NT7 


LDX 


L3 





IX 3 * RTN NUMBER 


8B915720 


072E C700 0734 




LD 


L3 


M0NT9 


GET ROUTINE ADRS 


86915730 


0730 D400 02E0 




STO 


L 


RAD 


SAVE FOR PRINT 


86915740 


0732 4F80 0734 


* 


BSC 


13 


M0NT9 


TRANSFER TO RTN 


86915750 
8B915760 




* 






TABLE 


OF ROUTINE ADDRESSES 


8B915770 




* 










8B915780 


0734 0771 


M0NT9 


DC 




M0NR1 


ERROR 


8B915790 


0735 093C 




DC 




MTT01 


ROUTINE NUMBER 1 


8B915800 


0736 0976 




DC 




MTT02 


2 


86915810 


0737 09C2 




DC 




MTT03 


3 


88915820 


0738 09C9 




DC 




MTT04 


4 


8B915830 


0739 09CF 




DC 




MTT05 


5 


8B915840 


073A 0C71 




DC 




MTT07 


6 


8B915850 


0736 0771 




DC 




M0NR1 


PROGRAM COMPLETE 


8B915860 


073C 0007 


PGCM 

* 


DC 




PGCM-M0NT9- 


-1 NO OF ROUTINES 


88915870 
8B915880 




* 






SET UP TO CK DR 1 


8B915890 




* 










8 89 15900 


073D 6101 


MONTC 


LDX 


1 


1 


SET IXING FOR DR 1 


86915910 


073E 6600 06E0 




LDX 


L2 


DST 




86915920 


0740 C400 02E1 




LD 


L 


SWO 


GET CONTROL SWS 


88915930 


0742 1001 




SLA 




1 




86915940 


0743 4828 




BSC 




tz 


IS DR 1 TO BE RUN 


88915950 


0744 70CC 




MDX 




M0N2 5 


NO 


8B915960 


0745 C400 02E9 




LD 


L 


EDIT&5 


GET NO TRKS-DR 1 


8B915970 


0747 4C28 0711 




BSC 


L 


M0N25,£Z 


BRANCH # NOT AVAIL 


8B915980 


0749 4400 0807 




BSI 


L 


DSWO 


GO SENSE DR SRC 


8B915990 


0746 4804 




BSC 




E 


IS DRIVE READY 


8B916000 


074C 7014 




MDX 




MONTE 


NO 


8B916010 


074D 4400 014F 


j. 


BSI 


L 


BEGIN 


SET CONSTANTS SRC 


8B916020 
8B916030 




* 






SET DSTO TO DRIVE 1 


86916040 




* 










86916050 


074F 4400 04D3 




BSI 


L 


RST 


RESTORE PRINTER 


86916060 


0751 C400 02E9 




LD 


L 


EDIT65 


GET NO TRACKS 


88916070 


0753 D20F 




STO 


2 


15 


SET IN DST 


86916080 


0754 C400 02E4 




LD 


L 


EDIT 


GET AREA CODE 


8B916090 


0756 D208 




STO 


2 


8 


SET IN DST 


88916100 


0757 F500 075F 




EOR 


LI 


MONXO 


SET DR SEL 


8B916110 


0759 D400 02ED 




STO 


L 


ACTI 




88916120 


075B 1010 




SLA 




16 




88916130 


075C D400 02DF 




STO 


L 


RID 


SAVE 


8B916140 


075E 70AD 




MDX 




MONTD 


GO TEST DR 1 


8B916150 


075F 0000 


MONXC 


1 DC 







DR SELECTION 


88916160 


0760 0020 


* 


DC 




/0020 


DR 1 SELECTION 


8B916170 
8B916180 



ATE 
cC NO. 



01JUL66 01N0V66 15MAY67 01SEP67 010CT67 14N0V69 30JAN70 
415178 415233 411731 411857 411875 431319 431319A 
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0761 
0763 
0764 
0765 
0766 
0767 
0769 



4400 083C 

0F1D 

0E4B 

C001 

0000 

7401 

70A7 



093B 



076A 4400 083C 
076C 0F10 
0760 0E4B 
076E COOO 
076F 0000 
0770 70A0 



0771 4400 0306 
0773 C400 020F 

0775 90C6 

0776 4820 

0777 7094 



* 

* 

MONTE BSI 
DC 
DC 

C001 DC 
DC 
MDX 
MDX 

* 

* 
* 
M0N11 BSI 

DC 

DC 
DC 
DC 
MDX 



COOO 



* 
M0NR1 



BSI 

LD 

S 

BSC 

MDX 



DRIVE 1 IS NOT READY 

L MLG DR 1 NOT READY 

MSG5&4 

N0TE1S26 

/C001 ID CI 

/OOOO LINE 0-FORM 
L PGSW.l 

M0N2 5 

DRIVE IS NOT READY 

L MLG DR NOT READY 
MSG564 
N0TE1626 

/COOO ID CO 
/OOOO LINE 0-FORM 
MON25 

RETURN FROM ROUTINES 
CHECK FOR ALL RTNS RUN 

L RDSWS READ SWS 
L RID GET RTN NO 

PGCM SUB TOTAL RTNS 

Z ARE ALL RTNS RUN 

MONTD NO 

ALL ROUTINES COMPLETE-CK 
FOR PROGRAM COMPLETE 



0778 





4400 


07F0 




BSI 


L 


RWD 


REWIND DRIVE 


077A 





7401 


093B 




MDX 


L 


PGSW.l 




077C 





4400 


083C 




BSI 


L 


MLG 


ALL RTNS RUN 


077E 





0F21 






DC 




MSG6S4 




077F 





0F49 






DC 




MSG15S8 




0780 





AOOO 




AOOO 


DC 




/AOOO 


ID AO 


0781 





OOOO 






DC 




/OOOO 


LINE 0-FORM 


0782 





7100 






MDX 


1 





WAS RUN ON DRIVE 


0783 





708D 






MDX 




MON25 




0784 





70B8 






MDX 




MONTC 


YES 










* 






PROGRAM IS COMPLETE 


0785 





4400 


083C 


M0N24 


BSI 


L 


MLG 


PROGRAM COMPLETE 


0787 





0F21 






DC 




MSG6&4 




0788 





0F51 






DC 




MSG1668 




0789 





A001 




A001 


DC 




/A001 


ID Al 


078A 





OOOO 






DC 




/OOOO 


LINE 0-FORM 










•£- u. -x. «!- J. . 


£$£:$;$ 


***; 


********#** 


***-'- ,-*v***************. r . 


078B 





4400 


0662 




BSI 


L 


END 


TERMINATE * 










********** 


***: 


< ********** 


i* *************** ****** 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX TIMED WRITE ROUTINE XXXXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE CALL XXXXXXX 

*XXXXXXXXXXXXXXXXX BSI L TMWRT XXXXXXX 
#XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



078D OOOO 


TMWRT 


DC 







078E C030 




LD 




TWRX3 


078F DOOF 




STO 




TMWR9 


0790 C500 07BD 


TMRD1 


LD 


LI 


TWRX1 


0792 F400 02E4 




EOR 


L 


EDIT 


0794 0026 




STO 




SNWC1 


0795 6B10 




STX 


3 


TMWR0S1 


0796 1010 




SLA 




16 



SE 



MODIFY TIME RTN/WRT 

GET SENSE WD CTR 
SET AREA CODE 
SET IN IOCC 
SAVE IX 3 



8B916190 

8B916200 

8B916210 

8B916220 

8B916230 

8B916240 

8B916250 

8B916260 

8B916270 

8B916280 

86916290 

8B916300 

8B916310 

8B916320 

8B916330 

8B916340 

8B916350 

88916360 

8B916370 

8B916380 

8B916390 

8B916400 

8B916410 

8B916420 

8B916430 

8B9 16440 

8B916450 

8B916460 

8B916470 

8B916480 

8B916490 

8B916500 

8B916510 

8B916520 

8B916530 

8B916540 

8B916550 

8B916560 

8B916570 

8B916580 

8B916590 

8B916600 

8B916610 

8B916620 

8B916630 

8B916640 

8B916650 

8B916660 

8B916670 

8B916680 

8B916690 

86916700 

8B916710 

8B916720 

8B916730 

8B916740 

8B916750 

8B916760 

8B916770 

8B916780 

8B916790 

8B916800 

8B916810 

8B916820 

8B916830 

8B916840 

8B916850 

8B916860 
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PAGE 


13A 


IIMG TEST 




















0797 D024 






STO 




TWRXO 


CLEAR COUNT 




8B916870 








******************** zzzzj.;*.!***.? V*************** 


8B916880 




0798 4400 


0373 




BSI 


L 


DCC 


GO WRITE 


* 


8B916890 




079A 06EB 




TMWR1 


DC 




DST&11 


ADR OF STRING 


* 


8B916900 








************ !' 


********* ************************ 


86916910 








* 












8B916920 








* 






TIME 


A DOUBLE CHANGE 


IN 


8B916930 








* 






THE WORD COUNTER 




8B916940 








^ 












8B916950 




079B OCOO 


07BA 


TMWR2 


XIO 


L 


SNWC 


SENSE WD CTR 




8B916960 




079D 8400 


07C7 




A 


L 


TMRX2 


ADD DESIRED 




8B916970 




079F 4C30 


07A5 


TMWR9 


BSC 


L 


TMWROt-Z 


HAS CTR CHANGED 


I 


8B916980 




07A1 7401 


07 BC 


TMWR3 


MDX 


L 


TWRXO, 1 


NO-STEP COUNT 




8B916990 




07A3 4C00 


079B 




BSC 


L 


TMWR2 


LOOP 




8B917000 




07A5 6700 


OOOO 


TMWRO 


LDX 


L3 


. 


RESTORE IX 3 




8B917010 




07A7 3005 




WAIT5 


WAIT 




5 


WAIT FOR RD OR 


WRT 


8B917020 




07A8 4C00 


082A 


* 


BSC 


L 


INTR 






8B917030 
8B917040 








* 






INTERRUPT RETURN 




8B917050 








* 












8B917060 




07AA C207 




TMWR4 


LD 


2 


7 


GET LAST DSW 




8B917070 




07AB E400 


092B 




AND 


L 


MTTY8 


CK FOR CORRECT 




8B917080 




07AD 4820 






BSC 




Z 


IS IT CORRECT 




8B917090 




07AE 7002 






MDX 




TMWR6 


NO 




8B917100 




07AF 4C80 


078D 


TMWR8 

* 


BSC 


I 


TMWRT 


RETURN 


SX 


86917110 
8B917120 








* 






NOT CORRECT-ABORT THE 


TEST 


8B917130 








T 












8B917140 




07B1 4400 


08 3C 


TMWR6 


BSI 


L 


MLG 


TEST ABORTED 




8B917150 




07B3 0F41 
07B4 0F09 






DC 
DC 




MSG14S4 
MSG268 






8B917160 
8B917170 




07B5 E004 




E004 


DC 




/E004 


ID E4 




8B917180 




07B6 0002 






DC 




/0002 


LINE 0- FORM 2 




8B917190 




07B7 4C00 


071C 


TMWR7 

* 

* 


BSC 


L 


M0NT6 

SENSE 


GO RESTART THE 
WORD CTR IOCC 


RTN 


8B917200 
8B917210 
8B917220 
86917230 




07BA OOOO 
07BA OOOO 
07BB OOOO 




SNWC 

SNWC1 

* 

* 

* 


BSS 
DC 

DC 


E 








WRITE 


TIME 




8B917240 
8B917250 
8B917260 
8B917270 
8B917280 


















8B917290 




07BC OOOO 
07BD 0710 




TWRXO 
TWRX1 


DC 
DC 





/0710 


SENSE WD CTR-DR 





8B917300 
8B917310 




07BE 0730 




TWRX2 


DC 




/0730 




1 


8B917320 




07BF 4C30 




TWRX3 

* 


DC 




/4C30 






8B917330 


















8B917340 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B917350 








*XXXXXXXXXXXXXXXXX TIMED 


READ ROUTINE XXXXXXXX 


8B917360 








*XXXXXXXXXXXXXXXXX ROUTINE CALL XXXXXXXX 


8B917370 








*XXXXXXXXXXXXXXXXX BSI 1 


. TMRDT XXXXXXXX 


8B917380 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B917390 




07C0 OOOO 
07C1 C006 




TMRDT 


DC 

LD 





TMRX3 


SE 
MODIFY TIME RTN/RD 


8B917400 
88917410 




07C2 DODC 
07C3 70CC 




* 


STO 

MDX 




TMWR9 
TMRD1 


GO TIME A READ 




8B917420 
8B917430 
8B917440 








* 






INTERRUPT RETURN 




8B917450 




07C4 COFB 




* 

TMRD4 


LD 




TMRDT 


GET RETURN 




8B917460 
8B917470 




07C5 D0C7 
07C6 70E3 






STO 
MDX 




TMWRT 
TMWR4 


SET 




86917480 
88917490 
8B917500 




07C7 OOOA 




TMRX2 


DC 




/OOOA 








07C8 4C10 




TMRX3 
* 


DC 




/4C10 






8B917510 


















8B917520 




















8B917530 








"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B917540 





ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



2400 TIMING TEST 



*XXXXXXXXXXXXXXXXX COMMON BACKSPACE ROUTINE XX 
*XXXXXXXXXXXXXXXXX ROUTINE CALL XX 

*XXXXXXXXXXXXXXXXX BSI L BSP XX 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



07C9 





0000 




07CA 





6B08 




07CB 





403B 




07CC 





4C04 


07CB 


07CE 





1803 




07CF 





4C04 


0702 


07D1 





7004 




07D2 





6700 


0000 


07D4 





4C80 


07C9 



BSP 



BSP3 



BSP2 



DC 









STX 


3 


BSP261 


SAVE IX 3 


BSI 




DSWO 


SENSE DRIVE 


BSC 


L 


BSP3tE 


BRANCH # NOT READY 


SRA 




3 




BSC 


L 


BSP2,E 


IS DR AT LD PT 


MDX 




BSP4 


NO 


LDX 


L3 





RESTORE IX 3 


BSC 


I 


BSP 


EXIT 






DRIVE 


IS NOT READY 



SE 



SRC 



SX 



DRIVE IS NOT AT LOAD POINT 



07D6 


C500 07E0 


BSP4 


LD 


LI 


BSPX1 


GET 


MODIFIER 


07D8 


D20A 




STO 


2 


10 


SET 


IN DST 


07D9 


C02A 




LD 




RWDXO 


GET 


FUNCTION 


07DA 


D209 




STO 


2 


9 


SET 


IN DST 



07DB 4400 0373 
07DD 06EB 

07DE 3006 
07DF 7002 



07E0 OOOB 
07E1 002B 



07E2 
07E3 
07E4 
07E5 
07E6 
07E7 



07EC 
07ED 



C207 

4804 

7003 

1806 

4804 

70EA 
07E8 4400 083C 
07EA 0F3D 
07EB 0F09 

E003 

0002 



07EE 4400 0662 



0000 

4015 

C011 

D209 

C500 0805 

D20A 

C207 

07F8 4C04 07F1 
07FA 1803 



07F0 

07F1 

07F2 

07F3 

07F4 

07F6 

07F7 



CHECK DRIVE 



BSI L DCC GO BACKSPACE * 
BSP6 DC DST611 ADRS OF STRING * 

WAIT6 WAIT 6 WAIT FOR BSP INTRPT 

MDX BSPI2 

* BACKSPACE CONSTANTS 

BSPX1 DC /OOOB 
DC /002B 

* 
* 

BSPI2 LD 2 7 

BSC E 

MDX BSPI3 

SRA 6 

BSC E 

MDX BSP2 

BSPI3 BSI L MLG 

DC MSG13S4 

DC MSG2£8 

E003 DC /E003 

DC /0002 
A*************************************-******** 

BSI L END TERMINATE * 

* 

SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX COMMON REWIND ROUTINE XXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE CALL XXXXX 

*XXXXXXXXXXXXXXXXX BSI L RWD XXXXX 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



GET LAST DSW 
IS DRIVE READY 

NO 

IS OP COMPLETE ON 
BACKSPACE ERROR 



ID E3 

LINE 0-FORM 2 



RWD DC 

RWD3 BSI DSWO SENSE DRIVE 

LD RWDXO GET FUNCTION 

STO 2 9 SET IN DST 

LD LI RWDX1 GET MODIFIER 

STO 2 10 SET IN DST 

LD 2 7 GET LAST DSW 

BSC L RW03.E BRANCH-DR NOT READY 

SRA 3 YES 



SE 
SRC 



PART NU. 
PAGE 



8B917550 
86917560 
8B917570 
8B917580 
8B917590 
8B917600 
8B917610 
8B917620 
8B917630 
8B917640 
8B917650 
8B917660 
8B917670 
8B917680 
8B917690 
8B917700 
8B917710 
8B917720 
8B917730 
8B917740 
8B917750 
8B917760 
8B917770 
8B917780 
8B917790 
8B917800 
8B917810 
8B917820 
8B917830 
8B917840 
8B917850 
8B917860 
8B917870 
8B917880 
86917890 
8B917900 
8B917910 
8B917920 
8B917930 
8B917940 
8B917950 
8B917960 
8B917970 
8B917980 
8B917990 
8B918000 
8B918010 
8B918020 
8B918030 

8B918040 
8B918050 
8B918060 
8B918070 
8B918080 
8B918090 
8B918100 
86918110 
8B918120 
8B918130 
8B918140 
8B918150 
8B918160 
8B918170 
88918180 
8B918190 
8B918200 
86918210 
8B918220 



2196491 
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07FB 





4C04 


07FE 


BSC 


L RWD2 f E IS DR AT LOAD PT 




8B918230 


07FD 





7002 




MDX 


RWD4 NO 




8B918240 


07FE 





4C80 


07F0 


RWD2 BSC 

* 
* 


I RWD RETURN TO PROG 

DRIVE IS NOT AT LD 


SX 


86918250 
8B918260 
8B918270 
8B918280 










#****#*:!-*-* 


*S-**«*#S-*#*»- ![.*#* **#***#**********#** 


8B918290 


0800 





4400 


0373 


RWD4 BSI 


L DCC GO REWIND 


$ 


8B918300 


0802 





06EB 




DC 


0ST611 ADRS OF STRING 


* 


8B918310 










-!=#**** ****#*##*****^4S-*# *«**«<. «.****4#**«**«* 


** 


8B918320 


0803 





70ED 




MDX 

*• 
* 
# 


RWD3 

REWIND CONSTANTS 




8B918330 
8B918340 
8B918350 
8B918360 


0804 





0400 




RWDXO DC 


/0400 FUNCTION CNTRL 




8B918370 


0805 





0004 




RWDX1 DC 


/0004 RWD DR 




8B918380 


0806 





0024 




DC 
* 


/0024 RWD DR 1 




8B918390 
8B918400 










S-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B918410 










*XXXXXXXXXXXXXXXXX SENSE DEVICE ROUTINE 


X 


8B918420 










*XXXXXXXXXXXXXXXXX ROUTINE CALL 


X 


8B918430 










*XXXXXXXXXXXXXXXXX BSI L DSW 


X 


8B918440 










*XXXXXXXXXXXXXXXXX DC OR 1 


X 


8B918450 










*XXXXXXXXXXXXXXXXX # RETURN WHEN READY 


X 


8B918460 










*XXXXXXXXXXXXXXXXX 1 # RETURN WITH SENSE WD 


X 


8B918470 










*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B918480 










* 






8B918490 


0807 





0000 




DSWO DC 





SE 


8B918500 


0808 





6302 




LDX 


3 2 SET FOR DOUBLE SENSE 


8B918510 


0809 





C500 


0810 


DSW5 LD 


LI DSWX1 GET MODIFIER 




8B918520 


080B 





D20A 




STO 


2 10 SET MOD 




86918530 


080C 





C20B 




LD 


2 11 GET ADR AREA CODE 




8B918540 


0800 





D005 




STO 


DSW1 SET IN CALL 




8B918550 


080E 





C20D 




LD 


2 13 GET MOD ADR 




8B918560 


080F 





D004 




STO 


DSW2 SET IN CALL 




8B918570 


0810 





6B06 




DSW7 STX 


3 DSW861 SAVE INDEX 3 




8B918580 










*#**##****#***«#****#************#*#*******#*# 


8B918590 


0811 





4400 


03A2 


BSI 


L DIND GO SENSE 


* 


8B918600 


0813 





0000 




DSW1 DC 


AREA CODE ADRS 


* 


8B918610 


0814 





0000 




DSW2 DC 


MODIFIER 


* 


8B918620 


0815 





0000 




DC 


LOAD A RETURN 


* 


8B918630 










^^fPff-ff-'^-^ff 


***«***««*#**#«#**##**************** 


8B918640 


0816 





6700 


0000 


DSW8 LDX 


L3 RESTORE INDEX 3 




8B918650 


0818 





73FF 




MDX 


3 -1 IS THIS THE SECOND 




8B918660 


0819 





70F6 




MDX 


DSW7 NO-GO SENSE AGAIN 




8B918670 


081A 





D207 




STO 


2 7 SET IN DST 




8B918680 


081B 





4C80 


0807 


BSC 

* 
* 
* 


I DSWO RETURN 

CONSTANTS USED BY DSW 


SX 


8B918690 
8B918700 
8B918710 
8B918720 


0810 





0000 




DSWX1 DC 


MODIFIER FOR DRIVE 





8B918730 


081E 





0020 




DC 
* 
* 


/0020 MODIFIER FOR DRIVE 


1 


8B918740 
8B918750 
8B918760 










SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B918770 










SXXXXXXXXXXXXXXXXX ROUTINE TO SET NORMAL 


XX 


8B918780 










*XXXXXXXXXXXXXXXXX INTERRUPT RETURN 


XX 


8B918790 










*XXXXXXXXXXXXXXXXX ROUTINE CALL 


XX 


8B918800 










*XXXXXXXXXXXXXXXXX BSI L INTRT 


XX 


8B918810 










*XXXXXXXXXXXXXXXXX DC RETURN ADRS 


XX 


8B918820 










*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B918830 










* 






8B918840 


081F 





0000 




INTRT DC 





SE 


8B918850 


0820 





6D00 


082B 


STX 


LI INTR61 SAVE IX 1 




8B918860 


0822 





C480 


081F 


LD 


I INTRT GET FINAL RETURN 




8B918870 


0824 





D004 




STO 


INTR2 SAVE 




8B918880 


0825 





7401 


08 IF 


MDX 


L INTRT, 1 ADD 1 TO RETURN 




8B9 18890 


0827 





4C80 


081F 


BSC 


I INTRT EXIT 


SX 


8B918900 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


"ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


14 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


14A 



ooooooooooooooooooooo o O O O O O O O O CI 



OOOOOOOOOOOOOO OOOOOOO OOOOOOOOOOOOG 
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0829 0000 

082A 6500 0000 

082C 6600 06E0 

082E 4C80 0829 



INTK2 DC 

INTR LDX LI 

LDX 12 DST 

BSC I INTR2 



DRIVE FINAL RETURN 
RESTORE IXING 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
i-XXXXXXXXXXXXXXXXX ROUTINE TO SET UP FOR XXX 







*xxxx 


xxxx> 


;xxx 


xxxxx 


REAI 


) OR WRITE 


XXX 






-•xxxxxxxxxxxxxxxxx 


ROUTINE CALL 


XXX 






*xxxxxxxxxxxxxxxxx 


BSI 


L PRDWT 


XXX 






"-xxxxxxxxxxxxxxxxx 


ACCUM MUST # FUNCTION 


XXX 






*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


0830 0000 




PRDWT 


DC 













0831 D209 






STO 


2 


9 




SET FUNC 




0832 C500 


081D 




LD 


LI 


DSWX1 




GET MODIFIER 




0834 D20A 






STO 


2 


10 




SET IN DST 




0835 C400 


0929 




LD 


L 


MTTY4 




GET WORD COUNT OF 


5 


0837 D206 






STO 


2 


6 




SET WD CT 




0838 D400 


0E9C 




STO 


L 


IOA 




SET IN 10 AREA 




083A 4C80 


0830 


.•- 


BSC 


I 


PRDWT 












-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 






*-xxxxxxxxxxxxxxxxx 


COMMON LOG ROUTINE 


XXX 






*xxxxxxxxxxxxxxxxx 


ROUTINE CALL 


XXX 






*xxxxxxxxxxxxxxxxx 


BSI 


L MLG 


XXX 






i xxxxxxxxxxxxxxxxx 


DC 


MESSAGE ID 


XXX 






*xxxxxxxxxxxxxxxxx 


DC 


LINE NO. -FORM NO. 


XXX 






*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


083C 0000 




MLG 


DC 













083D 4400 


0306 




BSI 


L 


RDSWS 




READ SWS 




083F C400 


02E1 




LD 


L 


SWO 




GET SWS 




0841 1802 






SRA 




2 




CK FOR BYPASS 




0842 4C04 


08C7 




BSC 


L 


MLG18 


,E 


BRANCH # BYPASS 




0844 4400 


0EC9 




BSI 


L 


LDSP 




PRINT HEADING 




0846 6780 


083C 




LDX 


13 


MLG 




IX # ADRS CALL 




0848 C300 






LD 


3 







GET MSG ID 




0849 D400 


08FB 




STO 


L 


M004 




SET IN MSG 




084B C301 






LD 


3 


1 




GET LINE AND FORM 


NO 


084C 0400 


0901 




STO 


L 


MLGXO 




SAVE 




084E 6D00 


08B8 




STX 


LI 


MLG05&1 


SAVE IX 1 




0850 C400 


02DF 




LD 


L 


RID 




GET RTN NO 




0852 D400 


08FA 




STO 


L 


M0D3 




SET IN MSG 




0854 6D00 


08FC 




STX 


LI 


M0D5 




SET DR NO IN MSG 




0856 C400 


02DE 




LD 


L 


PID 




GET PROG NUMBER 




0858 D400 


08F9 




STO 


L 


M0D2 




SET IN MSG 




085A C400 


0901 




LD 


L 


MLGXO 




GET LINE/FORM NO 




085C 1008 






SLA 




8 




SAVE FORM NO 




085D 1808 






SRA 




8 








085E D001 






STO 




MLGOOfil 






085F 6700 


0000 


MLGOO 


LDX 


L3 







IX 3 # FORM NUMBER 




0861 4F80 


0863 




BSC 


13 


MLG02 




GO TO SET UP MSG 




0863 0869 




MLG02 


DC 




FORMO 




ADRS OF FORM SETUP 


0864 08U1 






DC 




F0RM1 




1 




0865 08D9 






DC 




F0RM2 




2 




0866 08DF 






DC 




F0RM3 




3 




0867 08E5 






DC 




F0RM4 




4 




0868 08EB 






DC 




F0RM5 




5 








* 






FORM 


IS 




0869 6300 




FOR MO 

* 


LDX 


3 





;et 


line no and wn r.T 





SE 



SX 



086A C500 02EA 
086C 4820 



MLG03 LD LI EDITG6 
BSC Z 



GET DR MODEL 
IS THIS MODEL 3 



8B918910 
8B918920 
8B918930 
8B918940 
8B918950 
8B918960 
8B918970 

8B918980 

8B918990 

8B919000 

8B919010 

8B919020 

8B919030 

8B919040 

8B919050 

8B919060 

8B919070 

8B919080 

8B919090 

8b919100 

8B919110 

8B919120 

8B919130 

8B919140 

8B919150 

8B919160 

8B919170 

8B919180 

8B919190 

8B919200 

8B919210 

8B919220 

8B919230 

8B919240 

8B919250 

8B919260 

8B919270 

8B919280 

8B919290 

8B919300 

8B919310 

8B919320 

8B919330 

8B919340 

8B919350 

8B919360 

8B919370 

8B919380 

8B919390 

8B919400 

8B919410 

8B919420 

8B919430 

8B919440 

8B919450 

8B919460 

8B919470 

8B919480 

8B919490 

8B919500 

8B919510 

8B919520 

8B919530 

8B919540 

8B919550 

88919560 

8B919570 

8B919580 



1 fcNANi 


„h 


U1AGI 


MUST I C 


PROGRAM 


FOR 


THE 


1800 SYS 


TEM 


PART NO. 2196491 




















PAGE 15A 


ING TEST 
















086U 





701F 






MDX 




MLG11 


NO 


8B919590 


086E 





6104 






LDX 


1 


4 




8B919600 


086F 





10A0 




MLG10 


SLT 




32 


CLEAR A AND 


8B919610 


0870 





C500 


08FC 




LD 


LI 


MODOO-1 


GET MSG WD 


8B919620 


0872 





A400 


06DC 




M 


L 


MLGX7 


CALCULATE TIME 


86919630 


0874 





ACOO 


0D84 




D 


L 


MT7X0 


SCALE BY 10 


8B919640 


0876 





D500 


08FC 




STO 


LI 


MODOO-1 


SAVE THE TIME 


8B919650 


0878 





71FF 






MDX 


1 


-1 


DECR IX 1 


8B919660 


0879 





70F5 






MDX 




MLG10 


LOOP 


8B919670 


087A 





C400 


02DF 




LD 


L 


RID 


GET RTN NO 


8B919680 


087C 





9400 


0902 




S 


L 


MLGX1 


SUB 4 


8B919690 


087E 





4808 






BSC 




S 


IS THIS RTN 5, 6, 7 


86919700 


087F 





702F 






MDX 




MLG07 


NO-PRINT TIME 


8B919710 


0880 





6104 






LDX 


1 


4 




8B919720 


0881 





10A0 




MLG16 


SLT 




32 


CLEAR A AND 


8B919730 


0882 





C5 00 


08FC 




LD 


LI 


MODOO-1 


GET TIME 


8B919740 


0884 





A400 


06DF 




M 


L 


INPSE 


CALCULATE GAP 


8B919750 


0886 





ACOO 


0907 




D 


L 


MLGX9 


SCALE BY 1000 


8B919760 


0888 





D500 


08FC 




STO 


LI 


MODOO-1 


SAVE GAP 


8B919770 


088A 





71FF 






MDX 


1 


-1 


DECR IX 1 


8B919780 


088B 





70F5 






MDX 




MLG16 


LOOP 


8B919790 


088C 





7022 






MDX 




MLG07 


GO PRINT 


8B919800 


088D 





6104 




MLGU 


LDX 


1 


4 




8B919810 


088E 





10A0 




MLG12 


SLT 




32 


CLEAR A AND 


8B919820 


088F 





C500 


08FC 




LD 


LI 


MODOO-1 


GET MSG WD 


8B919830 


0891 





18D0 






RTE 




16 


SET IN Q 


86919840 


0892 





ACOO 


0D84 




D 


L 


MT7X0 


SCALE BY 10 


8B919850 


0894 





1800 






RTE 




16 


SET IN Q 


8B919860 


0895 





1090 






SLT 




16 


CLEAR O/SET IN A 


88919870 


0896 





A400 


06 DC 




M 


L 


MLGX7 


CALCULATE TIME 


8B919880 


0898 





1010 






SLA 




16 


CLEAR ACCUM 


8B919890 


0899 





ACOO 


0D84 




D 


L 


MT7X0 


SCALE BY 10 


86919900 


089B 





D500 


08FC 




STO 


LI 


MODOO-1 


SAVE THE TIME 


86919910 


089D 





71FF 






MDX 


1 


-1 


DECR IX 1 


8B919920 


089E 





70EF 






MDX 




MLG12 


LOOP 


8B919930 


089F 





C400 


02DF 




LD 


L 


RID 


GET RTN NO 


86919940 


08A1 





9060 






S 




MLGX1 


SUB 4 


8B919950 


08A2 





4808 






BSC 




£ 


IS THIS RTN 5,6, 0R7 


88919960 


08A3 





700B 






MDX 




MLG07 


NO-PRINT TIME 


88919970 


08A4 





6104 






LDX 


1 


4 




8B919980 


08A5 





10A0 




MLG15 


SLT 




32 


CLEAR A AND 


8B919990 


08A6 





C500 


08FC 




LD 


LI 


MODOO-l 


GET TIME 


8B920000 


08A8 





A400 


06DF 




M 


L 


INPSE 


CALCULATE GAP 


86920010 


08AA 





A85D 






D 




MLGX9£1 


SCALE BY 100 


8B920020 


08AB 





D500 


08FC 




STO 


LI 


MODOO-1 


SAVE GAP 


8B920030 


08AD 





71FF 






MDX 


1 


-1 


DECR IX 1 


88920040 


08AE 





70F6 






MDX 




MLG15 


LOOP 


8B920050 


08AF 





C051 




MLG07 


LD 




MLGXO 


GET LINE AND FORM NO 


8B920060 


08B0 





1808 






SRA 




8 


SAVE LiNE NUMBER 


8B920070 


08B1 





1008 






SLA 




8 




88920080 


08B2 





EFOO 


0902 




OR 


L3 


MLGX1 


INSERT WD CT 


88920090 


08 B4 





D042 






STO 




MODO 


SET IN MSG 


8B920100 










*A *•**: 


****-<. 


#«*##**#*«s *«#*******«5; #«*«*#**#**** 


88920110 


08B5 





4400 


03BF 


MLG04 


BSI 


L 


LOGC 


GO PRINT -S 


8B920120 










-,C if. V *£ 1- ' 


<=*«.*> 


*~*>- 


r*-fc**##V-t-#V-,<*&#* 3-#&V#V*##** I #^# J r S{. 


8B920130 


08B7 





6500 


0000 


MLG05 


LDX 


Ll 





RESTORE IX 1 


8B920140 


08B9 





6600 


06E0 


MLG06 


LDX 


L2 


DST 




8B92015O 


08BB 





7402 


083C 


MLGOA 


MDX 


L 


MLG, 2 




8B920160 


086D 





C400 


036E 




LD 


L 


ONE 


GET 0001 


8B920170 


08BF 





DO 38 






STO 




MODI 


RESTORE HEX/DEC SW 


8B920180 


08C0 





C03A 




CKERR 


LD 




M0D4 


GET MSG ID 


8B920190 


08C1 





180C 






SRA 




12 


SAVE MSG TYPE 


88920200 


08C2 





FOOD 






EOR 




KOOOE 


CK FOR E 


8B920210 


08C3 





4818 






BSC 




S- 


SKIP # NOT E 


8B920220 


08C4 





7005 






MDX 




CKHLT 


BRANCH 


86920230 


08C5 





4C80 


083C 


MLGE 


BSC 


I 


MLG 


RETURN SX 


86920240 


08C7 





7402 


08 3C 


MLG18 


MDX 


L 


MLG, 2 


INCR RETURN 


88920250 


08C9 





70F1 






MDX 




MLGOA 


BRANCH 


8B920260 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
15 



ATE 
_-C NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



01OCT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
15A 



F 

L 
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08CA C400 02E1 


CKHLT 


LD 


L SWO 


GET SWS 


8B920270 


08CC 1801 




SRA 


1 




8B920280 


08CD 4404 03B2 




BSI 


L HALT,E 


BRANCH IF HLT ON ERR 


8B920290 


08CF 70F5 




MDX 


MLGE 


CONTINUE 


8B920300 


08D0 OOOE 


KOOOE 
* 


DC 


/OOOE 




8B920310 
8B920320 




# 




FORM 


IS ONE 


8B920330 




* 








8B920340 


0801 C201 


F0RM1 


LD 


2 1 


GET MIN WRT TIME 


8B920350 


08D2 D02A 




STO 


MODOO 


SET IN MSG 


8B920360 


08D3 C204 




LD 


2 4 


GET ACTUAL WRT TIME 


8B920370 


08D4 0029 




STO 


M0D01 


SET IN MSG 


8B920380 


08D5 C200 




LD 


2 


GET MAX WRT TIME 


8B920390 


08D6 0028 


COMOO 


STO 


M0D02 


SET IN MSG 


8B920400 


08D7 6303 




LDX 


3 3 


SET IX FOR WD CT 


8B920410 


08D8 7091 


* 


MDX 


MLG03 


GO COMPLETE MSG 


8B920420 
8B920430 




* 




FORM 


IS 2 


8B920440 




*- 








8B920450 


08D9 C207 


F0RM2 


LD 


2 7 


GET OSW 


8B920460 


08DA 0022 




STO 


MODOO 


SET IN MSG 


8B920470 


08DB 1010 




SLA 


16 


ZERO ACCUM 


8B920480 


080C D01B 




STO 


MODI 


SET TO HEX 


8B920490 


08DD 6301 


C0M01 


LDX 


3 1 


SET IX FOR WD CT 


8B920500 


080E 7000 


* 


MDX 


MLG07 


GO COMPLETE MESSAGE 


8B920510 
8B920520 




* 




FORM 


IS 3 


8B920530 




* 








8B920540 


080F C203 


F0RM3 


LD 


2 3 


GET MIN RD TIME 


8B920550 


08E0 D01C 




STO 


MODOO 


SFT IN MSG 


8B920560 


08E1 C205 




LD 


2 5 


GET ACTUAL RD TIME 


8B920570 


08E2 D01B 




STO 


M0D01 


SET IN MSG 


8B920580 


08E3 C202 




LD 


2 2 


GET MAX RD TIME 


8B920590 


08E4 70F1 


* 


MDX 


COMOO 


GO COMPLETE MSG 


8B920600 
8B920610 




* 




FORM 


IS 4 


8B920620 




* 








8B920630 


08E5 C048 


F0RM4 


LD 


MTTYC 


GET 10 MSEC GOT AVG 


8B920640 


08E6 D016 




STO 


MODOO 


SET IN MSG 


8B920650 


08E7 C048 




LD 


MTTYD 


GET VAR GOT AVG 


8B920660 


08E8 D015 




STO 


M0D01 


SET IN MSG 


8B920670 


08E9 C048 




LD 


MTTYE 


GET MIN GOT AVG 


8B920680 


08EA 70EB 


* 


MDX 


COMOO 


GO COMPLETE MSG 


8B920690 
8B920700 




* 




FORM 


IS 5 


8B920710 




* 








8B920720 


08EB C400 0089 


F0RM5 


LD 


L MT7X5 


GET AVERAGE CREEP 


8B920730 


08ED 0010 




STO 


M0D01 


SET IN MSG 


8B920740 


08EE C400 0090 




LD 


L MT7Y1 


GET LOW VALUE 


8B920750 


08F0 DOOC 




STO 


MODOO 


SET IN MSG 


8B920760 


08F1 C400 0091 




LD 


L MT7Y2 


GET HIGH VALUE 


8B920770 


08F3 DOOB 




STO 


M0002 


SET IN MSG 


8B920780 


08F4 6303 




LDX 


3 3 


SET TO WORD COUNT 


8B920790 


08F5 4C00 086A 


* 


BSC 


L MLG03 


GO COMPLETE MSG 


8B920800 
8B920810 




* 




LOG MESSAGE STORAGE 


8B920820 




* 








8B920830 


08F7 0000 


MODO 


DC 





LINE NO/WORD CT 


8B920840 


08F8 0001 


MODI 


DC 


1 


HEX/DEC 


8B920850 


08F9 0000 


M002 


DC 





PROGRAM NUMBER 


8B920860 


08FA 0000 


M0D3 


DC 





ROUTINE NUMBER 


8B920870 


08FB 0000 


M0D4 


DC 





MESSAGE ID 


8B920880 


08FC 0000 


M0D5 


DC 





DRIVE NUMBER 


8B920890 


08FD 0000 


MODOO 


DC 





DATA WORD 


8B920900 


08FE 0000 


M0D01 


DC 





1 


8B920910 


08FF 0000 


M0D02 


DC 





2 


8B920920 


0900 0000 


M0003 

* 


DC 





3 


8B920930 
8B920940 









* 




ROUTINE CONSTANTS 


8B920950 








* 








8B920960 


0901 





0000 


MLGXO 


DC 





LINE AND FORM TEMP 


8B920970 


0902 





0004 


MLGX1 


DC 


4 


WD CT # 4 


8B920980 


0903 





0005 


MLGX2 


DC 


5 


5 


8B920990 


0904 





0006 


MLGX3 


DC 


6 


6 


8B921000 


0905 





0007 


MLGX4 


DC 


7 


7 


8B921010 


0906 





0002 


MLGX8 


DC 


2 




8B921020 


0907 





03E8 


MLGX9 


DC 


1000 




8B921030 


0908 





0064 


* 


DC 


100 




8B921040 
8B921050 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921060 








*XXXXXXXXXXXXXXXXX SET 


AT LD PT CONSTANTS XXXX 


8B921070 








*XXXXXXXXXXXXXXXXX ROUTINE CALL XXXX 


8B921080 








*XXXXXXXXXXXXXXXXX BSI 


L CNI XXXX 


8B921090 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921100 








* 








8B921110 


0909 





0000 


CNI 


DC 





SE 


8B921120 


090A 





C004 




LD 


RTNIX 


GET ADRS 


8B921130 


090B 





DOOE 




STO 


STCN161 


SET 


8B921140 


090C 





400A 




BSI 


STCN 


SET DST SRC 


8B921150 


090D 





4C80 0909 




BSC 


I CNI 


EXIT SX 


8B921160 


090F 





066C 


RTNIX 

* 


DC 


CON-1 


OR AORS 


8B921170 
8B921180 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921190 








*XXXXXXXXXXXXXXXXX SET 


NOT AT LD PT CONSTANT X 


8B921200 








*XXXXXXXXXXXXXXXXX ROUTINE CALL X 


8B921210 








*XXXXXXXXXXXXXXXXX BSI 


L CN2 X 


8B921220 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921230 








* 








8B921240 


0910 





0000 


CN2 


DC 





SE 


8B921250 


0911 





C004 




LD 


RTN2X 


GET ADRS 


8B921260 


0912 





D007 




STO 


STCN161 


SET 


8B921270 


0913 





4003 




BSI 


STCN 


SET DST SRC 


8B921280 


0914 





4C80 0910 




BSC 


I CN2 


EXIT SX 


8B921290 


0916 





0670 


RTN2X 
* 


DC 


C0N1-1 




8B921300 
8B921310 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921320 








SXXXXXXXXXXXXXXXXX SET 


CONSTANTS XXXXXXXXXXXXX 


8B921330 








#XXXXXXXXXXXXXXXXX ROUTINE CALL XXXXXXXXXXXXX 


8B921340 








♦XXXXXXXXXXXXXXXXX BSI 


L STCN XXXXXXXXXXXXX 


8B921350 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921360 








* 








8B921370 


0917 





0000 


STCN 


DC 





SE 


8B921380 


0918 





6304 




LDX 


3 4 


IX 3 # NUMBER WOS 


8B921390 


0919 





C700 0000 


STCN1 


LD 


L3 


GET CONSTANT 


8B921400 


091B 





D200 




STO 


2 


SET IN DST 


8B921410 


091C 





73FF 




MDX 


3 -1 


OECR IX 3 


8B921420 


0910 





7001 




MOX 


STCN2 




8B921430 


091E 





7002 




MDX 


STCN3 


FINISHED 


8B921440 


091F 





7201 


STCN2 


MDX 


2 1 


INCR IX 2 


8B921450 


0920 





70F8 




MOX 


STCN1 


LOOP 


8B921460 


0921 





6600 06E0 


STCN3 


LDX 


L2 DST 


RESTORE IX 2 


8B921470 


0923 





4C80 0917 


* 


BSC 


I STCN 


EXIT SX 


8B921480 
8B921490 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921500 








*XXXXXXXXXXXXXXXXX COMMON CONSTANTS USED BY XX 


8B921510 








*XXXXXXXXXXXXXXXXX THE 


PROGRAM XX 


8B921520 








*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921530 








* 








8B921540 


0925 





0001 


MTTX1 


DC 


/0001 




8B921550 


0926 





0000 


MTTX3 


DC 





TEMP 


8B921560 


0927 





FFFF 


MTTX6 


DC 


/FFFF 




8B921570 


0928 





05 00 


MTTX9 


DC 


/0500 


FUNCTION # WRT 


8B921580 


0929 





400A 


MTTY4 


DC 


/400A 




8B921590 


092A 





002F 


MTTY5 


DC 


47 


CONSTANT 


8B921600 


092B 





2003 


MTTY8 


DC 


/2003 


DSW CK 


8B921610 


092C 





0600 


MTTY9 


DC 


/0600 


FUNCTION # READ 


8B921620 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


16 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


16A 



OOOOOOOOOOOOOO OOOOOOO OOOOOOOOOOOOf 



oooooooooooooo ooooooo ooooooooooooc 



i • Wir-HI^L. U 1 HV3I1U JUL 


rRUUKHP 


1 l-IJK 


1 Mi 


t iBUU bYST 


fcM 




PART NO. 
PAGE 
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17 


092D 0E6C 
092E 0000 
092E 0000 
092F 0000 

0930 0000 

0931 0000 

0932 0000 


MTTYE 
MTTYC 
MTTYC 
MTTYE 


i DC 

BSS 
. DC 

DC 
i DC 

DC 

DC 


E 


T0TA63 









ADRS OF COUNTS 
10 MSEC AVG 
VARIABLE AVG 
MIN AVG 




88921630 
8B921640 
8B921650 
8B921660 
8B921670 
8B921680 
8B921690 




0933 0000 

0934 0000 

0935 0000 


MTTYA 


DC 
DC 
DC 













8B921700 
8B921710 
8B921720 




0936 4C00 0B2E 


MTTYF 


BSC 


L 


MT51E 


PROG MODIFIER 




8B921730 




0938 00EB 


MTTZO 


DC 




235 


CONSTANT 




8b921740 




0939 9400 0C43 
093B 0000 


MTTZ1 
PGSW 


S 
DC 


L 


MT5XE 








8B921750 
8B921760 
8B921770 






*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 


8B921780 






*XXXXXXXXXXXXXXXXX ROUTINE NUMBER ONE XXXXXXXX 


8B921790 






*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B921800 




093C C0E8 


MTT01 


LD 




MTTX1 


GET 0001 




8B921810 
8B921820 




0930 D0E8 
093E 40CA 


* 


STO 
BSI 




MTTX3 
CN1 


SET RTN 1 SW 

GO SET CONSTANTS 


SRC 


8B921830 
8B921840 
8B921850 






^> 






PORTION COMMON TO RTNS 1-3 




8B921860 






* 






PREPARE TO WRITE 




8B921870 




093F C0E8 


MT101 


LD 




MTTX9 


GET WRT FNC 




8B921880 
8B921890 




0940 4400 0830 


* 


BSI 


L 


PRDWT 


GO SET UP 


SRC 


8B921900 
8B921910 






* 






DETERMINE RTN BEING RUN 




8B921920 






t 












8B921930 




0942 C0E3 

0943 4820 




LD 
BSC 




MTTX3 
Z 


GET RTN 1 SW 
IS THIS RTN 1 




8B921940 
8B921950 




0944 7005 


* 


MDX 




MT102 


YES-SKIP WRT 




8B921960 
8B921970 






* 






ROUTINE 3 RUNNING 




8B921980 




0945 4400 081F 


* 


BSI 


L 


INTRT 


GO SET INTR RETURN 


SRC 


8B921990 
8B922000 




0947 07AA 

0948 4400 078D 


* 


DC 
BSI 


L 


TMWR4 
TMWRT 


WRITE 




8B922010 
86922020 
8B922030 






# 






COMMON TO RTNS 1 AND 3 




8B922040 






■^ 












8B922050 






* 












86922060 






* 






TIME 


A WRITE 




88922070 






* 












86922080 




094A 4400 08 IF 


MT102 


BSI 


L 


INTRT 


GO SET RETURN 


SRC 


8B922090 




094C 07AA 
0940 4400 078D 


* 
* 


DC 
BSI 


L 


TMWR4 
TMWRT 

CHECK 


GO TIME A WRT 
THE TIMING 


SRC 


88922100 
8B922110 
86922120 
8B922130 
&B922140 




094F C0D6 




LD 




MTTX3 


GET RTN 1 SW 




86922150 




0950 4820 




BSC 




Z 


IS THIS RTN 1 




8B922160 




0951 7011 




MDX 




MT105 


YES 




8B922170 




0952 C400 07BC 




LD 


L 


TWRXO 


GET TIME 




8B922180 




0954 D204 


MT108 


STO 


2 


4 


SAVE 




8B922190 




0955 9200 




S 


2 





SUB MAX TIME 




8B922200 




0956 4830 




BSC 




-z 


IS TIME TOO LONG 




8B922210 




0957 7010 

0958 C201 




MDX 
LD 


2 


MT104 

1 


YES 

GET MIN TIME 




8B922220 
8B922230 




0959 9204 




S 


2 


4 


SUB ACTUAL TIME 




8B922240 




095A 4830 




BSC 




-Z 


IS TIME TOO SHORT 




8B922250 




095B 700C 


* 

* 


MDX 




MT104 

CHECK 


YES 

PRINT REQUEST SW 




8B922260 
8B922270 
8B922280 
8B922290 




095C C400 02E1 




LD 


L 


swo 


GET SW FNC 




8B922300 
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095E 1809 
095F 4804 
0960 700E 



0961 4C00 0771 

0963 C400 07BC 

0965 9400 0679 

0967 70EC 



0968 4400 083C 

096A 0F25 

0966 0F11 

096C E005 

0960 0001 

096E 70F2 



096F 4400 083C 

0971 0F25 

0972 0F11 

0973 A002 

0974 0001 

0975 70E6 



0976 COAE 

0977 DOAE 

0978 4400 0909 



097A COAD 
0976 4400 0830 
097D 4400 081F 
097F 07AA 
0980 4400 078D 



0982 C0A3 

0983 4820 

0984 702C 



0985 4400 078D 



SRA 
BSC 
MDX 



MT103 BSC 
MT105 LD 
S 

MDX 

* 

* 

MT104 BSI 
DC 
DC 

E005 DC 
DC 
MDX 

* 



MT107 BSI 
DC 

DC 
DC 
DC 
MDX 



9 
E 
MT107 



M0NR1 
TWRXO 
MT1X0 
MT108 



A002 



*XXXXXXXXXXXX 

*XXXXXXXXXXXX 

*XXXXXXXXXXXX 

* 

MTT02 LD 

STO 

BSI 
* 
* 

MT200 LD 
BSI 
BSI 
DC 

BSI 

* 



IS DATA PRINT REO. 
YES 

ROUTINE IS COMPLETE 

EXIT 

SUB TURNAROUND 

ERROR FOUND IN TIMING 

MLG PRINT ERROR 

MSG7E4 

MSG3S8 

/E005 ID E5 

/0001 LINE 0-FORM 1 

MT103 

DATA PRINT IS REQUESTED 

MLG PRINT DATA 

MSG764 

MSG3&8 

/A002 ID A2 

/0001 LINE 0-FORM 1 

MT103 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXX ROUTINE NUMBER TWO XXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



MTTX1 GET 0001 
MTTX3 SET RTN 2 SW 
CN1 GO SET CONSTANTS 

COMMON TO RTNS 2 AND 4 



MTTX9 
PRDWT 
INTRT 
TMWR4 
TMWRT 



* 



LD 

BSC 

MDX 



BSI 



GET WRT FNC 

GO SET UP 

SET INTRPT RETURN 

WRITE 

DETERMINE RTN BEING RUN 

MTTX3 GET RTN 2 SW 
Z IS THIS RTN 2 

MT203 YES 



SRC 



SRC 
SRC 



TMWRT 



0987 





4400 


07F0 


* 
* 

* 


BSI 


L. 


RWD 


0989 





C0A2 




MT208 


LD 




MTTY9 


098A 





4400 


0830 




BSI 


1 


PRDWT 


098C 





4400 


081F 




BSI 


L 


INTRT 


098E 





07C4 






DC 




TMRD4 


098F 





C400 


0926 




LD 


L 


MTTX3 


0991 





4820 






BSC 




Z 


0992 





7002 






MDX 




MT209 


0993 





4400 


07C0 




BSI 


L 


TMRDT 


0995 





4400 


07C0 


MT209 


BSI 


L 


TMRDT 



THIS IS RTN 4 

WRITE 

WRITE IS COMPLETE 

GO REWIND 

GET READ FNCT 

GO SET UP 

GO SET TIME INT RET 

GET RTN 2 SW 

IS THIS RTN 2 

YES 

GO READ 

GO READ 



SRC 

SRC 
SRC 



SRC 
SRC 



8B922310 

8B922320 

8B922330 

8B922340 

8B922350 

8B922360 

8B922370 

8B922380 

8B922390 

8B922400 

8B922410 

8B922420 

8B922430 

86922440 

8B922450 

8B922460 

86922470 

86922480 

86922490 

86922500 

86922510 

8B922520 

8B922530 

8B922540 

8B922550 

8B922560 

8B922570 

8B922580 

8B922590 

8B922600 

8B922610 

86922620 

8B922630 

8B922640 

8B922650 

8B922660 

8B922670 

8B922680 

8B922690 

8B922700 

8B922710 

8B922720 

8B922730 

8B922740 

8B922750 

8B922760 

8B922770 

86922780 

86922790 

8B922800 

86922810 

86922820 

8B922830 

8B922840 

8B922850 

8B922860 

86922870 

8B922880 

86922890 

86922900 

8B922910 

86922920 

8B922930 

8B922940 

86922950 

86922960 

8B922970 

8B922980 



'ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
17 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 
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0997 


C400 


0926 


# 


ID 


L 


MTTX3 


GET RTN 2 SW 


0999 


4820 






BSC 




Z 


IS THIS RTN 2 


099A 


7011 






MDX 




MT201 


YES 


099B 


C400 


07BC 




LD 


L 


TWRXO 


GET TIME 


0990 


D205 




MT202 


STO 


2 


5 


SAVE 


099E 


9202 






S 


2 


2 


SUB MAX TIME 


099F 


4830 






BSC 




-Z 


IS TIME TOO LONG 


09A0 


7013 






MDX 




MT204 


YES 


09A1 


C203 






LD 


2 


3 


GET MIN TIME 


09A2 


9205 






S 


2 


5 


SUB ACTUAL 


09A3 


48 30 






BSC 




-Z 


IS TIME TOO SH0R1 


09A4 


700F 




* 
# 


MOX 




MT204 


YES 












CHECK 


PRINT REQ SW 


09A5 


C400 


02E1 


* 


LD 


L 


SWO 


GET SW FNC 


09A7 


1809 






SRA 




9 




09A8 


4804 






BSC 




E 


IS SW SET 


09A9 


7011 




* 
* 
MT206 


MDX 




MT205 


YES 












PRINT 


NOT REQUESTED 


09AA 


4C00 


0771 


BSC 


L 


M0NR1 


EXIT 


09A,C 


C400 


07 BC 


MT201 


LD 


L 


TWRXO 


GET TIME 


09AE 


9400 


0679 




S 


L 


MT1X0 




09B0 


70EC 




* 


MDX 




MT202 

THIS 


IS RTN 2 


09B1 


4400 


07F0 


MT203 


BSI 


L 


RWD 


REWIND DRIVE 


09B3 


70D5 




J- 


MDX 




MT208 










* 






TIMING ERROR 


09 B4 


4400 


083C 


MT204 


BSI 


L 


MLG 


PRINT ERROR 


09B6 


0F29 






DC 




MSG864 




09B7 


0F11 






DC 




MSG3£8 




09B8 


E006 




E006 


DC 




/E006 


ID E6 


09B9 


0003 






DC 




/0003 


LINE 0-FORM 3 


09BA 


70EF 




* 
* 
* 
MT205 


MDX 




MT206 














PRINT 


REQUEST SW IS ON 


09BB 


4400 


08 3C 


BSI 


L 


MLG 


PRINT DATA 


09BD 


0F29 






DC 




MSG8G4 




09BE 


0F11 






DC 




MSG368 




09BF 


A003 




A003 


DC 




/A003 


ID A3 


09C0 


0003 






DC 




/0003 


LINE O-FORM 3 


09C1 


70E8 






MOX 




MT206 





SRC 



*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
<-XXXXXXXXXXXXXXXXX ROUTINE NUMBER THREE XXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



09C2 1010 
09C3 D400 0926 
09C5 4400 0910 
09C7 4C00 093F 



09C9 1010 
09CA D400 0926 
09CC 4400 0910 



16 

MTTX3 
CN2 
MT101 



ZERO ACCUM 
CLEAR RTN 1 SW 
GO SET CONSTANTS 
GO TO COMMON RTN 



SE 



SRC 



MTT03 SLA 

STO 

BSI 

BSC 
* 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE NUMBER FOUR XXXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* 
MTT04 SLA 16 ZERO ACCUM SE 

STO L MTTX3 CLEAR RTN 2 SW 

BSI L CN2 GO SET CONSTANTS SRC 
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8B922990 

8B923000 

8B923010 

8B923020 

8B923030 

86923040 

8B923050 

8B923060 

8B923070 

8B923080 

8B923090 

86923100 

8B923110 

8B923120 

86923130 

8B923140 

8B923150 

8B923160 

86923170 

86923180 

8B923190 

8B923200 

8B923210 

8B923220 

86923230 

8B923240 

86923250 

8B923260 

8B923270 

86923280 

8B923290 

8B923300 

8B923310 

86923320 

8B923330 

8B923340 

8B923350 

8B923360 

8B923370 

8B923380 

8B923390 

8B923400 

8B923410 

8B923420 

8B923430 

8B923440 

8B923450 

8B923460 

8B923470 

8B923480 

8B923490 

8B923500 

8B923510 

8B923520 

8B923530 

8B923540 

8B923550 

8B923560 

8B923570 

8B923580 

86923590 

8B923600 

86923610 

86923620 

8B923630 

8B923640 

8B923650 

8B923660 
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09CE 70AB 


* 


MDX 




MT200 


GO TO COMMON RTN 


8B923670 
8B923680 




*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B923690 




SXXXXXXXXXXXXXXXXX ROUTINE NUMBER FIVE XXXXXXX 


8B923700 




*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


8B923710 




* 










8B923720 




* 










86923730 




* 






SET UP FOR WRITE 


8B923740 




* 










86923750 


09CF 1010 


MTT05 


SLA 




16 


ZERO ACCUM 


8B923760 


09D0 D400 0926 




STO 


L 


MTTX3 




8B923770 


09D2 18D0 




RTE 




16 


CLEAR Q REG 


86923780 


09D3 1010 




SLA 




16 


CLEAR ACCUM 


86923790 


0904 DCOO 092E 




STD 


L 


MTTYC 


CLEAR ALL TOTALS 


86923800 


09D6 DCOO 0930 




STD 


L 


MTTYD 




8B923810 


09D8 DCOO 0932 




STD 


L 


MTTYE 




8B923820 


09DA D400 0B6B 




STO 


L 


GRL161 




8B923830 


09DC 0400 0B7A 




STO 


L 


MT526&1 




8B923840 


09DE D400 0B9E 




STO 


L 


LNSW 




86923850 


09E0 63D1 




LDX 


3 


-47 




8B923860 


09E1 D700 0E9B 


MT573 


STO 


L3 


TOTA&50 




8B923870 


09E3 7301 




MDX 


3 


1 


OECR IX 3 


8B923880 


09E4 70FC 




MDX 




MT573 


LOOP 


8B923890 


09E5 C400 0D2D 




LD 


L 


MT730 


RESTORE RTN CONSTANT 


8B923900 


09E7 D400 0B9F 




STO 


L 


PRSW 




8B923910 


09E9 CCOO 06D6 




LDD 


L 


MT506-1 




8B923920 


09EB DCOO 0C36 




STD 


L 


DLYC 




86923930 


09ED C400 0C38 




LD 


L 


ADRS1 




8B923940 


09EF 0040 




STO 




MT50A£1 




8B923950 


09F0 C400 0C3A 




LD 


L 


K0086 




8B923960 


09F2 D03B 




STO 




MT509S1 




8B923970 


09F3 CCOO 0C30 




LDD 


L 


MT5Q6 




8B923980 


09F5 D826 




STD 




MT5Q7 




8B923990 


09F6 C400 0C3D 




LD 


L 


MT5X3 




8B924000 


09F8 D400 0462 




STO 


L 


SW 




8B924010 


09FA 1010 




SLA 




16 




8B924020 


09FB D400 0C42 




STO 


L 


LINE 




8B924030 


09FD D400 0926 




STO 


L 


MTTX3 




8B924040 


09FF 0400 0C3E 




STO 


L 


MT5X4 




8B924050 


0A01 C400 0939 




LD 


L 


MTTZ1 




8B924060 


0A03 D400 0B27 




STO 


L 


MT51D 




8B924070 


0A05 C400 093A 




LD 


L 


MTTZ161 




8B924080 


0A07 0400 0B28 




STO 


L 


MT51DC1 




8B924090 


0A09 C400 0928 




LD 


L 


MTTX9 




8B924100 


OAOB 4400 08 30 




BSI 


L 


PROWT 


GO SET UP SRC 


8B924110 


OAOD 4400 081F 




BSI 


L 


INTRT 


GO SET TIME INT RET SRC 


8B924120 


OAOF 07AA 


* 


DC 




TMWR4 




8B924130 
8B924140 




* 






WRITE 


FIRST RECORD 


8B924150 




* 










8B924160 


0A10 4400 078D 


MT502 
* 


BSI 


L 


TMWRT 


WRITE 


8B924170 
8B924180 




* 






DELAY 


10 MILLISEC 


8B924190 




* 










8B924200 


0A12 C400 06A5 




LD 


L 


MT540 


GET DELAY CT 


8B924210 


0A14 D400 0C33 




STO 


L 


DLY1 


SET 


8B924220 




«$##*##**#*****#**###****##*##********##*#**** 


8B924230 


0A16 4400 038C 




BSI 


L 


DELAY 


GO DELAY * 


8B924240 


0A18 0C32 




DC 




DLY1-1 


ADRS OF COUNT * 


8B924250 




is****************** #**#**#*****#**********##* 


8B924260 




* 










8B924270 




* 






WRITE 


SECOND RECORD 


8B924280 




* 










8B924290 


0A19 4400 078D 


MT503 


t BSI 


L 


TMWRT 


WRITE 


8B924300 


0A1B 7000 


* 


MDX 




MT5Q7 


BRANCH 


8B924310 
8B924320 




* 






VARIABLE DELAY .5 MILLISEC 


8B924330 




* 






TO 5 


SECS. 


86924340 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 
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* 










8B924350 


0A1C 




0000 






BSS 


E 







8B924360 


0A1C 





1000 




MT5Q7 


NOP 







REPLACED BY BRANCH 


8B924370 


0A1D 





1000 






NOP 







*DURING LFT COL TST 


8B924380 


0A1E 





4400 


078D 




BSI 


L 


TMWRT 


WRITE 3RD RECORD 


86924390 


OA20 





ccoo 


0C36 




LDD 


L 


DLYC 


GET DELAY COUNT 


8B924400 


OA22 





DCOO 


0C34 




STD 


L 


DLY2-1 


SET 


8B924410 










********** 


*** 


****-r -..***** 


************ *,.******** 


8B924420 


0A24 





4400 


038C 


MT505 


BSI 


L 


DELAY 


GO DELAY * 


8B924430 


0A26 





0C34 






DC 




DLY2-1 


ADRS OF COUNT *■ 


8B924440 










********** 


********** **** 


*********** *********** 


8B924450 


0A27 





6600 


06EO 


MT508 
* 

* 


LDX 


L2 


DST 

WRITE 


FOURTH RECORD 


8B924460 
8B924470 
8B924480 
8B924490 


0A29 





4400 


078D 


* 
* 
* 


BSI 


L 


TMWRT 

WRITE 


WRITE 

FIFTH RECORD 


8B924500 
8B924510 
8B924520 
8B924530 


0A2B 





4400 


078D 


* 


BSI 


L 


TMWRT 


WRITE 


8B924540 
8B924550 










* 






PREPARE FOR NEXT SERIES 


8B924560 










* 










8B924570 


0A2D 





6700 


005 6 


MT509 


LDX 


L3 


86 


SET IXING 


88924580 


0A2F 





CFOO 


067E 


MT50A 


LDD 


L3 


MT5X064 


GET NEXT DELAY 


8B924590 


0A31 





DCOO 


0C36 




STD 


L 


DLYC 


SET 


8B924600 


OA33 





74FE 


0A2E 




MOX 


L 


MT509&1.-2 


DECR IX 


8B924610 


0A35 





70DA 




* 


MDX 




MT502 


GO WRITE NEXT SERIES 


88924620 
8B924630 


0A36 





C400 


0C3A 




LD 


L 


K0086 


RESTORE ROUTINE 


8B924640 


0A38 





D0F5 






STO 




MT50961 


* 


8B924650 


0A39 





C400 


0C38 




LD 


L 


ADRS1 


* 


8B924660 


0A3B 





D0F4 






STO 




MT50AS1 


* 


8B924670 


0A3C 





CCOO 


06D6 




LDD 


L 


MT506-1 


* 


8B924680 


0A3E 





DCOO 


0C36 


* 


STD 


L 


DLYC 


* 


88924690 
8B924700 


0A40 





74FF 


0462 




MDX 


L 


SW.-l 


CK FOR SERIES COMPLT 


8B924710 


0A42 





7014 






MDX 




MT590 


SET FOR LOAD LFT COL 


8B924720 


0A43 





C400 


0C3D 




LD 


L 


MT5X3 


GET 2 


8B924730 


0A45 





D400 


046 2 




STO 


L 


SW 


SET IN SW 


88924740 


0A47 





CCOO 


0C30 




LDD 


L 


MT5Q6 


RESTORE PROGRAM 


8B924750 


0A49 





D8D2 






STD 




MT5Q7 


* 


8B924760 


0A4A 





7401 


0926 




MDX 


L 


MTTX3.1 


CK FOR 5 PASSES 


8B924770 


0A4C 





C400 


0926 




LD 


L 


MTTX3 


* 


8B924780 


0A4E 





9400 


0C45 




S 


L 


MT5XF 


* 


8B924790 


0A50 





4820 






BSC 




Z 


SKIP IF FINISHED 


8B924800 


0A51 





70BE 






MDX 




MT502 


GO WRT NEW PASS 


8B924810 


0A52 





D400 


0926 




STO 


L 


MTTX3 


CLEAR PASS COUNT 


8B924820 


0A54 





4400 


07FO 




BSI 


L 


RWD 


REWIND 


8B924830 


0A56 





700A 




* 


MDX 




MT583 


GO READ 


88924840 
8B924850 


0A57 





C400 


0C3B 


MT590 


LD 


L 


K0010 


SET IX FOR FINAL DLY 


8B924860 


0A59 





DO 04 






STO 




MT509U 


* 4 DELAYS 


8B924870 


0A5A 





C400 


0C39 




LD 


L 


ADRS2 


GET LOAD ADRS 


8B924880 


0A5C 





D0D3 






STO 




MT50AG1 


SET 


8B924890 


0A5D 





CCOO 


0C2E 




LDD 


L 


KBSC 


SET BRANCH TO LOAD 


8B924900 


0A5F 





D8BC 






STD 




MT5Q7 


* LEFT COLUMN 


8B924910 


0A60 





70CC 




* 


MDX 




MT509 


GO FINISH SERIES 


8B924920 
88924930 










* 






SET UP TO READ 


8B924940 










* 










8B924950 


0A61 





C400 


092C 


MT583 


LD 


L 


MTTY9 


GET FNC READ 


8B924960 


0A63 





4400 


08 30 




BSI 


L 


PRDWT 


GO SET UP 


8B924970 


0A65 





4400 


08 IF 




BSI 


L 


INTRT 


GO SET TIME INT RET SRC 


8B924980 


0A67 





07C4 






DC 




TMRD4 




86924990 


0A68 





4400 


0910 


MT50D 

* 

* 


BSI 


L 


CN2 

READ 1 


GO SET CONSTANTS SRC 
FIRST RECORD 


8B925000 
8B925010 
8B925020 





















8B925030 


0A6A 





4400 


07C0 




BSI 


L 


TMRDT 


GO READ SRC 8B925040 










* 










86925050 










+ 






READ 


SECOND RECORD 


86925060 










* 










8B925070 


0A6C 





4400 


07C0 




BSI 


L 


TMRDT 


GO READ SRC 88925080 


0A6E 





C400 


07BC 




LD 


L 


TWRXO 


GET THE TIME 


88925090 


0A70 





D400 


0E69 




STO 


L 


TOTA 


SAVE 


8B925100 


0A72 





4400 


07C0 




BSI 


L 


TMRDT 


READ 3RD RECORD 


8B925110 


0A74 





4400 


07C0 




BSI 


L 


TMRDT 


READ 4TH RECORD 


8B925120 


0A76 





C400 


07BC 




LD 


L 


TWRXO 


GET THE TIME 


86925130 


0A78 





D400 


0E6A 


* 


STO 


L 


T0TA61 

READ 


SAVE 
FIFTH RECORD 


8B925140 
86925150 
8B925160 
86925170 


0A7A 





4400 


07C0 




BSI 


L 


TMRDT 


GO READ SRC 8B925180 


0A7C 





C400 


07BC 




LD 


L 


TWRXO 


GET THE TIME 


8B925190 


0A7E 





D400 


0E6B 




STO 


L 


T0TAK2 


SAVE 


8B925200 


OA80 





C400 


0E69 




LD 


L 


TOTA 


GET 10 MSEC GOT 


8B925210 


0A82 





1890 






SRT 




16 




8B925220 


0A83 





8C00 


092E 




AD 


L 


MTTYC 


ADD TOTAL 


8B925230 


0A85 





DCOO 


092E 




STD 


L 


MTTYC 


SAVE 


88925240 


0A87 





C400 


0E6A 




LD 


L 


T0TA61 


GET VAR GDT CT 


86925250 


0A89 





1890 






SRT 




16 




8B925260 


0A8A 





8CO0 


0930 




AD 


L 


MTTYD 


ADD TO TOTAL 


88925270 


0A8C 





DCOO 


0930 




STD 


L 


MTTYD 


SAVE 


86925280 


0A8E 





6700 


0E6C 


MT50F 


LDX 


L3 


T0TAS3 


IX 3 * ADRS TOTALS 


8B925290 


0A90 





C400 


0E6A 




LD 


L 


T0TA&1 


GET A COUNT 


8B925300 


0A92 





8300 






A 


3 





ADD TO TOTAL 


88925310 


OA93 





D300 






STO 


3 





SAVE 


8B925320 


0A94 





7301 






MDX 


3 


1 


STEP IX 3 


8B925330 


0A95 





6BF9 






STX 


3 


MT50F61 


SAVE IX 3 


8B925340 


0A96 





C400 


0E6B 




LD 


L 


T0TAS2 


GET MIN GDT COUNT 


86925350 


0A98 





1890 






SRT 




16 




8B925360 


0A99 





8C00 


09 32 




AD 


L 


MTTYE 


ADD TO TOTAL 


8B925370 


0A96 





DCOO 


0932 




STD 


L 


MTTYE 


SAVE 


88925380 


0A9D 





7401 


0C3E 




MDX 


L 


MT5X4.1 


ADD 1 TO SERIES CT 


86925390 


0A9F 





C400 


0C3E 




LD 


L 


MT5X4 


GET SERIES CT 


88925400 


0AA1 





9400 


092A 




S 


L 


MTTY5 


SUB 81 


88925410 


0AA3 





4820 






BSC 




Z 


IS A SERIES COMPLETE 


8B925420 


0AA4 





70C3 






MDX 




MT50D 


NO 


8B925430 


0AA5 





D400 


0C3E 




STO 


L 


MT5X4 


CLEAR SERIES CTR 


88925440 


0AA7 





C400 


092D 




LD 


L 


MTTYB 




86925450 


0AA9 





D0E5 






STO 




MT50F&1 


RESTORE LDX 


88925460 


OAAA 





7401 


0926 




MDX 


L 


MTTX3.1 


ADD 1 TO PASS CT 


8B925470 


OAAC 





C400 


0926 




LD 


L 


MTTX3 


GET PASS CT 


8B925480 


OAAE 





9400 


0C45 




S 


L 


MT5XF 


SUB 5 


8B925490 


OABO 





4820 






BSC 




Z 


IS THI": FIVE PASSES 


86925500 


0AB1 





70B6 






MDX 




MT50D 


NO 


8B925510 


0AB2 





D400 


0926 


* 


STO 


L 


MTTX3 


CLEAR PASS CT 


8B925520 
8B925530 










* 






5 PASSES COMPLETE— OUTPUT 


8B925540 
















A PLOT OF VAR DELAYS 


8B925550 










* 










8B925560 


0AB4 





6306 






LDX 


3 


6 




88925570 


0AB5 





CFOO 


092C 


MT524 


LDD 


L3 


MTTYC-2 


GET A COUNT 


8B925580 


0AB7 





ACOO 


0938 




D 


L 


MTTZO 


AVG IT 


8B925590 


0A69 





D700 


092C 




STO 


L3 


MTTYC-2 


SAVE 


8B925600 


OABB 





73FE 






MDX 


3 


-2 


ARE ALL AVCED 


8B925610 


OABC 





70F8 






MDX 




MT524 


NO-LOOP 


8B925620 


0A6D 





C400 


02E1 




LD 


L 


SWO 


GET SW FNC 


8B925630 


OABF 





1808 






SRA 




8 




88925640 


OACO 





4804 






BSC 




E 


IS BYPASS GRAPH ON 


8B925650 


0AC1 





7001 






MDX 




MT580 


YES 


8B925660 


0AC2 





7002 






MDX 




MT525-2 


NO 


88925670 


0AC3 





4CO0 


OBCb 


MT580 


BSC 


L 


MT521 




8B925680 


0AC5 





6700 


FFD1 




LDX 


L3 


-47 




8B925690 


0AC7 





C700 


0E9B 


MT525 


LD 


L3 


T0TA&50 


GET VAR TOTAL 


86925700 



ATE 
cC NO. 



01JUL66 
415178 



01NOV66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
19 



"ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



0889-2 
19A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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0AC9 





1890 






SRT 




16 




8B925710 


OACA 





ACOO 


0C45 




D 


L 


MT5XF 


AVG IT 


8B925720 


OACC 





D700 


0E9B 




STO 


L3 


T0TA650 


SAVE 


8B925730 


OACE 





7301 






MDX 


3 


1 




8B925740 


OACF 





70F7 






MDX 




MT525 


NO-LOOP 


8B925750 


OADO 





6D00 


0BC4 




STX 


LI 


MT52061 


SAVE IX 1 


8B925760 


0AD2 





1010 






SLA 




16 


PRINT BLANK LINE 


8B925770 


0AD3 





4400 


0C19 




BSI 


L 


LOADK 


* 


8B925780 


0AD5 





4400 


044C 




BSI 


L 


PCCO 


* 


8B925790 


0AD7 





6700 


0DB1 




LDX 


L3 


PR3-1 


IX # MSG ADRS 


8B925800 


0AD9 





4400 


0C21 




BSI 


L 


LOADV 


SET MSG - PRINT 


8B925810 


OADB 





6204 






LDX 


2 


-44 




8B925820 


OADC 





6580 


06EF 




LDX 


11 


DSTE15 


IX 1 # NO TRACKS 


8B925830 


OADE 





C500 


0675 




LD 


LI 


MT5XA 


SET LINE LIMITS 


86925840 


OAEO 





D400 


0C43 




STO 


L 


MT5XE 




8B925850 


0AE2 





C500 


0677 




LD 


LI 


MT5XA62 




8B925860 


0AE4 





D400 


0C44 




STO 


L 


MT5XE61 




8B925870 


0AE6 





C400 


0C43 


MT516 


LD 


L 


MT5XE 




8B925880 


0AE8 





9400 


06DB 




S 


L 


GPHLM 


SET TO NEXT LINE 


8B925890 


OAEA 





D400 


0C43 




STO 


L 


MT5XE 




8B925900 


OAEC 





C400 


0C44 




LD 


L 


MT5XE&1 




8B925910 


OAEE 





9400 


06DB 




S 


L 


GPHLM 


SET TO NEXT LINE 


8B925920 


OAFO 





D400 


0C44 




STO 


L 


MT5XES1 




8B925930 


0AF2 





7401 


0C42 




MDX 


L 


LINE,1 


INCR LINE COUNT 


8B925940 


0AF4 





C400 


06EF 




LD 


L 


DST615 


GET NO TRACKS 


8B925950 


0AF6 





4C18 


0B04 




BSC 


L 


TRK9,£- 


BCH IF 9 TRK 


8B925960 


0AF8 





C400 


0C42 




LD 


L 


LINE 


GET LINE COUNT 


8B925970 


OAFA 





9400 


0461 




S 


L 


PCCX1 


SUB 9 


8B925980 


OAFC 





4C18 


OBOB 




BSC 


L 


MT517,£- 


BCH IF 9 


8B925990 


OAFE 





9400 


0C3C 


NTDSH 


S 


L 


MT5X2 


SUB 30 


8B926000 


OBOO 





4C18 


OBOB 




BSC 


L 


MT517.E- 


BCH IF 39 


8B926010 


0B02 





1010 






SLA 




16 


CLEAR ACC 


8B926020 


0BO3 





7009 






MDX 




MT517&2 


BRANCH 


8B926030 


0B04 





C400 


0C42 


TRK9 


LD 


L 


LINE 


GET LINE COUNT 


8B926040 


0B06 





9400 


0463 




S 


L 


K007 


SUB 7 


8B926050 


0B08 





4C18 


OBOB 




BSC 


L 


MT517.S- 


BCH IF 7 


8B926060 


OBOA 





70F3 






MDX 




NTDSH 




8B926070 


OBOB 





C400 


0C41 


MT517 


LD 


L 


KDASH 


GET DASH 


8B926080 


OBOD 





4400 


0C19 




BSI 


L 


LOADK 


SET I/O AREA 


8B926090 


OBOF 





1010 






SLA 




16 


CLEAR ACC 


8B926100 


0B10 





D400 


0D93 




STO 


L 


PRA3 


* 


8B926110 


0B12 





D400 


0D94 




STO 


L 


PRA1 


* 


8B926120 


0B14 





C400 


0C41 




LD 


L 


KDASH 


SET FINAL DASH 


8B926130 


0B16 





1008 






SLA 




8 




8B926140 


0B17 





D400 


ODBO 




STO 


L 


PRA£26 




8B926150 


0B19 





C400 


036E 




LD 


L 


ONE 


GET ONE 


8B926160 


0B1B 





D400 


OBAO 




STO 


L 


CKHLW 


SET SW # ODD 


8B926170 


0B1D 





C400 


066C 




LD 


L 


SPEC 


GET * 


8B926180 


0B1F 





D400 


0095 




STO 


L 


PRA4£3 


SET IN I/O 


8B926190 


0B21 





63E5 






LDX 


3 


-27 


IX # MSG 


8B926200 


0B22 





6101 






LDX 


1 


-47 




8B926210 


0B23 





C500 


0E9B 


MT519 


LD 


LI 


TOTA&50 


GET A COUNT 


8B926220 


0B25 





4C18 


0B59 




BSC 


L 


MT51B,£- 


IS IT ZERO 


8B926230 


0B27 





9400 


0C43 


MT51D 


S 


L 


MT5XE 


SUB GRAPH LIMIT 


8B926240 


0B29 





4C28 


0B3C 




BSC 


L 


MT51A,£Z 


IS COUNT LESS 


86926250 


0B2B 





1010 






SLA 




16 


ZERO ACCUM 


8B926260 


0B2C 





D500 


0E9B 




STO 


LI 


T0TAE50 


ZERO THE COUNT 


8B926270 


0B2E 





C071 




MT51E 


LD 




CKHLW 


GET HALF WD SW 


8B926280 


0B2F 





4804 






BSC 




E 


IS THIS FIRST HALF 


8B926290 


0B30 





7008 






MDX 




MT51F 


YES 


8B926300 


0B31 





C400 


0C3F 




LD 


L 


MT5X8 


GET AN E 


8B926310 


0B33 





1808 






SRA 




8 


SET TO SECOND HALF 


86926320 


0B34 





EFOO 


0DB1 




OR 


L3 


PRA627 


SET IN MSG 


8B926330 


0B36 





D700 


0DB1 


MTAAA 


STO 


L3 


PRA627 


* 


8B926340 


0B38 





7020 






MDX 




MT51B 




8B926350 


0B39 





C400 


0C3F 


MT51F 


LD 


L 


MT5X8 


GET AN E 


8B926360 


0B3B 





70F8 




* 


MDX 




MTAAA-2 




8B926370 
8B926380 



0B3C C500 0E9B 


MT51A 


LD 


LI 


T0TAC50 


GET A COUNT 


0B3E 9400 0C43 




S 


L 


MT5XE 




0B40 4830 




BSC 




-Z 


IS COUNT LESS/EQUAL 


0B41 7017 




MDX 




MT51B 


NO 


0B42 C500 0E9B 




LD 


LI 


T0TA&50 


GET A COUNT 


0B44 9400 0C44 




S 


L 


MT5XE61 




0B46 4828 




BSC 




6Z 


IS COUNT FOR THIS LN 


0B47 7011 




MDX 




MT51B 


NO 


0B48 C057 




LD 




CKHLW 


GET HALF WD SW 


0B49 4804 




BSC 




E 


IS THIS FIRST HALF 


0B4A 7008 




MDX 




MTAAB 


YES 


0B4B C400 0C40 




LD 


L 


MT5X9 


GET A ZERO 


0B4D 1808 




SRA 




8 




0B4E EFOO 0DB1 




OR 


L3 


PRA627 


SET IN MSG 


0B50 0700 0DB1 


MTAAC 


STO 


L3 


PRA627 




0B52 7003 




MDX 




MTAAD 




0B53 C400 0C40 


MTAAB 


LD 


L 


MT5X9 


GET A ZERO 


0B55 70F8 




MDX 




MTAAC-2 




0B56 1010 


MTAAD 


SLA 




16 


ZERO ACCUM 


0B57 D500 0E9B 




STO 


LI 


TOTA650 


ZERO THE COUNT 


0B59 7401 OBAO 


MT51B 


MOX 


L 


CKHLW, 1 


INCR HALF WD SW 


0B5B C044 




LD 




CKHLW 


GET HALF WD SW 


0B5C 4804 




BSC 




E 


IS IT EVEN 


0B5D 7301 




MDX 


3 


1 


NO-DECR IX 3 


0B5E 1000 




NOP 








0B5F 7101 




MDX 


1 


1 


DECR IX 1 


0B60 70C2 


* 
* 


MDX 




MT519 


LOOP 








A LINE IS SET UP-PRINT 


0B61 7401 0B9E 


* 


MDX 


L 


LNSWtl 


ADD ONE TO LINE SW 


0B63 6A25 




STX 


2 


MT51CS1 




0B64 C039 




LD 




LNSW 


GET LINE SW 


0B65 9039 




S 




PRSW 


SUB PRINT SW 


0B66 4820 




BSC 




Z 


ARE THEY EQUAL 


0B67 7011 




MDX 




MT526 


NO 


0B68 740A 0B9F 




MDX 


L 


PRSW, 10 


ADD TEN TO PRINT SW 


0B6A 6600 0000 


GRL1 


LDX 


L2 





IX 2 # CHARACTER 


0B6C C400 06EF 




LD 


L 


DST&15 


GET NO TRACKS 


0B6E 4820 




BSC 




Z 


IS THIS 9 TRACK 


0B6F 7003 




MDX 




MT518 


NO 


0B70 C600 0BA1 


MT572 


LD 


L2 


PR6 


GET 9 TRACK CHAR 


0B72 7002 




MDX 




MT50B 




0B73 C600 0BA5 


MT518 


LD 


L2 


PR7 


GET 7 TRACK CHAR 


0B75 D400 0D94 


MT50B 


STO 


L 


PRA1 


SET IN MSG 


0B77 7401 0B6B 




MDX 


L 


GRLU1.1 


SELECT NEXT CHAR 


0B79 6600 0000 


MT526 


LDX 


L2 





IX I # CHARACTER 


0B7B C600 OE06 




LD 


L2 


PR8 


GET CHARACTER 


0B7D D400 0D93 




STO 


L 


PRA3 


SET IN MSG 


0B7F 7401 0B7A 




MDX 


L 


MT52661,! 


INCR IX 2 




*###**##*#*#*************#*##«****#********#< 


0B81 4400 044C 




BSI 


L 


PCCO 


GO PRINT 




*******£*************##*********##**#*******> 


0B83 1010 


MT50C 


SLA 




16 




0B84 D400 0D93 




STO 


L 


PRA3 


RESTORE 


0B86 D400 0D94 




STO 


L 


PRA1 


SET IN MSG 


0B88 6600 0000 


MT51C 


LDX 


L2 





RESTORE IX 2 


0B8A 7201 




MDX 


2 


1 


ARE ALL LINES DONE 


0B8B 7010 




MDX 




MT584 


LOOP 


0B8C C400 0926 




LD 


L 


MTTX3 


GET LAST LINE SW 


0B8E F400 0925 




EOR 


L 


MTTX1 


EOR WITH 0001 


0B90 D400 0926 




STO 


L 


MTTX3 


SAVE 


0B92 4C18 0BA9 




BSC 


L 


MT562,£- 


BRANCH IF DONE 


0B94 C400 0936 




LD 


L 


MTTYF 


NO 


0B96 D090 




STO 




MT51D 


MODIFY PROG 


0B97 C400 0937 




LD 


L 


MTTYF61 




0B99 D08E 




STO 




MT51D61 


MODIFY PROG 


0B9A 6600 FFFF 




LDX 


L2 


-1 


IX 2 # FFFF 



PART NO. 
PAGE 



8B926390 

8B926400 

8B926410 

8B926420 

8B926430 

8B926440 

8B926450 

8B926460 

8B926470 

8B926480 

8B926490 

8B926500 

8B926510 

8B926520 

8B926530 

8B926540 

8B926550 

8B926560 

8B926570 

8B926580 

8B926590 

8B926600 

8B926610 

8B926620 

8B926630 

8B926640 

8B926650 

8B926660 

8B926670 

8B926680 

8B926690 

8B926700 

8B926710 

8B926720 

8B926730 

8B926740 

8B926750 

8B926760 

8B926770 

8B926780 

8B926790 

8B926800 

8B926810 

8B926820 

8B926830 

8B926840 

8B926850 

8B926860 

8B926870 

8B926880 

8B926890 

8B926900 

8B926910 

8B926920 

8B926930 

8B926940 

8B926950 

8B926960 

8B926970 

8B926980 

8B926990 

8B927000 

8B927010 

8B927020 

8B927030 

8B927040 

8B927050 

8B927060 



2196491 
20A 



ATE 
cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
20 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 
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0B9C 4C00 0AE6 


MT584 BSC 


L 


MT516 


LOOP 


0B9E 0000 


LNSW 


DC 









0B9F 0007 


PRSW 


DC 




7 




OBAO 0000 


CKHLW DC 







HALF WD SW 


0BA1 3B08 


PR6 


DC 




/3B08 


PRINTER .8 


0BA2 3B07 




DC 




/3B07 


PRINTER .7 


0BA3 3B06 




DC 




/3B06 


PRINTER .6 


0BA4 3B05 


# 


DC 




/3B05 


PRINTER .5 


0BA5 013B 


PR7 


DC 




/013B 


PRINTER 1. 


0BA6 3B09 




DC 




/3B09 


PRINTER .9 


0BA7 3B08 




DC 




/3B08 


PRINTER .8 


0BA8 3B07 


$ 


DC 




/3B07 


PRINTER .7 




* 
* 






GRAPH COMPLETE-PRINT AVGS 




***** 


♦ ♦Si*********************^***.^^.^^.^.;., 


0BA9 6700 0DB1 


MT562 


LDX 


L3 


■ PR3-1 


LOAD MSG ADRS 


OBAB 4400 0C21 




BSI 


L 


LOADV 


SET MSG -PRINT 


OBAD 6700 ODCD 




LDX 


L3 


PR4-1 


LOAD MSG ADRS 


OBAF 4400 0C21 




BSI 


L 


LOADV 


SET MSG - PRINT 


0BB1 C400 02E1 




LD 


L 


SWO 


GET SWITCHES 


0BB3 1005 




SLA 




5 


CK HEADING BYPASS 


0BB4 4C28 OBBE 




BSC 


L 


BY,£Z 


BCH IF ON 


0BB6 6700 0DE9 




LDX 


L3 


NOTE-1 


LOAD MSG ADRS 


0BB8 4400 0C21 




BSI 


L 


LOADV 


SET MSG - PRINT 


OBBA 6700 0E30 




LDX 


L3 


N0TE1-1 


IX # MSG ADRS 


OBBC 4400 0C21 




BSI 


L 


LOADV 


SET MSG - PRINT 


OBBE 1010 


BY 


SLA 




16 


CLEAS ACC 


OBBF 4400 0C19 




BSI 


L 


LOADK 


SET BLANK MSG 


0BC1 4400 044C 




BSI 


L 


PCCO 


PRINT 


0BC3 65 00 0000 


MT520 


LDX 


LI 


*-* 


RESTORE IX 1 


0BC5 6600 06E0 


MT521 


LDX 


L2 


DST 


RESTORE IX 2 


0BC7 1010 




SLA 




16 


CLEAR A REG 


0BC8 D400 0B6B 




STO 


L 


GRL1£1 




OBCA D0D3 




STO 




LNSW 




OBCB DOAE 




STO 




MT526S1 




OBCC C400 0D2D 




LD 


L 


MT730 


GET 0007 


OBCE DODO 




STO 




PRSW 




OBCF 4400 083C 




BSI 


L 


MLG 


PRINT AVERAGES 


0BD1 0F35 




DC 




MSG10G4 




0BD2 0F19 




DC 




MSG4E8 




0BD3 A004 


A004 


DC 




/A004 


ID A4 


0BD4 0004 


j. 


DC 




/0004 


LINE 0-FORM 4 




* 






REWIND THE DRIVE-RESTORE 


0BD5 C400 0939 




LD 


L 


MTTZ1 




0B07 D400 OB27 




STO 


L 


MT51D 


RESTORE PROG 


0BD9 C400 093A 




LD 


L 


MTTZ1E1 




OBDB D400 0B28 




STO 


L 


MT51D&1 


RESTORE PROG 


OBDD 4400 07F0 


MT581 


BSI 


L 


RWD 


GO REWIND S 


OBDF C400 02E1 




LD 


L 


SWO 


GET SW FNC 


0BE1 1008 




SLA 




8 




0BE2 4810 




BSC 




_ 


IS LOOP RD ON 


0BE3 702F 




MDX 




MT582 


NO 


0BE4 1010 




SLA 




16 


RESTORE NECESSARY 


0BE5 D400 0926 




STO 


L 


MTTX3 


"•VALUES IN RTN 


0BE7 D05A 




STO 




LINE 




0BE8 D0B5 




STO 




LNSW 




0BE9 18D0 




RTE 




16 




OBEA 1010 




SLA 




16 




OBEB DCOO 092E 




STD 


L 


MTTYC 




OBED DCOO 0930 




STD 


L 


MTTYD 




OBEF DCOO 0932 




STD 


L 


MTTYE 




0BF1 D400 0B6B 




STO 


L 


GRLU1 




0BF3 D400 0B7A 




STO 


L 


MT526U 





SRC 



8B927070 
8B927080 
8B927090 
8B927100 
8B927110 
8B927120 
8B927130 
8B927140 
8B927150 
8B927160 
8B927170 
8B927180 
8B927190 

8B927200 

8B927210 

8B927220 

8B927230 

8B927240 

86927250 

8B927260 

8B927270 

8B927280 

8B927290 

8B927300 

8B927310 

8B927320 

8B927330 

8B927340 

8B927350 

8B927360 

86927370 

8B927380 

88927390 

8B927400 

8B927410 

8B927420 

8B927430 

8B927440 

8B927450 

8B927460 

8B927470 

8B927480 

86927490 

86927500 

8B927510 

88927520 

8B927530 

86927540 

8B927550 

8B927560 

8B927570 

8B927580 

8B927590 

8B927600 

86927610 

8B927620 

8B927630 

86927640 

86927650 

88927660 

8B927670 

8B927680 

86927690 

8B927700 

86927710 

86927720 

8B927730 

86927740 



0BF5 6700 FFD1 




LDX 


L3 -47 






8B927750 


0BF7 D700 0E9B 
0BF9 7301 
OBFA 70FC 


MT585 STO 
MDX 

MDX 


L3 TOTA650 
3 1 

MT585 






88927760 
8B927770 
8B927780 


08F6 D042 




STO 




MT5X4 






8B927790 
8B927800 
8B927810 
8B927820 
8B927830 
8B927840 


OBFC C400 0D2D 
OBFE D400 0B9F 
OCOO C400 0939 
0C02 D400 0827 




LD 
STO 
LD 
STO 


L 
L 
L 

L 


MT730 
PRSW 
MTTZ1 
MT510 






OC04 C400 093A 




LD 


L 


MTTZ161 






0C06 D400 0B28 
0C08 C827 
0C09 DCOO 0A1C 




STO 
LDD 
STD 


L 
L 


MT51DS1 

MT5Q6 

MT507 






8B927850 
8B927860 
8B927870 


OCOB C031 
OCOC D400 0462 
OCOE C029 




LD 
STO 

LD 


L 


MT5X3 

SW 

ADRS1 






86927880 
8B927890 
86927900 


OCOF D400 0A30 
0C11 4CO0 0A61 




STO 
BSC 


L 
L 


MT50AC1 
MT583 


LOOP READ 




86927910 
8B927920 


0C13 4C00 0771 


MT582 

* 


BSC 


L 


M0NR1 


EXIT 




8B927930 
86927940 
88927950 




& 






INTRPT RETURN ON WRITE 


8B927960 


0C15 4C80 0780 


MT522 

* 


BSC 


I 


TMWRT 


GO TO CALLING 


■ RTN 


8B927970 
8B927980 














86927990 




* 

£ 






INTRPT RETURN ON TH 


READ 


8B928000 


0C17 4C80 07C0 


MT523 


BSC 


I 


TMRDT 






8B928010 
8B928020 
8B928030 


0C19 0000 
OCIA 631C 
OCIB D700 0D92 
OCID 73FF 
OCIE 70FC 
OCIF 4C80 0C19 


LOADK 
L0AD1 


DC 

LDX 

STO 

MDX 

MDX 

BSC 


3 

L3 

3 

I 


LOAD 

*-* 

28 

PRA3-1 

-1 

L0AD1 

LOADK 


I/O AREA WITH CONSTANT 
RETURN ADRS 

STORE IN MSG AREA 
RETURN TO MAINLINE 


8B928040 
8B928050 
8B928060 
8B928070 
8B928080 
8B928090 
88928100 




* 












8B928110 




* 

LOADV 






LOAD 


I/O AREA WITH 


MESSAGE 


8B928120 


0C21 0000 


DC 




*-* 


RETURN ADDR 




8B928130 
86928140 


0C22 6B02 
0C23 631C 
0C24 C700 0000 


MT510 


STX 
LDX 
LD 


3 

3 

L3 


MT510&1 
28 

*-* 


LOAD MESSAGE 




8B928150 
8B928160 
8B928170 


0C26 0700 0D92 
0C28 73FF 
0C29 70FA 




STO 

MDX 
MDX 


L3 
3 


PRA3-1 

-1 

MT510 


STORE IN MSG 


AREA 


8B928180 
8B928190 
8B928200 
8B9282 10 


0C2A 4400 044C 




BSI 


L 


PCCO 


PRINT MESSAGE 




0C2C 4C80 0C21 




BSC 


I 


LOADV 


RETURN TO MAINLINE 


8B928220 
















8B928230 




£ 












8B928240 




~£ 






ROUTINE 5 CONSTANTS 




8B928250 


0C2E 0000 
0C2E 4400 0C46 


K8SC 


BSS 
BSI 


E 
L 



LDLFT 


BRANCH TO LFT 


COL LD 


8B928260 
8B928270 
8B928280 


0C30 1000 
0C31 1000 
0C32 0000 
0C33 0000 
0C34 0000 
0C35 0000 


MT5Q6 

DLY1 
DLY2 


NOP 
NOP 

DC 
DC 
DC 
DC 











o 


PROG RESTORE 
* 

DELAY COUNT 1 

* 

DELAY COUNT 2 




86928290 
86928300 
86928310 
88928320 
8B928330 


0C36 0000 
0C37 0000 


DLYC 


DC 
DC 






o 


DELAY STORAGE 




86928340 
88928350 


0C38 067E 
0C39 0676 
0C3A 0056 
0C38 OOOA 


ADRS1 
ADRS2 
K0086 
K0010 


DC 
DC 
DC 
DC 




MT5X0£4 
MT5X0-4 
86 

10 


CONSTANTS 
* 




8B928360 
8B928370 
8B928380 
88928390 


0C3C 001E 
0C3D 0002 


MT5X2 
MT5X3 


DC 
DC 




30 
2 


* 
* 




86928400 
88928410 
8B928420 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 
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21 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


4U731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
21A 



F 
L 
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0C46 





0000 




0C47 





6B22 




0C48 





6323 




0C49 





4400 


078D 


0C4B 





73FF 




0C4C 





70FC 




0C4D 





6323 




0C4E 





6600 


06 EO 


0C50 





4400 


07C9 


0C52 





620A 




0C53 





C400 


06B1 


0C55 





D019 




0C56 





6B06 




0C57 





4400 


038C 


0C59 





0C6E 




0C5A 





72FF 




0C5B 





70FB 




0C5C 





6700 


0000 


0C5E 





73FF 




0C5F 





70EE 




0C60 





6600 


06E0 


0C62 





C400 


0928 


0C64 





4400 


0830 


0C66 





4400 


081F 


0C68 





07AA 




0C69 





6700 


0000 


0C6B 





4C80 


0C46 


0C6E 




0000 




0C6E 





0000 




0C6F 





0000 





MT5X4 


DC 







SERIES COUNT 


MT5X8 


DC 




/3500 


PRINTER E 


MT5X9 


DC 




/2600 


PRINTER 


KDASH 


DC 




/2020 


PRINTER DASH 


LINE 


DC 







LINE COUNT 


MT5XE 


DC 







UPPER LIMIT STORAGE 




DC 







LOWER LIMIT STORAGE 


MT5XF 


DC 




5 


NUMBER PASSES 


* 






ROUTINE TO LOAD THE LEFT 


* 






* COLUMN 


LOLFT 


DC 











STX 


3 


LDLFE£1 


SAVE INDEXING 




LDX 


3 


35 


IX 3 # NUMBER OF RE( 


LDLFA 


BSI 


L 


TMWRT 


WRITE 




MDX 


3 


-1 


DECR INDEX 




MDX 




LDLFA 


LOOP 




LDX 


3 


35 


SET BACKSPACE INDEX 


LDLFB 


LDX 


L2 


DST 


RESTORE IX 2 




BSI 


L 


BSP 


BACKSPACE 1 REC 




LDX 


2 


10 


SET DLY LOOP IX 




LD 


L 


MT591 


GET DLY CONSTANT 




STO 




LDLFX 


SET 




STX 


3 


LDLFYS1 


SAVE IX 3 


LDLFC 


BSI 


L 


DELAY 


GO DELAY 




DC 




LDLFX-1 


ADRS OF DELAY COUNT 




MDX 


2 


-1 


DECR INDEX 




MDX 




LDLFC 


LOOP 


LDLFY 


LDX 


L3 





RESTORE IX 3 




MDX 


3 


-1 


DECR BSP INDEX 




MDX 




LDLFB 


LOOP 




LDX 


L2 


DST 


RESTORE IX 2 




LD 


L 


MTTX9 


GET WRT FUNCTION 




BSI 


L 


PRDWT 


SET UP TO WRT 




BSI 


L 


INTRT 


SET INTRPT RETURN 




DC 




TMWR4 




LDLFE 


LDX 


L3 





RESTORE IX 3 




BSC 


I 


LDLFT 


EXIT 




BSS 


E 









DC 







DELAY CONSTANT 


LDLFX 


DC 







* STORAGE 



* 

*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXX ROUTINE SIX XXXXXXXXXXXXXX 
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



0C70 





7FFF 




MT6X8 


DC 




/7FFF 


0C71 





1010 




MTT07 


SLA 




16 


0C72 





D400 


0926 




STO 


L 


MTTX3 


0C74 





D400 


0D87 




STO 


L 


MT7X3 


0C76 





0400 


0D88 




STO 


L 


MT7X4 


0C78 





D400 


0D89 




STO 


L 


MT7X5 


0C7A 





D400 


0D8A 




STO 


L 


MT7X6 


0C7C 





D400 


0D2E 




STO 


L 


LOW 


0C7E 





D400 


0D2F 




STO 


L 


HI 


0C80 





D400 


0D30 




STO 


L 


AVG 


0C82 





C400 


0925 




LD 


L 


MTTX1 


0C84 





D400 


0D8B 




STO 


L 


MT7X7 


0C86 





0400 


0D86 




STO 


L 


MT7X2 


0C88 





C0E7 






LD 




MT6X8 


0C89 





D400 


OD90 




STO 


L 


MT7Y1 


0C8B 





1010 






SLA 




16 


0C8C 





D400 


0D91 




STO 


L 


MT7Y2 


0C8E 





C400 


0D84 


MT700 


LD 


L 


MT7X0 


0C90 





D400 


0D85 




STO 


L 


MT7X1 



CONSTANT 
ZERO ACCUM 
SET DELAY COND 
CLEAR ALL 



# 
TOTALS 



GET 


1 






SET 


FIRST PASS 


SW 




SET 


RD/RERD SW 


# 


RD 


GET 


LOW CONSTANT 




SET 


AS LOW 






ZERO ACCUM 






SET 


AS HIGH 







SET IN LOOP CONTROL 



8B928430 
8B928440 
8B928450 
8B928460 
8B928470 
8B928480 
8B928490 
8B928500 
8B928510 
8B928520 
8B928530 
8B928540 
86928550 
SE 8B928560 
8B928570 
8B928580 
8B928590 
8B928600 
8B928610 
8B928620 
8B928630 
SRC 8B928640 
8B928650 
8B928660 
8B928670 
8B928680 
SRC 8B928690 
8B928700 
8B928710 
8B928720 
8B928730 
8B928740 
8B928750 
8B928760 
8B928770 
8B928780 
8B928790 
8B928800 
8B928810 
8B928820 
8B928830 
8B928840 
8B928850 
8B928860 
8B928870 
8B928880 
8B928890 
8B928900 
8B928910 
8B928920 
8B928930 
8B928940 
8B928950 
8B928960 
8B928970 
8B928980 
8B928990 
8B929000 
8B929010 
8B929020 
8B929030 
8B929040 
8B929050 
8B929060 
8B929070 
8B929080 
8B929090 
8B929100 



PREPARE TO WRITE 



0C92 C400 0928 

0C94 4400 08 30 

0C96 4400 081F 
0C98 0C15 



0C99 4400 078D 



0C9B 4400 078D 



0C9D 4400 078D 



0C9F C400 0D8C 
0CA1 D206 
0CA2 D400 0E9C 
0CA4 4400 078D 
0CA6 4400 0910 



OCAS 6304 
0CA9 6B03 
OCAA 4400 07C9 
OCAC 6700 0000 
OCAE 73FF 
OCAF 70F9 



OCBO C400 092C 
0CB2 4400 08 30 
0CB4 4400 08 IF 
0CB6 07C4 



0CB7 4400 07C0 



0CB9 4400 07C0 



OCBB 4400 07C0 



MT719 LD 
BSI 
BSI 
DC 

* 



* 

* 
* 

* 

* 



BSI 



BSI 



BSI 



LD 

STO 

STO 

BSI 

BSI 



MT702 LDX 

MT703 STX 
BSI 

MT704 LDX 
MDX 
MDX 

* 

* 

* 

LD 

esi 

BSI 
DC 

* 
* 
* 

BSI 

* 
* 

BSI 



BSI 



MTTX9 
PRDWT 
INTRT 
MT522 



GET WRITE FUNCTION 

GO SET UP 

GO SET INTR RETURN 



WRITE FIRST RECORD 
TMWRT WRITE 

WRITE SECOND RECORD 
TMWRT WRITE 

WRITE THIRD RECORD 
TMWRT WRITE 

WRITE LONG RECORD 



L MT7XA 

2 6 

L IOA 

L TMWRT 

L CN2 



SET WD CT 

SET IN I/O AREA 

WRITE 

GO SET CONSTANTS 



POSITION TAPE 



3 4 

3 MT704S1 
L BSP 
L3 

3 -1 
MT703 



SAVE IX 3 

GO BACKSPACE 

RESTORE IX 3 

IS TAPE POSITIONED 

NO-LOOP 



SET UP TO READ 



MTTY9 
PRDWT 
INTRT 
TMRD4 



GET READ FUNCTION 

GO SET UP 

GO SET TIME INT RET 



READ FIRST RECORD 
TMROT GO READ 

READ SECOND RECORD 
TMRDT GO READ 

READ THIRD RECORD 
TMRDT GO READ 











* 
* 






CHECK 


READ/REREAD AND 










* 
* 






FIRST 


PASS SWITCHES 


OCBD 





C400 


0D8B 


LD 


L 


MT7X7 


GET FIRST PASS SW 


OCBF 





4C18 


0CC3 




BSC 


L 


MT713t£- 


IS THIS FIRST PASS 


0CC1 





4C0O 


0D3E 




BSC 


L 


MT711 


YES 


0CC3 





C400 


0D86 


MT713 


LD 


L 


MT7X2 


GET RD/RERD SW 


0CC5 





D001 






STO 




MT71061 


SET IN PROG 


0CC6 





6700 


0000 


MT710 


LDX 


L3 





IX 3 # RD/RERD SW 


0CC8 





C400 


07BC 




LD 


L 


TWRXO 


GET THE TIME 


OCCA 





D205 






STO 


2 


5 


SAVE 


OCCB 





D700 


0D87 




STO 


L3 


MT7X3 


SAVE 


OCCD 





7300 






MDX 


3 





IS RD/RERD SW # RD 



8B929110 
8B929120 
8B929130 
SRC 8B929140 
SRC 8B929150 
8B929160 
8B929170 
8B929180 
8B929190 
8B929200 
8B929210 
8B929 220 
8B929230 
8B929240 
8B929250 
8B929260 
8B929270 
8B929280 
8B929290 
8B929300 
8B929310 
8B929320 
8B929330 
8B929340 
8B929350 
SRC 8B929360 
8B929370 
8B929380 
8B929390 
8B929400 
8B929410 
SRC 8B929420 
8B929430 
8B929440 
8B929450 
8B929460 
8B929470 
8B929480 
8B929490 
SRC 8B929500 
SRC 8B929510 
8B929520 
8B929530 
8B929540 
8B929550 
SRC 8B929560 
8B929570 
8B929580 
8B929590 

SRC 8B929600 
8B929610 
8B929620 
8B929630 

SRC 8B929640 
8B929650 
8B929660 
8B929670 
8B929680 
8B929690 
8B929700 
8B929710 
8B929720 
8B929730 
8B929740 
8B929750 
8B929760 
8B929770 
8B929780 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
22 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
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22A 
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OCCE 





7001 






MDX 




MT705 


YES 


8B929790 


OCCF 





700D 






MDX 




MT70F 


NO 


8B929800 


OCOO 





4400 


07C9 


MT705 


BSI 


L 


BSP 


GO BACKSPACE SRC 8B929810 










v 










8B929820 










* 






PREPARE TO WRITE 


8B929830 










* 










8B929840 


0CD2 





C400 


0928 


MT70B 


LD 


L 


MTTX9 


GET WRITE FUNCTION 


8B929850 


0CD4 





4400 


08 30 




BSI 


L 


PRDWT 


GO SET UP SRC 8B929860 


0CD6 





4400 


07C0 




BSI 


L 


TMRDT 


GO WRT SRC 8B929870 


0CD8 





1010 






SLA 




16 


ZERO ACCUM 


8B929880 


0CD9 





D400 


0086 




STO 


L 


MT7X2 


CLEAR RD/RERD SW 


8B929890 


OCDB 





6303 






LDX 


3 


3 


SET TO BACKSPACE 3 


8B929900 


OCDC 





70CC 




* 


MOX 




MT703 




8B929910 
8B929920 










* 






READ/REREAD SW # REREAD 


8B929930 










* 










8B929940 


OCDD 





C400 


0D8A 


MT70F 


LO 


L 


MT7X6 


GET REF TIME 


8B929950 


OCDF 





9400 


0D87 




S 


L 


MT7X3 


SUB REREAD TIME 


8B929960 


0CE1 





D400 


0D8F 




STO 


L 


MT7Y0 


SAVE 


8B929970 


0CE3 





8400 


0D89 




A 


L 


MT7X5 


ADD TO TOTAL 


8B929980 


0CE5 





D400 


0089 




STO 


L 


MT7X5 


SAVE 


8B929990 


0CE7 





C400 


0D87 




LD 


L 


MT7X3 


GET NEW COUNT 


8B930000 


0CE9 





9400 


0D90 




S 


L 


MT7Y1 


SUB LOW VALUE 


8B930O10 


OCEB 





4810 






BSC 




- 


IS NEW COUNT LOW 


8B930020 


OCEC 





7004 






MDX 




MT750 


NO 


8B930030 


OCED 





C400 


0087 




LD 


L 


MT7X3 


SET NEW CT AS LOW 


8B930040 


OCEF 





D400 


0D90 




STO 


L 


MT7Y1 




86930050 


0CF1 





C400 


0D87 


MT750 


LD 


L 


MT7X3 


GET NEW CT 


8B930060 


0CF3 





9400 


0091 




S 


L 


MT7Y2 


SUB HIGH 


8B930070 


0CF5 





4808 






BSC 




£, 


IS NEW COUNT HIGH 


8B930080 


0CF6 





7004 






MDX 




MT751 


NO 


8B930090 


0CF7 





C400 


OD87 




LD 


L 


MT7X3 


SET NEW CT AS HIGH 


8B930100 


0CF9 





D400 


0D91 




STO 


L 


MT7Y2 


* 


8B930110 


OCFB 





74FF 


0D85 


MT751 


MDX 


L 


MT7X1.-1 


DECR LOOP CONTROL 


8B930120 


OCFD 





7079 




* 


MOX 




MT718 


LOOP CNTRL NOT ZERO 


8B930130 
86930140 










* 






OOTPOT RESULTS 


8B930150 










* 










8B930160 


OCFE 





1010 




MT744 


SLA 




16 


CLEAR SWITCH 


8B930170 


OCFF 





D400 


0D88 




STO 


L 


MT7X4 


* 


8B930180 


0D01 





C400 


0D8A 




LD 


L 


MT7X6 


GET REF TIME 


8B930190 


0D03 





9400 


0090 




S 


L 


MT7Y1 


SUB LOW COUNT 


8B930200 


0005 





D400 


0090 




STO 


L 


MT7Y1 


SET AS LOW 


8B930210 


0007 





4810 






BSC 




- 


SKIP IF NEG 


8B930220 


0D08 





7029 






MOX 




ERR 


BRANCH TO ERROR 


8B930230 


0D09 





1010 






SLA 




16 


CLEAR A REG 


8B930240 


ODOA 





9400 


0090 




S 


L 


MT7Y1 


MAKE POSITIVE 


8B930250 


ODOC 





D400 


0090 




STO 


L 


MT7Y1 


SAVE 


8B930260 


ODOE 





C400 


0091 


MT754 


LD 


L 


MT7Y2 


GET HIGH COUNT 


8B930270 


0D10 





9400 


008A 




S 


L 


MT7X6 


SUB REG TIME 


8B930280 


0D12 





D400 


0091 




STO 


L 


MT7Y2 


SET AS HIGH 


8B930290 


0D14 





4C10 


0D1A 




BSC 


L 


MT755,- 


BRANCH IF POS 


8B930300 


0D16 





1010 






SLA 




16 


CLEAR A REG 


86930310 


0D17 





9079 






S 




MT7Y2 


MAKE POSITIVE 


8B930320 


0D18 





D078 






STO 




MT7Y2 


SAVE 


8B930330 


0D19 





701E 






MDX 




ERR1 


BRANCH 


8B930340 


0D1A 





C06E 




MT755 


LD 




MT7X5 


GET TOTAL CREEP 


8B930350 


0D1B 





1890 






SRT 




16 


CALCULATE AVG CREEP 


8B930360 


0D1C 





A871 






D 




MT7XE 




86930370 


0D1D 





4820 






BSC 




Z 




8B930380 


0D1E 





7001 






MDX 




MT715 




8B930390 


0D1F 





18D0 






RTE 




16 




8B930400 


0D20 





D068 




MT715 


STO 




MT7X5 




8B930410 


0D21 





4C28 


0D45 




BSC 


L 


MT714,£Z 


IS CREEP NEG 


8B930420 


0D23 





4820 






BSC 




Z 


IS CREEP ZERO 


8B930430 


0D24 





7016 






MDX 




ERR2 


NO 


8B930440 


0D25 





4400 


083C 




BSI 


L 


MLG 


PRINT ZERO CREEP 


8B930450 


0D27 





OF39 






DC 




MSG1164 




86930460 



0D28 





0F01 






DC 




MSG1&8 




8B930470 


0D29 





E007 




E007 


DC 




/E007 


10 E7 


8B930480 


0D2A 





0005 






DC 




/0005 


LINE 0- FORM 5 


8B930490 


0D2B 





4C00 


0771 


MT712 


BSC 


L 


M0NR1 


EXIT 


8B930500 


0D2D 





0007 




MT730 


DC 




7 




8B930510 


0D2E 





0000 




LOW 


DC 







NEG CREEP SWS 


8B930520 


0D2F 





0000 




HI 


DC 







-* 


8B930530 


0030 





0000 




AVG 


DC 







* 


8B930540 


0D31 





8000 




K8000 


DC 




/8000 


CONSTANT 


8B930550 
8B930560 










* 






SET ERROR SWITCH 


8B93O570 










* 










8B930580 


0D32 





COFE 




ERR 


LD 




K8000 


SET LOW SW 


8B930590 


OD33 





DOf-A 






STO 




LOW 


* 


8B930600 


0034 





C400 


036E 




LD 


L 


ONE 


GET ONE 


8B930610 


0D36 





0051 






STO 




MT7X4 


SET NEG CREEP SW 


8B930620 


0D37 





70D6 






MDX 




MT754 


BRANCH 


8B930630 


0038 





C0F8 




ERR1 


LD 




K8000 


SET HI SW 


8B930640 


0D39 





D0F5 






STO 




HI 


■a 


8B930650 


003A 





70UF 






MDX 




MT755 




8B930660 


0D3B 





C0F5 




ERR2 


LD 




K8000 


SET AVG SW 


86930670 


0D3C 





D0F3 






STO 




AVG 


* 


8B930680 


0D3D 





7032 




* 


MDX 




MT716 

FIRST 


PASS SW IS ON 


8B930690 
8B930700 
8B930710 
8B930720 


0D3E 





C400 


07BC 


MT711 


LD 


L 


TWRXO 


GET THE TIME 


8B930730 


0D40 





D049 






STO 




MT7X6 


SAVE 


8B930740 


004 1 





1010 






SLA 
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ZERO ACCUM 


8B930750 


0D42 





0048 






STO 




MT7X7 


CLEAR 1ST PASS SW 


8B930760 


0D43 





4C00 


0CC3 


a 


BSC 


L 


MT713 

CREEP 


IS FORWARD PRINT FFF 


8B930770 
8B930780 
8B930790 
8B930800 


0045 





1010 




MT714 


SLA 




16 




8B930810 


0D46 





9042 






S 




MT7X5 




8B930820 


0047 





D041 






STO 




MT7X5 




8B930830 


0D48 





7400 


0D88 




MOX 


L 


MT7X4,0 


CK NEG CREEP SW 


8B930840 


0D4A 





7025 






MDX 




MT716 


BRANCH IF SET 


8B930850 


0D4B 





C5 00 


02EA 




LD 


LI 


EDIT£6 


GET OR MODEL 


8B930860 


0D40 





D005 






STO 




MT760&1 


SET IN IX 
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004E 
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02EC 
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EDITS8 


GET MEM SPEED 


8B930880 


0D50 





4C30 
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BSC 


L 


MT761,Z- 


BRANCH IF 4 MIC 


$ 8B930890 
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0000 
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LDX 


L3 
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8B930900 
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0D63 




LD 


L3 


MT762 


GET CONSTANT 


8B930910 


0D56 





9039 






S 




MT7Y1 


SUB LOW CREEP 


8B930920 


0D57 





4C30 


0D69 




BSC 


L 


MT763.-Z 


BRANCH IF TOO LOW 


8B930930 
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42 
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7 
21 
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006C 
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LINE 0- FORM 5 


8B931120 


006 F 





70BB 




■f 


MDX 




MT712 


BRANCH 


8B931130 
8B931140 



N ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


4U875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
23 



-"ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


-C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
23A 



F 

L 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196491 
PAGE 24 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
/400 TIMING TEST 









* 




CREEP 


IS BCKWARD PRINT BBB 


8B931150 








# 








86931160 


0070 





4400 083C 


MT716 


BSI 


L MLG 


BACKWARD CREEP 


86931170 


0D72 





0F39 




DC 


MSG11S4 




8B931180 


0073 





0F01 




DC 


MSG168 




8B931190 


0074 





E008 


E008 


DC 


/E008 


10 E8 


8B931200 


0075 





0005 




DC 


/0005 


LINE 0- FORM 5 


8B931210 


0D76 





70B4 




MOX 


MT712 




86931220 


0077 





C400 0925 


MT718 


LD 


L MTTX1 


GET 0001 


86931230 


0D79 





DOOC 




STO 


MT7X2 


SET RD/RERD # RD 


8B931240 


0D7A 





6303 




LDX 


3 3 




86931250 


0D7B 





6B03 


MT746 


STX 


3 MT74561 




86931260 


0D7C 





4400 07C9 




BSI 


L BSP 


GO BACKSPACE SRC 8B931270 


0D7E 





6700 0000 


MT745 


LDX 


L3 




8B931280 


0D80 





73FF 




MDX 


3 -1 




8B931290 


0D81 





70F9 




MDX 


MT746 




8B931300 


0D82 





4C00 0C92 


$ 


BSC 


L MT719 




86931310 
8B931320 








* 




ROUTINE CONSTANTS 


8B931330 








* 








8B931340 


0084 





OOOA 


MT7X0 


DC 


10 


CONSTANT 


8B931350 


0085 





0000 


MT7X1 


DC 





LOOP CONTROL 


8B931360 


0086 





0000 


MT7X2 


DC 





RO/RERD SW 


8B931370 


0D87 





0000 


MT7X3 


DC 





2ND READ TIME 


86931380 


0088 





0000 


MT7X4 


DC 





1ST READ TIME 


8B931390 


0089 





0000 


MT7X5 


DC 





TOTAL CREEP 


86931400 


008A 





0000 


MT7X6 


DC 





REFERENCE TIME 


8B931410 


008B 





0001 


MT7X7 


DC 


1 


FIRST PASS SW 


8B931420 


0D8C 





40C8 


MT7XA 


DC 


/40C8 


WD CT # 200 


8B931430 


0D8D 





0003 


MT7XC 


DC 


3 




8B931440 


0D8E 





OOOA 


MT7XE 


DC 


10 




8B931450 


008F 





0000 


MT7Y0 


DC 





TEMP STORAGE 


86931460 


0D90 





7FFF 


MT7Y1 


DC 


/7FFF 


LOW VALUE STORAGE 


8B931470 


0D91 





0000 


MT7Y2 

* 
* 
* 


DC 





HIGH VALUE STORAGE 


86931480 
8B931490 
86931500 
86931510 
86931520 








* 




PRINT 


AREA 


86931530 








* 








86931540 


0092 




0000 




BSS 


E 




86931550 


0092 





0000 


PRA4 


DC 


/OOOO 




86931560 


0093 





0000 


PRA3 


DC 


/OOOO 




86931570 


0D94 





0000 


PRA1 


DC 


/OOOO 




8B931580 


0095 





2C00 




DC 


/2C00 


* 


86931590 


0096 




001B 


PRA 


BSS 


27 


PRINT AREA 


8B931600 


0DB1 





FFFF 


$ 


DC 


/FFFF 




8B931610 
86931620 








* 




SPECIAL MESSAGES 


86931630 








* 








8B931640 


0DB2 





0000 


PR3 


DC 


/OOOO 




86931650 


0DB3 





0000 




DC 


/OOOO 




86931660 


00 B4 





002C 




DC 


/002C 


# 


86931670 


0DB5 





2020 




DC 


/2020 


— 


8B931680 


0DB6 





2020 




DC 


/2020 


— 


8B931690 


0DB7 





2020 




DC 


/2020 


— 


8B931700 


0DB8 





0120 




DC 


/0120 


1- 


8B931710 


0DB9 





2020 




DC 


/2020 


— 


8B931720 


ODBA 





2002 




DC 


/2002 


-2 


86931730 


ODBB 





2020 




DC 


/2020 


— 


8B931740 


OOBC 





2003 




DC 


/2003 


-3 


8B931750 


OOBD 





2004 




DC 


/2004 


-4 


8B931760 


ODBE 





2005 




DC 


/2005 


-5 


86931770 


ODBF 





2006 




DC 


/2006 


-6 


8B931780 


OOCO 





2008 




DC 


/2008 


-8 


8B931790 


0DC1 





2001 




DC 


/2001 


-1 


86931800 


00C2 





0A20 




DC 


/0A20 


0- 


8B931810 


0DC3 





2002 




DC 


/2002 


-2 


8B931820 



0DC4 





0A20 


0DC5 





030A 


00C6 





2006 


00C7 





0A20 


0DC8 





3B02 


0DC9 





2020 


ODCA 





0120 


OOCB 





0320 


ODCC 





052C 


ODCD 





FFFF 


ODCE 





OOOO 


ODCF 





OOOO 


OOOO 





002C 


00D1 





1629 


ODD 2 





3913 


0DD3 





35 00 


0DD4 





3726 


0DD5 





0034 


0DD6 





2616 


0DD7 





25 00 


0008 





1339 


0DD9 





2435 


ODDA 





OOOO 


OOOB 





OOOO 


ODDC 





OOOO 


ODDD 





0024 


OOOE 





3923 


ODDF 





2339 


ODEO 





1235 


00E1 





3326 


0DE2 





2534 


0DE3 





1200 


0DE4 





2C12 


0DE5 





3533 


0DE6 





2625 


00E7 





3412 


0DE8 





002C 


0DE9 





FFFF 


ODEA 





2526 


ODEB 





1335 


ODEC 





2023 


ODED 





3613 


ODEE 





0033 


ODEF 





2623 


OOFO 





0039 


0DF1 





1200 


0DF2 





2326 


0DF3 





3134 


0DF4 





3534 


0DF5 





0034 


0DF6 





1429 


0DF7 





3925 


0OF8 





3700 


0DF9 





1338 


ODFA 





3500 


ODFB 





2331 


ODFC 





1213 


ODFD 





0004 


ODFE 





0037 


ODFF 





2600 


OEOO 





3426 


0E01 





1625 


0E02 





0013 


0E03 





3924 


0E04 





3512 


0E05 





FFFF 


0E06 





OOOO 


0EO7 





OOOO 



PR4 



NOTE 



PR8 



DC 


/0A20 


0- 


DC 


/030A 


30 


DC 


/2006 


-6 


DC 


/0A20 


0- 


DC 


/3B02 


.2 


DC 


/2020 


— 


DC 


/0120 


1- 


DC 


/0320 


3- 


DC 


/052C 


5* 


DC 


/FFFF 




DC 


/OOOO 




DC 


/OOOO 




DC 


/002C 


* 


DC 


/1629 


WR 


DC 


/3913 


IT 


DC 


/35O0 


E 


DC 


/3726 


GO 


DC 


/0034 


D 


DC 


/2616 


OW 


DC 


/25TRr^ 


N 


DC 


/1339 


TI 


DC 


/2435 


ME 


DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/0024 


M 


DC 


/3923 


IL 


DC 


/2339 


LI 


DC 


/1235 


SE 


DC 


/3326 


CO 


DC 


/2534 


ND 


DC 


/1200 


S 


DC 


/2C12 


*S 


DC 


/3533 


EC 


DC 


/2625 


ON 


DC 


/3412 


DS 


DC 


/002C 


*• 


DC 


/FFFF 




DC 


/2526 


NO 


DC 


/1335 


TE 


DC 


/2023 


-L 


DC 


/3613 


FT 


DC 


/0033 


C 


DC 


/2623 


OL 


DC 


/0039 
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DC 


/1200 
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DC 


/2326 


LO 


DC 


/3134 
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DC 


/3534 


ED 
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/0034 
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DC 


/1429 


UR 


DC 


/3925 


IN 
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/3700 


G 
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/1338 


TH 
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/3500 
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/2331 


LA 


DC 


/1213 


ST 


DC 


/0004 
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DC 


/0037 


G 


DC 


/2600 





DC 


/3426 


DO 


DC 


/1625 


WN 


DC 


/0013 


T 


DC 


/3924 


IM 


DC 


/3512 


ES 


DC 


/FFFF 




DC 


/OOOO 




DC 


/OOOO 
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/3500 


E 


DC 


/1200 


S 


DC 


/OOOO 




DC 


/OOOO 




El DC 


/OOOO 




DC 


/OOOO 




DC 


/0020 


- 


DC 


/2020 


— 


DC 


/3431 


DA 


DC 


/1238 


SH 


DC 


/3512 


ES 


DC 


/0039 


I 


DC 


/2534 


ND 


DC 


/3933 


IC 


DC 


/3113 


AT 


DC 


/3500 


E 


DC 


/3929 


IR 


DC 


/3700 


G 


DC 


/2339 


LI 


DC 


/2439 


MI 


DC 


/1312 


TS 


DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/OOOO 




DC 


/oooo 
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8B932520 

8B932530 

8B932540 

8B932550 

8B932560 

8B932570 

8B932580 

8B932590 

8B932600 

8B932610 

8B932620 

8B932630 

86932640 

8B932650 

8B932660 

8B932670 

8B932680 

8B932690 

8B932700 

8B932710 

8B932720 

8B932730 

8B932740 

8B932750 

8B932760 

8B932770 

8B932780 

8B932790 

8B932800 

8B932810 

8B932820 

8B932830 

8B932840 

8B932850 

8B932860 

8B932870 

8B932880 
8B932890 
8B932900 
8B932910 
8B932920 
86932930 
8B932940 
8B932950 
8B932960 
8B932970 
8B932980 
8B932990 
86933000 
8B933010 
8B933020 
8B933030 
8B933040 
8B933050 
8B933060 
8B933070 
8B933080 
86933090 
8B933100 
8B933110 
8B933120 
8B933130 
8B933140 
8B933150 
8B933160 
86933170 
86933180 
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0E4C 

0E4D 

0E4fc 

0E4F 

0E50 

0E51 

0E52 

0E53 

0E54 

0E55 

0E56 

0E57 

0E58 

0E59 

Ot5A 

0E5B 

0E5C 

0E5D 

0E5E 

0E5F 

0E60 

0E61 

0E62 

0E63 

0E64 

0E65 

0E66 

0E67 

0E68 

0E69 

0E9C 



FFFF 
2C2C 
2426 
3420 
OOOO 
OOOO 
2013 
2922 
OOOO 
1218 
1200 
3429 
OOOO 
OOOO 
OOOO 
OOOO 
0024 
3933 
0012 
35 33 
0024 
3524 
OOOO 
3431 
1335 
2000 
OOOO 
OOOO 
FFFF 
0033 
002D 



0EC9 
OECA 
OECC 

OECD 
OECF 
0ED1 
0ED2 
0ED4 
0ED5 
0ED7 
0ED8 
OEDA 
OEDB 
OEOC 
OEDE 
OEDF 
OEEO 
0EE1 
0EE2 
0EE4 
0EE6 
0EE8 
OEEA 
OEEC 
OEEE 
OEEF 
OEFO 
0EF1 
0EF2 
0EF3 
0EF5 



0EF7 



OOOO 
C480 
D016 

7401 

C480 

D015 

7401 

6A21 

C400 

180A 

4C04 

631C 

1010 

D700 

73FF 

70FC 

63F8 

62FC 

C600 

D600 

C700 

D700 

C700 

0700 

7201 

7001 

62FC 

7301 

70EF 

4400 

6600 

4C80 



083C 

083C 
083C 

083C 

02E1 

0EF5 

0D92 



OOOO 
0D9A 
OOOO 
ODAE 
0F31 
0DA4 



044C 
OOOO 
0EC9 



LN3 



LN3A 
LN36 



LN3D 



LN3C 



TOTA 
IOA 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 

BSS 



*XXXXXXXX 
*XXXXXXXX 
*XXXXXXXX 
LDSP DC 
ID 
STO 

MDX 

LD 

STO 

MDX 

STX 

LD 

SRA 

BSC 

LDX 

SLA 

LDSP5 STO 
MDX 
MDX 
LDX 
LDX 

LDSP1 LD 
STO 

LDSP3 LD 
STO 
LD 
STO 
MDX 
MDX 
LDX 

LDSP4 MDX 
MDX 
BSI 

LDSP2 LDX 
BSC 



/FFFF 
/2C2C 
/2426 
/3420 
/OOOO 
/OOOO 
/2013 
/2922 
/OOOO 
/1218 
/1200 
/3429 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
/0024 
/3933 
/0012 
/3533 
/0024 
/3524 
/OOOO 
/3431 
/1335 
/2000 
/OOOO 
/OOOO 
/FFFF 
51 
45 

XXXXXXXXXXXXX 
XXXXXXXXX SET 
XXXXXXXXXXXXX 


MLG 
LDSP1JU 

L MLG,1 
I MLG 

LDSP3£1 
L MLG,1 

2 LDSP2£1 
L SWO 

10 
L LDSP2.E 

3 28 
16 

L3 PRA4 
3 -1 
LDSP5 



I 



3 

2 

L2 



-4 

L2 PRAS4 
L3 *-* 
L3 PRA3627 
L3 MSG9S8 
L3 PRAS14 
2 1 

LDSP4 

2 -4 

3 1 
LDSP1 

L PCCO 
L2 *-* 
I LDSP 



MO 

D- 

MODEL 

TRACK 

-T 

RK 

SY 

S 

DR 

DRIVE NUMBER 

MEM SPEED 

* 

M 

IC 

S 

EC 

M 

EM 

DA 
TE 



VAR TOTAL STORAGE 

INPUT/OUTPUT AREA 

XXXXXXXXXXXXXXXXXXXXXXXX 

UP AND PRINT HDINGS XXX 

XXXXXXXXXXXXXXXXXXXXXXXX 

GET TYPE ADRS 
SET 

INCR RETURN 

GET HDING ADRS 

SET 

INCR RETURN 

SAVE IX 2 

GET SWS 

BRANCH # BYPASS 
CLEAR MSG AREA 

* 



SET MESSAGE 

* 

* 
* 

* 



PRINT MESSAGE 
RESTORE IX 2 
EXIT 



HEADING MESSAGES 



8B933190 

8B933200 

8B933210 

8B933220 

8B933230 

86933240 

8B933250 

8B933260 

8B933270 

8B933280 

8B933290 

86933300 

8B933310 

8B933320 

8B933330 

8B933331 

86933332 

8B933340 

8B933350 

8B933360 

8B933370 

8B933380 

86933390 

8B933400 

8B933410 

8B933420 

86933430 

8B933440 

8B933470 

8B933480 

8B933490 

8B933500 

8B933510 

8B933520 

8B933530 

8B933540 

8B933550 

8B933560 

8B933570 

8B933580 

8B933590 

8B933600 

8B933610 

8B933620 

8B933630 

8B933640 

8B933650 

8B933660 

8B933670 

8B933680 

8B933690 

8B933700 

8B933710 

8B933720 

8B933730 

8B933740 

8B933750 

8B933760 

8B933770 

8B933780 

8B933790 

8B933800 

8B933810 

8B933820 

8B933830 

86933840 

8B933850 

8B933860 



^ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 
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0EF9 





2439 


OEFA 





2500 


OEFB 





0000 


OEFC 





3115 


OEFD 





3700 


OEFE 





0000 


OEFF 





2431 


OF 00 





1700 


0F01 





3412 


0F02 





1600 


0F03 





0000 


OF 04 





0000 


0FO5 





0000 


OF 06 





0000 


0F07 





0000 


OF 08 





0000 


0F09 





2439 


OFOA 





2500 


OF OB 





0000 


OFOC 





3133 


OF 00 





1323 


OFOE 





0000 


OFOF 





2431 


OF 10 





1700 


0F11 





010A 


0F12 





2412 


0F13 





0000 


0F14 





1531 


0F15 





2900 


OF 16 





0000 


0F17 





2439 


OF 18 





2500 


OF 19 





25 26 


0F1A 





1300 


0F1B 





2934 


0F1C 





1800 


OF ID 





3326 


0F1E 





2427 


0F1F 





2335 


OF 20 





1335 


0F21 





1629 


0F22 





1300 


0F23 





3423 


OF 24 





1800 


0F25 





2935 


OF 26 





3134 


0F27 





0034 


OF 28 





2318 


OF 29 





2939 


OF 2 A 





3400 


0F2B 





0000 


0F2C 





2931 


OF 2D 





3400 


0F2E 





0000 


0F2F 





1425 


0F30 





3913 



MSG1 



MSG2 



MSG3 



MSG4 



MSG5 



MSG6 



MSG7 



* 
MSG8 



MSG9 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



0F31 3115 



MSG10 DC 



/2439 
/2500 
/OOOO 
/3115 
/3700 
/OOOO 
/2431 
/1700 

/3412 
/1600 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
/OOOO 

/2439 
/250O 
/OOOO 
/3133 
/1323 
/OOOO 
/2431 
/1700 

/010A 
/2412 
/OOOO 
/1531 
/2900 
/OOOO 
/2439 
/2500 



/2526 
/1300 
/2934 
/1800 

/3326 
/2427 
/2335 
/1335 

/1629 
/1300 
/3423 
/1800 

/2935 
/3134 
/0034 
/2318 

/2939 
/3400 
/OOOO 
/2931 
/3400 
/OOOO 
/1425 
/3913 

/3115 



MI 
N 

AV 
G 

MA 
X 

DS 

W 



MI 

N 

AC 
TL 

MA 
X 

10 
MS 

VA 
R 

MI 
N 



NO 
T 

RD 
Y 

CO 
MP 
LE 
TE 

WR 
T 

DL 
Y 

RE 

AD 

D 

LY 

RI 
D 

RA 
D 

UN 
IT 

AV 
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8B933870 

8B933880 

8B933890 

8B933900 

8B933910 

8B933920 

8B933930 

8B933940 

8B933950 

8B933960 

8B933970 

8B933980 

8B933990 

8B934000 

8B934010 

8B934020 

8B934030 

8B934040 

8B934050 

8B934060 

8B934070 

8B934080 

8B934090 

8B934100 

8B934110 

8B934120 

8B934130 

8B934140 

8B934150 

8B934160 

8B934170 

8B934180 

8B934190 

8B934200 

8B934210 

8B934220 

8B934230 

8B934240 

8B934250 

8B934260 

8B934270 

8B934280 

8B934290 

8B934300 

8B934310 

8B934320 

8B934330 

8B934340 

8B934350 

8B934360 

8B934370 

8B934380 

8B934390 

8B934400 

8B934410 

8B934420 

8B934430 

8B934440 

8B934450 

8B934460 

8B934470 

8B934480 

8B934490 

8B934500 

8B934510 

8B934520 

8B934530 

8B934540 
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0F32 





3700 




DC 


/3700 


G 


0F33 





3929 




DC 


/3929 


IR 


OF 34 





3700 


j£ 


DC 


/3700 


G 


0F35 





3329 


MSG11 


DC 


/3329 


CR 


OF 36 





3535 




DC 


/3535 


EE 


0F37 





2700 




DC 


/2700 


P 


OF 38 





OOOO 


=£ 


DC 


/OOOO 




OF 39 





3212 


MSG13 


DC 


/3212 


BS 


0F3A 





2700 




DC 


/2700 


P 


0F3B 





3529 




DC 


/3529 


ER 


0F3C 





2900 




DC 


/2900 


R 


0F3D 





3132 


MSG14 


DC 


/3132 


AB 


0F3E 





2629 




DC 


/2629 


OR 


0F3F 





1335 




DC 


/1335 


TE 


0F40 





3400 


♦ 


DC 


/3400 


D 


0F41 





1425 


MSG15 


DC 


/1425 


UN 


0F42 





3913 




DC 


/3913 


IT 


0F43 





0033 




DC 


/0033 


C 


0F44 





2624 




DC 


/2624 


OM 


0F45 





2723 




DC 


/2723 


PL 


0F46 





3513 




DC 


/3513 


ET 


0F47 





35 00 




DC 


/3500 


E 


0F48 





OOOO 


* 


DC 


/OOOO 




0F49 





2729 


MSG16 


DC 


/2729 


PR 


0F4A 





2637 




DC 


/2637 


OG 


0F4B 





2931 




DC 


/2931 


RA 


0F4C 





2400 




DC 


/2400 


M 


0F4D 





3326 




DC 


/3326 


CO 


0F4E 





2427 




DC 


/2427 


MP 


0F4F 





2335 




DC 


/2335 


LE 


0F50 





1335 


& 


DC 


/1335 


TE 


0F52 




012D 




END 


BEGN 




NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 
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8B934550 
8B934560 
8B934570 
8B934580 
8B934590 
8B934600 
8B934610 
8B934620 
8B934630 
8B934640 
8B934650 
8B934660 
8B934670 

8B934680 
8B934690 
8B934700 
8B934710 
8B934720 
8B934730 
8B934740 
8B934750 
8B934760 
8B934770 
8B934780 
8B934790 
8B934800 
8B934810 
8B934820 
8B934830 
8B934840 
8B934850 
8B934860 
8B934870 
8B934880 
8B934890 
8B934900 
8B934910 
8B934920 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 
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C NO. 
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411857 
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PAGE 



ACT I 

ADRS 

ADRS1 

ADRS2 

ARIA1 

ARIA2 

ARIA3 

ARIA4 

ARIA5 

AVG 

AOOO 

A001 

A002 

A003 

A004 

A007 

BAK 

BEGAC 

BEGAD 

BEGAE 

BEGAF 

BEGAG 

BEGAI 

BEGAJ 

BEGAK 

BEGAM 

BEGAN 

BEGAP 

BEGAR 

BEGAS 

BEGBA 

BEGIN 

BEGN 

BEGN1 

BEGN2 

BEGX3 

BEGX4 

BEGX5 

BEGX7 

BEGX8 

BSP 

BSPI2 

BSPI3 

BSPX1 

BSP2 

BSP3 

BSP4 

BSP6 

BY 

CKERR 

CKHLT 

CKHLW 

CN1 

CN2 

CODE 

CODEH 

COMOO 

COM01 

CON 

CONV 

CONVO 

C0NV1 

COM 

CVTBL 

COOO 

C001 

DCC 

DCC2 



02ED 

0660 

0C38 

0C39 

01E1 

025C 

0281 

02CB 

01F8 

0D3O 

0780 

0789 

0973 

09BF 

0BD3 

0D5D 

01D2 

01CB 

0203 

020F 

0213 

022B 

0291 

02A2 

02D5 

0269 

0151 

013D 

023C 

02AB 

013F 

014F 

012D 

0132 

0133 

014E 

02D8 

02DA 

02DC 

0158 

07C9 

07E2 

07E8 

07E0 

07D2 

07CB 

07 D6 
07DD 
OBBE 
08C0 
08CA 
OBAO 
0909 
0910 
05DA 
060E 

08 D6 
08 DD 
066D 
066A 
05D9 
066B 
0671 
05 DC 
076E 
0765 
037 3 
0384 



0147 02FA 031F 070A 0759 

0629 

09ED 0A39 OCOE 

0A5A 

01D6 01D7 01DD 

024B 024E 0251 0254 0257 

0270 0273 0276 0279 027C 

02BB 02BE 02C1 02C4 02C7 

01E6 01E9 01EC 01EF 01F2 

0428 0C80 0D3C 



0209 
020E 

025A 0268 027F 0288 0290 0296 02B9 02CA 
02D8 

06FB 0740 



01DC 
0157 
01CD 
01CF 
01F5 
0236 
021A 
02A9 
0249 
0216 
0156 
0138 
0244 
02B3 
0142 
02D5 
0F52 
012D 
0137 
013E 
0143 
0307 
0308 
0151 
07D4 
07DF 
07E4 
07D6 
07CA 
07CC 
07D1 

0BB4 



08C4 

0B1B 0B2E 0B48 0B59 0B5B 

090D 093E 0978 

0914 09C5 09CC 0A68 0CA6 

03EF 0406 05D1 05D5 

0293 05B0 05F1 
08E4 08EA 

0153 0203 0206 022C 0233 0239 02A3 02A6 090F 

020F 

05B3 05B5 05B8 05BA 05BC 

020A 

023C 023F 0241 02AB 02AE 02B0 0916 

05AC 



0375 0378 0379 047B 0798 07DB 0800 
0374 



0C50 OCAA OCDO 0D7C 



07CF 07E7 



DCC3 

DELAY 

DIND 

DLYC 

DLY1 

DLY2 

DR9 

DST 

DSW 

DSWSP 

DSWX1 

DSWO 

DSW1 

DSW2 

DSW5 

DSW7 

DSW8 

EDIT 

END 

ERR 

ERR I 

ERR1 

ERR2 

E001 

E003 

E004 

E005 

E006 

E007 

E008 

FNC 

FORMO 

F0RM1 

FORM 2 

F0RM3 

F0RM4 

F0RM5 

FWD1 

FWD2 

FWRD 

GPHLM 

GRL1 

HALT 

HEDEC 

HEDE1 

HE0E2 

HEDE3 

HEDE4 

HEDE5 

HEDE6 

HERE 

HERE1 

HERE2 

HEXCD 

HEXCV 

HEXC1 

HEXC2 

HEXC3 

HEXWD 

HEXOO 

HI 

H0205 

H023B 

H0400 

H2020 

ILSW 



038A 
038C 
03A2 
0C36 
0C33 
0C35 
04E4 
06E0 

036A 
330 
08 ID 
0807 
0813 
0814 
0809 
0810 
0816 
02E4 

0662 

OD32 

036F 

0D38 

0D3B 

0D6D 

07EC 

07B5 

096C 

09B8 

0D29 

0074 

03AE 

0869 

08D1 

08 D9 

08DF 

08E5 

08EB 

0287 

02D1 

0262 

06DB 

0B6A 

03B2 

05A6 

05 BO 

05B4 

05BF 

05C8 

05 CA 

05CC 

0436 

0428 

042F 

060C 

05E6 

05ED 

0600 

0602 

0606 

0607 

0D2F 

0528 

0527 

0526 

0529 

0366 



0383 0386 

038D 039A 039C 0A16 0A24 0C57 

03A3 0811 

09EB 0A20 0A31 0A3E 

0A14 0A18 

0A22 0A26 

04E0 04E3 

02F1 02FB 0327 0335 06E~ —., .. „>,,,■ ,.„,. 

08B9 0921 0A27 OAOC 0AF4 0B6C 0BC5 0C4E 0C60 

031E 0320 0321 0322 0324 0325 



B 06EC 06ED 06F1 073E 079A 07DD 0802 082C 



0809 0832 

06F7 0749 07CB 07F1 081B 

080D 

080F 

0819 

0810 

0134 0149 01CB 0213 0245 0269 0291 02B6 02F9 0319 0473 04DE 04E7 

04F0 05A0 0702 0705 0745 0751 0754 0792 086A 0D4B 0D4E 

078B 07EE 

OD08 

032C 

0D19 

0D24 



03A7 

0863 

0864 

0865 

0866 

0867 

0868 

026F 

02B7 

0247 

01F3 

09DA 

03BC 

03ED 

05C6 

05BE 

05B6 

05A7 

05A8 

05A9 

0420 

0424 

042 B 

0416 

0414 

05EE 

05E8 

05E7 

0412 

05F3 

042F 

04FA 

04F6 

04FD 

0503 

0316 



0223 0226 0228 0258 0266 0260 027D 028A 029F 02D3 0AE8 OAEE 
0B77 0BC8 0BF1 
0666 0716 08CD 
0404 05D6 



0432 



049E 04A7 04B4 04BE 04CA 05FB 05FF 
049C 04A5 04B2 04BC 04C8 0604 
05F7 



049A 04A3 04B0 04BA 04C6 05EA 
05F8 05FA 05FC 05FE 
0C7E 0D39 



0337 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


C NO. 


415178 


415233 


411731* 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
27 



ATE 

cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 

411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
27A 



F 

L 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196491 
PAGE 28 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 
PAGE 



2196491 
28A 



INPSE 

INTR 

INTRR 

INTRT 

INTR2 

INTR3 

10 A 

IOARA 

I0CC1 

J0LY2 

J0LY3 

J0LY4 

KBSC 

KDASH 

KOOOE 

K0010 

K0020 

K006 

K007 

K0086 

K0200 

K0300 

K0700 

K0900 

K2121 

K8000 

LDLFA 

LDLFB 

LOLFC 

LDLFE 

LOLFT 

LOLFX 

LDLFY 

LDSP 

LDSP1 

LDSP2 

LDSP3 

LDSP4 

LDSP5 

LINE 

LNSW 

LN3 

LN3A 

LN3B 

LN3C 

LN3D 

LOAOK 

LOADV 

L0AD1 

LOG 

LOGAB 

LOGAC 

LOGAD 

LOGAE 

LOGAF 

LOGBC 

LOGC 

LOGCA 

LOGCB 

LOGCC 

L0GC1 

L0GC2 

LOGC 3 

L0GC4 

LOGC 5 

L0GC6 

LOGC 7 

L0GC8 



06DF 

082A 

031E 

081F 

0829 

0312 

0E9C 

065E 

03B0 

0391 

0398 

039A 

0C2E 

0C41 

0800 

0C3B 

0465 

0464 

0463 

0C3A 

0525 

0524 

0522 

0523 

0661 

0D31 

0C49 

0C4E 

0C57 

0C69 

0C46 

0C6F 

0C5C 

0EC9 

0EE2 

0EF5 

0EE6 

0EF1 

OEOC 

0C42 

0B9E 

0E40 

0E50 

0E51 

0E5A 

0E58 

0C19 

0C21 

0C1B 

061E 

047E 

0466 

046 C 

0480 

0488 

052A 

03BF 

0556 

055C 

0561 

0534 

05 3A 

053F 

0548 

054A 

055A 

0563 

0565 



0221 

07A8 

031A 

0822 

0824 

02EE 

06EE 

063C 

03AA 

0399 

0393 

0396 

0A50 

OBOB 

08C2 

0A57 

0425 

041 E 

03E5 

09F0 

0500 

04ED 

04E2 

04 E4 

0634 

0032 

0C4C 

0C5F 

0C5B 

0C47 

0C2E 

0C55 

0C56 

0844 

OECC 

OE04 

0ED1 

OEEF 

OEOF 

09FB 

090E 

0511 

04EE 

04E5 

04F8 

050F 

0516 

0513 

0C1E 

0561 

0466 

0439 

046B 

0483 

048 B 

043B 

044 A 

053B 



029D 0884 08A8 
0820 

0825 0827 0945 094A 0970 098C OAOO 0A65 0C66 0C96 0CB4 
082 E 

0728 0838 0CA2 
0645 0647 065A 
03AB 



0B14 



042C 0433 

0B06 
0A36 



0038 0D3B 



0C6B 
0C59 

0EF7 
0EF2 
0E08 



0AF2 0AF8 OB04 0BE7 
0B61 0B64 OBCA 0BE8 



0501 0505 

0AD3 OBOD OBBF 0C1F 

0A09 OBAB OBAF 0BB8 OBBC 0C2C 

0658 

0450 



045F 
0454 08B5 



0539 

0560 

0555 

053E 

0547 0556 0559 

0543 0558 

054E 

03C0 052C 

03C2 052D 



L0GC9 

LOGOO 

LOGIC 

L0GV1 

L0GV2 

L0GX3 

L0GX8 

L0GX9 

L0G01 

L0G02 

L0G03 

LOG 04 

L0G05 

L0G2C 

L0G3C 

L0G4C 

L0G5C 

L0G6C 

L0G7C 

L0G8C 

L0G9C 

LOW 

LOXOO 

L0X02 

L0X03 

L0X04 

MD1LM 

MD3 

MK15 

MK27 

MLG 

MLGE 

MLGXO 

MLGX1 

MLGX2 

MLGX3 

MLGX4 

MLGX7 

MLGX8 

MLGX9 

MLGOA 

MLGOO 

MLG02 

MLG03 

MLG04 

MLG05 

MLG06 

MLG07 

MLG10 

MLG11 

MLG12 

MLG15 

MLG16 

MLG18 

MOOO 

MODOO 

M0D01 

M0002 

MO 003 

MODI 

M0D1S 

M0D2 

M0D2S 

MOO 3 

MO 04 

M0D5 

MONE 



0567 
0499 
03CC 
03E0 
03EA 
05A0 
05A4 
05A5 
06 3A 
0654 
06 4B 
062C 
0637 
0306 
03FE 
0408 
0411 
0419 
0444 
0446 
0448 
0D2E 
056B 
056C 
056D 
056E 
060A 
04ED 
043E 
0440 
083C 

08C5 
0901 
0902 
0903 
0904 
0905 
06DC 
0906 
0907 
08 BB 
085F 
0863 
086A 
08B5 
08B7 
08 B9 
08AF 
086F 
088D 
088E 
08A5 
0881 
08C7 
08F7 
08FD 
08FE 
08FF 
0900 
08F8 
06DD 
08F9 
06DE 
08FA 
08FB 
08FC 
039E 



03C4 
0304 
03CF 
030E 
03F8 
0470 
05A1 
05A2 
062A 
0630 
0644 
062B 
0653 
0401 
03E7 
0418 
03FF 
03DF 
0440 
044E 
044 F 
0421 
052B 
0535 
054F 
0541 
0237 
04E9 
03B3 
03B5 
0761 
09BB 
08CF 
084C 
087C 



052E 



03FC 



0635 064B 0650 0651 



0632 0637 0639 064F 



040F 



03F0 0410 
0490 0569 



0C7C 0033 

054C 0550 055E 

053A 0544 0552 0554 

055B 

0557 

04EC 

0476 061 F 

0477 0621 

076A 077C 0785 07B1 07E8 0846 08BB 08C5 08C7 0968 096F 09B4 
OBCF 0025 0059 0069 0070 OECA OECD OECF 0E02 

085A 08AF 
08A1 08B2 



01DE 020C 0211 0872 0896 

0886 08AA 
08C9 
0856 
08 61 
0808 08F5 



084E 

087F 
0879 
086D 
089E 
08AE 
088B 
0842 
03C6 
0870 
0804 
08D6 



088C 08A3 080E 



03D0 0451 0467 08B4 

0876 0882 0888 088F 089B 08A6 08AB 0802 08DA O8E0 08E6 08F0 

08E2 08E8 08ED 

08F3 



08BF 08DC 
021F 
0858 
029B 
0852 

0849 08C0 
08 54 
0391 



ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


"^ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG 10 


08B9-2 


C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


28 


-C NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


28A 



O O O O O O O O O O O O O O O O O O O O O O O 



OOOOOOOOOOOOCO OOOOOOG ooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196491 
PAGE 29 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THfc 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196491 
PAGE 29A 



M0NR1 


0771 


0734 073B 0961 


09AA 


, oci: 


t 002 B 


MONT 


02EF 


014C 0668 








MONTC 


073D 


0715 0784 








MONTD 


070C 


075E 0777 








MONTE 


0761 


074C 








MONTF 


0720 


071B 








MONTI 


02F1 


02F4 








M0NT4 


06F0 


0300 








M0NT6 


071C 


07B7 








M0NT7 


072C 


0720 








M0NT8 


0728 


072B 








M0NT9 


0734 


072E 0732 073C 








MONXO 


075F 


0708 0757 








M0N10 


071E 










M0N11 


076A 


06FA 








M0N22 


0718 


0710 








MON23 


0716 


070F 








M0N24 


0785 


0714 








M0N25 


0711 


06F6 0744 0747 


0769 


0770 


0783 


MSG1 


0EF9 


0028 0D5C 0D6C 


0073 






MSG10 


0F31 


0B01 








MSG11 


0F35 


0027 005B 006B 


0072 






MSG13 


0F39 


07EA 








MSG14 


0F3D 


07B3 








MSG15 


0F41 


077F 








MSG16 


0F49 


0788 








MSG2 


0F01 


07B4 07EB 








MSG3 


0F09 


096B 0972 09B7 


09BE 






MSG4 


0F11 


0BD2 








MSG5 


0F19 


0763 076C 








MSG6 


0F10 


077E 0787 








MSG7 


0F21 


096A 0971 








MSG8 


0F25 


09B6 09BD 








MSG9 


0F29 


OEEA 








MST 


03A0 


0392 0398 








MTAAA 


0B36 


0B3B 








MTAAB 


0B53 


0B4A 








MTAAC 


0B50 


0B55 








MTAAD 


0B56 


0B52 








MTTX1 


0925 


071E 093C 0976 


0B8E 


0C82 


0077 


MTTX3 


0926 


093D 0942 094F 


0977 


0982 


098F 099 






0A52 OAAA OAAC 


0AB2 


0B8C 


0B90 OBfc 


MTTX6 


0927 


0726 








MTTX9 


0928 


093F 097A 0A09 


0C62 


0C92 


0CD2 


MTTYA 


0934 










MTTYB 


092D 


0AA7 








MTTYC 


092E 


08E5 0904 0A83 


0A85 


0AB5 


0AB9 OBEI 


MTTYO 


0930 


03E8 08E7 0906 


0A8A 


0A8C 


OB ED 


MTTYE 


0932 


08E9 0908 0A99 


0A9B 


OBEF 




MTTYF 


0936 


0B94 0B97 








MTTY4 


0929 


0835 








MTTY5 


092A 


0AA1 








MTTY8 


092B 


07AB 








MTTY9 


092C 


0989 0A61 OCBO 








MTTZO 


0938 


0AB7 








MTTZ1 


0939 


0A01 OA05 0BD5 


0BD9 


OCOO 


0C04 


MTT01 


093C 


0735 








MTT02 


0976 


0736 








MTT03 


09C2 


0737 








MTT04 


09C9 


0738 








MTT05 


09CF 


0739 








MTT07 


0C71 


073A 








MT1X0 


0679 


021D 0231 0299 


0965 


09AE 




MT101 


093F 


09C7 








MT102 


094A 


0944 








MT103 


0961 


096E 0975 








MT104 


0968 


0957 095B 








MT105 


0963 


0951 









MT107 
MT108 
MT200 
MT201 
MT202 
MT203 
MT204 
MT205 
MT206 
MT208 
MT209 
MT5Q6 
MT507 
MT5XA 

MT5XE 

MT5XF 

MT5X0 

MT5X2 

MT5X3 

MT5X4 

MT5X8 

MT5X9 

MT50A 

MT50B 

MT50C 

MT50D 

MT50F 

MT502 

MT503 

MT505 

MT506 

MT508 

MT509 

MT51A 

MT51B 

MT51C 

MT51D 

MT51E 

MT51F 

MT510 

MT516 

MT517 

MT518 

MT519 

MT520 

MT521 

MT522 

MT523 

MT524 

MT525 

MT526 

MT540 

MT562 

MT572 

MT573 

MT580 

MT581 

MT582 

MT583 

MT584 

MT585 

MT590 

MT591 

MT6X8 

foT7XA 

MT7XC 

MT7XE 



096F 
0954 
097A 
09AC 
0990 
09B1 
09B4 
09BB 
09AA 
0989 
0995 
0C30 
0A1C 
0675 

0C43 

0C45 

067A 

0C3C 

0C30 

0C3E 

0C3F 

0C40 

0A2F 

0B75 

0B83 

0A68 

0A8E 

0A10 

0A19 

0A24 

06D7 

0A27 

0A2D 

0B3C 

0B59 

0B88 

0B27 

0B2E 

0B39 

0C24 

0AE6 

OBOB 

0B73 

0B23 

0BC3 

0BC5 

0C15 

0C17 

0AB5 

0AC7 

0B79 

06A5 

0BA9 

0B70 

09E1 

0AC3 

OBDO 

0C13 

0A61 

0B9C 

0BF7 

0A57 

06B1 

0C70 

0D8C 

0080 

008E 



0960 

0967 

09CE 

099A 

09 BO 

0984 

09A0 

09A9 

09 BA 

0963 

0992 

09F3 

09F5 

024C 

02BC 

09 39 

0A4E 

01E7 

OAFE 

09F6 

09FF 

0B31 

0B4B 

09EF 

0B72 



09A4 
09C1 



0A47 0C08 

0A1B 0A49 0A5F 0C09 

lltl ° 252 0255 0262 0264 ° 271 °274 0277 027A 028C 028E 02B4 

02BF 02C2 02C5 02C8 0201 OADE 0AE2 

OAEO 0AE4 0AE6 OAEA OAEC OAFO 0B27 0B3E 0B44 

OAAE OACA 

01EA 01E0 01F0 0A2F 0C38 0C39 

0A43 OCOB 

0A90 0A9F 0AA5 OBFB 

0B39 

0B53 

0A3B 0A5C OCOF 



0AA4 0AB1 
0A95 0AA9 
0A35 0A51 



09E9 0A3C 



09F2 
0B29 
0B25 
0B63 
0A0 3 
0936 
0B30 
0C22 
0B9C 
OAFC 
0B6F 
0B60 
OAOO 
0AC3 
0C98 



0A33 0A38 0A59 0A60 

0B38 0B41 0B47 

0A07 0B96 0B99 0BD7 OBOB 0C02 0C06 

0C29 

OBOO 0B03 0B08 



OABC 

0AC2 OACF 

09DC 0B67 0B7F OBCB 0BF3 

0A12 

0B92 

09E4 
0AC1 

0BE3 

0A56 0C11 

0B8B 

OBFA 

0A42 

0C53 

0C88 

0C9F 

0D1C 



ATE 


01JUL66 


01NOV66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 



PROG ID 
PAGE 



08B9-2 
29 



ATE 
cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08B9-2 
29A 



F 
L 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2190491 
PAGF 30 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196491 
PAGE 30A 



MT7X0 

MT7X1 

MT7X2 

MT7X3 

MT7X4 

MT7X5 

MT7X6 

MT7X7 

MT7Y0 

MT7Y1 

MT7Y2 

MT70B 

MT70F 

MT700 

MT702 

MT703 

MT704 

MT705 

MT710 

MT711 

MT712 

MT713 

MT714 

MT715 

MT716 

MT718 

MT719 

MT730 

MT744 

MT745 

MT746 

MT750 

MT751 

MT754 

MT755 

MT760 

MT761 

MT762 

MT763 

NOTE 

N0TE1 

NTDSH 

ONE 

OPARA 

PART2 

PCCO 

PCCX1 

PGCM 

PGSW 

PID 

PRA 

PRA1 
PRA3 
PRA4 

PRDWT 

PRO 2 

PRSP 

PRSW 

PRWC 

PROO 

PR01 

PR03 

PR3 

PR4 

PR6 

PR7 



0D84 

0D85 

0086 

0D87 

0D88 

0D89 

0D8A 

0D8B 

0D8F 

0D90 

0091 

0CD2 

OCDD 

0C8E 

0CA8 

0CA9 

OCAC 

OCDO 

0CC6 

0D3E 

0D2B 

0CC3 

0D45 

0020 

0D70 

0D77 

0C9 2 

0D2D 

OCFE 

0D7E 

0D7B 

0CF1 

OCFB 

ODOE 

0D1A 

0D52 

0D60 

0D63 

0D69 

ODEA 

0E31 

OAFE 

036E 

05E1 

01E6 

044C 

0461 

07 3C 

093B 

02DE 

0D96 

0D94 
0D93 
0D92 

0830 
0587 
059F 
0B9F 
0491 
0573 
057E 
05 94 

0DB2 
ODCE 
0BA1 
0BA5 



022E 

0C90 
0C86 
0C74 
0C76 
08EB 
0C7A 
0C84 
0CE1 
08EE 
08F1 

OCCF 



0874 
OCFB 
0CC3 
OCCB 
OCFF 
0C78 



0892 0899 0C8E 

0CD9 0D79 

OCDF 0CE7 OCED 0CF1 0CF7 
0D36 0D48 

0CE3 0CE5 0D1A 0D20 0D46 0D47 
0D10 0D40 



OCDO 0001 
OCBD 0D42 

0C89 0CE9 OCEF 0D03 
0C8C 0CF3 0CF9 ODOE 



0D05 
0D12 



ODOA 
0D17 



ODOC 0056 
0D18 



0D3A 
0D60 0D62 



076D OBBA 



OCAF OCDC 

0CA9 

OCCE 

0CC5 

0CC1 

0D5F 0D6F 0D76 

OCBF 0043 

0D21 

0D1E 

0D3D 0D4A 

OCFD 

0D82 

09E5 OBCC OBFC 



0D7B 

0D81 

OCEC 

0CF6 

0D37 

0D14 

0D4D 

0D5O 

0D54 

0D57 

0BB6 

0764 

OBOA 

0217 

05AA 

01E0 

0453 

0450 

073C 

02F7 

0856 

03C8 

0B50 

0B12 

0B10 

03CC 

OEDC 

08 3A 

0570 

052F 

09E7 

046E 

056E 

056F 

0571 

0AD7 

OBAD 

0B70 

0B73 



0323 
05CE 

0518 
OAFA 
0775 
0711 

04A0 
0EE4 
0B75 
0B7D 
0426 

0940 
0572 



0485 08BD 0B19 0D34 
0500 05D2 05D4 

0AD5 0B81 0BC1 0C2A 0EF3 



0767 077A 

04A9 04AC 04B6 04C0 04C3 04CC 04CF 0B17 0B34 0B36 0B4E 

OEEC 

0B86 

0B84 0C1B 0C26 0EE8 

0420 0434 0458 0470 0530 0532 05A3 062C 063A 0660 0B1F 

097B 098A OAOB 0A63 0C64 0C94 0CB2 0CD4 



0B65 0B68 OBCE OBFE 



0BA9 



PR8 


0E06 


0B7B 


RAD 


02E0 


04B8 0730 


RDSWS 


0306 


02FF 030D 0771 083D 


RID 


02DF 


02F6 03E3 041C 04AE 0700 071C 0721 075C 0773 0850 087A 089F 


RST 


0403 


051C 06FD 074F 


RSTX2 


05 IE 


04D9 


RSTX3 


0520 


04DA 


RST1 


040A 


04DD 


RST2 


04DE 


0407 


RTN1X 


090F 


090A 


RTN2X 


0916 


0911 


RWD 


07F0 


0723 0778 07FE 0987 09B1 0A54 OBDD 


RWDXO 


0804 


07D9 07F2 


RWDX1 


0805 


07F4 


RWD2 


07FE 


07FB 


RWD3 


07F1 


07F8 0803 


RWD4 


0800 


07FD 


SENSE 


065C 


0623 063E 


SNSPR 


0442 


0472 0475 0478 0480 0484 0487 0488 


SNWC 


07BA 


079B 


SNHC1 


07BB 


0794 


SPEC 


066C 


01D3 01D9 0B1D 


STCN 


0917 


090C 0913 0923 


STCN1 


0919 


090B 0912 0920 


STCN2 


091F 


091D 


STCN3 


0921 


091E 


SVE 


051A 


0507 


SVEXT 


0359 


0352 


SVINT 


0332 


014E 031C 0359 


SVINO 


033E 


034E 0357 


SVIN1 


0340 


0348 


SVIO 


0364 


0333 0344 0345 0358 


SVO 


035B 


034C 


SV1 


035C 


033E 


SV2 


035D 


033C 


SV3 


035E 


0353 


SV4 


035F 


033B 0340 0349 034B 0356 


SV5 


0360 


033F 0342 0346 


SV6 


0361 


033D 0343 0354 


SV7 


0362 


0338 034F 


sw 


0462 


03E1 03F4 03F6 09F8 0A40 0A45 OCOC 


SWO 


02E1 


02DA 0436 045A 04D4 0663 06F3 070C 0740 083F 08CA 095C 09A5 OABD 
0BB1 OBDF 0ED5 


SW1 


02E2 


02DC 0309 030C 0718 


SYDR 


050D 


0509 


SYDR1 


050F 


050C 


TAAO 


0368 


0311 0315 


TADSW 


036C 


0326 0329 032D 


TADWC 


036D 


032A 


TAXI 


030F 


0314 031D 032F 


TERM 


02E3 


0334 0419 0456 0536 062E 


TERR 


0371 


0317 


TMIC 


0500 


04F2 04FF 


TMICA 


04FD 


04F4 


TMICB 


0505 


04FC 


TMRDT 


07C0 


07C4 0993 0995 0A6A 0A6C 0A72 0A74 0A7A 0C17 0CB7 0CB9 OCBB 0CD6 


TMRD1 


0790 


07C3 


TMRD4 


07C4 


098E 0A67 0CB6 


TMRX2 


07C7 


0790 


TMRX3 


07C8 


07C1 


TMWRT 


078D 


07AF 07C5 0948 094D 0980 0985 OA10 0A19 0A1E 0A29 0A2B 0C15 0C4S 
0C99 0C9B 0C9D 0CA4 


TMWRO 


07A5 


0795 079F 


TMWR1 


079A 




TMWR2 


079B 


07A3 


TMWR3 


07A1 




TMWR4 


07 AA 


07C6 0947 094C 097F OAOF 0C68 


TMWR6 


07B1 


07AE 



ATE 
cC NO. 



01JUL66 
415178 



01N0V66 
415233 



15MAY67 01SEP67 010CT67 
411731 411857 411875 



14N0V69 


30JAN70 


PROG ID 


08B9-2 


"ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


0889-2 


431319 


431319A 


PAGE 


30 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


30A 



OOOOOOOOOOOOOO OOOOOOO OOOOOOOOOOOOf 



oooooooooooooc ooooooo ooooooooooooo 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
MOO TIMING TEST 



PART NO. 2196491 
PAGE 31 



TMWR7 
TMWR8 
TMWR9 
TOT A 

TRK9 

TURA1 

TURA2 

TWRXO 

TWRX1 

TWRX2 

TWRX3 

UNMK3 

UNMK4 

WAITA 

WAIT1 

WAIT2 

WAIT3 

WAIT4 

WAIT5 

WAIT6 

WAIT9 

WC 

WDCON 

WORD 

WRDSW 

WRITE 

XIOSN 

XIOWR 

END OF 



07B7 
07AF 
079F 
0E69 

0B04 
06 D9 

06 D8 
07BC 
07BD 

07 BE 
07BF 
0302 
0304 
0372 
014B 
03B7 
047A 
0626 
07A7 
07DE 
0370 

03BE 
05E5 
05D8 
065F 
065A 
063E 
063D 
ASSEMBLY 



078F 07C2 
092D 09E1 
0B2C 0B3C 
0AF6 
021B 
0297 

0797 07A1 
0790 



0A70 0A78 0A7E 0A80 0A87 0A8E 0A90 0A96 0AC7 OACC 0B23 
0B42 OB57 0BF7 



0952 0963 099B 09AC 0A6E 0A76 0A7C 0CC8 0D3E 



078E 

02FD 03B8 048C 0654 

02FE 03BA 048E 0656 

300 A 

3001 

3002 

3003 

3004 

3005 

3006 

3009 

03DB 03DC 
03EB 0402 
05AF 05B4 



0628 
063D 
0641 
064A 



03FA 040D 
05AE 

05B9 05C0 
0642 0648 064D 



LAST PAGE 



X ATE 


01JUL66 


01N0V66 


15MAY67 


01SEP67 


010CT67 


14N0V69 


30JAN70 


PROG ID 


08B9-2 


cC NO. 


415178 


415233 


411731 


411857 


411875 


431319 


431319A 


PAGE 


31 



o o o o (i n (i o o o n o r o o o f> ft ft n 



f>, f> o <> r> 



(i n ft o n n n n 



OOOOOOO OOOGOOO OOOOCCO OODOOOC oocooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196493 
PAGE 1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 TIMING TEST 



PART NO. 2196493 
PAGE tA 



TABLE OF CONTENTS 

1. PURPOSE i 

2. PREREQUISITES l 

3. USE PROCEDURE 1A 

3.1 PROGRAM LOADING 

3.2 OPERATION 

3.2.1 TYPICAL OPERATING PROCEDURE 

3.2.2 OPERATING OPTIONS 

3.3 TERMINATING PROCEDURE 

3.4 RESTART PROCEDURE 

3.5 PROGRAM HALTS 

4. PRINTOUTS . . 2A 

4.1 COMMAND MESSAGES 

4.2 INFORMATION PRINTOUTS 

4.3 ERROR PRINTOUTS 

5. COMMENTS . . . 3A 

6. APPENDIX _ ...5 

6.1 SAMPLE PLOTS — RECORD GAP TIME VS WRITE GO DOWN TIME 

6.2 EDIT PROCEDURE. . . 



PURPOSE 

THE MAGNETIC TAPE TIMING TEST (MTTIM) IS DESIGNED TO TEST WRITE AND READ 
DELAY, INTER-RECORD GAP, CREEP AND ERASE HEAD ON THE 2400 MAGNETIC TAPE 
UNIT SERIES FOR COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. 
THE PROGRAM IS ABLE TO TEST, 

1. SYSTEMS WITH ONE OR TWO TAPE DRIVES. 

2. DRIVES WITH 9 TRACK OR 7 TRACK READ-WRITE HEADS. 

3. MODELS 1, 2, OR 3 WITH 2 OR 4 USEC STORAGE. 

IF SYSTEM HAS TWO DRIVES, BOTH DRIVES MAY BE SEQUENTIALLY TESTED IN ONE 
CONTINUOUS RUN OF THE PROGRAM. 

PREREQUISITES 

THIS PROGRAM ASSUMES THAT THE 2400 MAGNETIC TAPE FUNCTION TEST RUNS ANO NO 
TAPE CONTROL ERRORS EXIST. EQUIPMENT REQUIRED CONSISTS OF, 



3. 
4. 
5. 



1442 CARD READ/PUNCH OR 1054 PAPER TAPE READER. 

1053 OR 1816 TYPEWRITER, OR 1443 PRINTER. 

A. IF 1443 IS USED - A CARRIAGE TAPE WITH AT LEAST CHANNEL 1 PUNCHED 

SHOULD BE USED. 
1800 PROCESSOR CONTROLLER. 

ONE OR TWO 2400 SERIES MAGNETIC TAPE DRIVES. 
THIS PROGRAM REQUIRES THE RELOCATABLE DIAGNOSTIC LOADER. 



3. USE PROCEDURE 

3. 1 PROGRAM LOADING 

3.1.1 ON TAPE ORIVEfSl TO BE TESTED, 

1. LOAD TAPE REEL. 

2. DEPRESS LOAD-REWIND KEY. 

3. DEPRESS START KEY. AFTER TAPE REWINDS TO LOAD POINT, DRIVEISJ 
SHOULD BECOME READY. 

3.1.2 REFER TO RELOCATABLE DIAGNOSTIC LOADER DOCUMENTATION FOR LOADING 
PRUCcDUR E • 

3.1.3 IF OPTIONS ARE DESIRED, GO TO 3.2.2. 

IF NO OPTIONS ARE DESIRED, GO TO 3.2.1. 

3.2 OPERATION 

3.2.1 TYPICAL OPERATING PROCEDURE 

IF NO OPTIONS ARE SET THE PROGRAM ASSUMES, 

1. BOTH DRIVES ARE TO BE RUN. 

2. OUTPUT DEVICE IS TO BE 1053/1816 TYPEWRITER. 

TO EXECUTE PROGRAM DEPRESS THE START BUTTON. 

3.2.2 OPERATING OPTIONS 

IF OPTIONS ARE DESIRED, SET SWITCHES DESIRED FROM TABLES 1 AND 2 AND 
DEPRESS THE START BUTTON. 

TABLE 1 GENERAL CONTROL 

1. SWITCHES MAY BE SET PRIOR TO PROGRAM 

LOADING OR AT WAIT 1. 

2. SWITCHES 0-1 MAY BE CHANGED ONLY 

BY A RESET-START OPERATION. 

3. SWITCHES 5-15 MAY BE CHANGED ANYTIME. 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 11 14 15 * 

• • • • 1..HALT BEFORE EACH ROUTINE * 
• 1 HALT ON ERROR * 

' • ' 1 BYPASS ALL PRINTOUTS EXCEPT GRAPH * 

• • 1 LOOP PROGRAM * 

• * USE 1443 AS OUTPUT DEVICE * 

1 LOOP RTN5 IN READ, AFTER INITIAL WRITE* 

BYPASS PRINTING RTN 5 GRAPH * 



* . 

* . . 

* . . 

* . . 

* . . 

* . . 

* . . 

* . . 

* . 1 

* 1.. 

* 



1. 



• l REQUEST RTNS 1-4 TO PRINT TIME FOUND * 

1 » BYPASS ALL HEADING PRINTOUTS * 

' • DO NOT RUN DRIVE 1 * 

' DO NOT RUN DRIVE * 

* Inll \ ~ ?I L £ V TIMES * LWAVS PRINT IF T1ME IS OUTSIDE ALLOWABLE LIMITS. t 

* NOTE 2 - IF DRIVE 1 IS EDITED AS NOT AVAILABLE - SWITCH 1 IS NOT USED. * 

TABLE 2 LOOP ROUTINE 



1. THESE SWITCHES CAN BE CHANGED AT ANY TIME. 

2. IF ZERO IS ENTERED, THE PROGRAM WILL NOT LOOP BUT WILL RUN ALL ROUTINES 



SEQUENCE 
3. IF IT IS DESIRED TO START ON A ROUTINE OTHER THAN ROUTINE 1, AND CONTINUE 
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THE TEST FROM THAT POINT, 

A. SET STARTING ROUTINE PER TABLE 2. 

B. START PROGRAM. 

C. WHILE PROGRAM IS RUNNING SELECT ROUTINE ZERO. 

D. PROGRAM WILL COMPLETE THE SELECTED ROUTINE AND THEN RUN THE REMAINING 
ROUTINES IN THEIR NORMAL SECUENCE. 

******************************************************************************** 

* PROGRAM SWITCHES * DESCRIPTION * 

* 5 6 7 * 

* X X X ENTER A ROUTINE NUMBER FROM TO 7. * 

* * 
******************************************************************************** 



PRINTOUTS 

PID AND MID AS SEEN IN DESCRIPTIONS BELOW WILL NOT BE FOUND IN PRINTED HEADI 

INSTEAD, A DESCRIPTION OF THE MESSAGE WILL BE PRINTED. 



4.1 



COMMAND MESSAGES 



PID MID RID RAD UNIT 

NO. 
B900 COOO XXXX XXXX OOOX 

DRIVE IS NOT READY 

B900 C001 XXXX XXXX OOOX 

DRIVE 1 IS NOT READY 



3.3 TERMINATING PROCEDURE 

1. THE PROGRAM WILL TERMINATE WHEN ALL DRIVES WHICH ARE SELECTED 
HAVE BEEN TESTED. 

2. THE PROGRAM WILL TERMINATE IF ERROR PRINTOUT E003 OCCURS. 
(SEE SEC. 4.3) 

3.4 RESTART PROCEDURE 

PRESS THE STOP, RESET AND START BUTTONS. THE PROGRAM SHOULD GO TO 
WAIT 1. IF THIS DOES NOT OCCUR, THE PROGRAM MUST BE RELOADED. 

3.5 PROGRAM HALTS 

PROGRAM WAITS ARE USED IN THIS PROGRAM, AND ARE IDENTIFIED BY 
REFERENCING THE B REG AND I REG. 

A PROGRAM WAIT IS OF THE FORM, 

30XX, ( B REG ). 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINNING OF THE PROGRAM LISTING. A TYPICAL WAIT DESCRIPTION FOLLOWS. 
IT IS INCLUDED TO SHOW THE FORMAT OF THE LISTING, AND IT IS NOT 
NECESSARILY A DESCRIPTION OF AN ACTUAL WAIT. 
******************************************************************************** 



4.2 



INFORMATION PRINTOUTS 



3001 014C 



DC WAIT1+1 WAIT FOR DATA ENTRY 

* SWITCHES TO BE SET. 

* PUSH START TO 

* CONTINUE THE PROGRAM. 



******************************************************************************** 
B REG, ( FIRST 4 DIGIT GROUP ) CORRESPONDS TO B REG READING. 
I REG, ( SECOND 4 DIGIT GROUP ) CORRESPONDS TO I REG READING. 



PID MID RID RAD UNIT 

NO. 
B900 AOOO 0008 XXXX OOOX 

ALL ROUTINES ARE COMPLETE 

B900 A001 0008 XXXX OOOX 

PROGRAM IS COMPLETE. 

MIN TIME MAX 
LIM FNO LIM 
B900 A002 XXXX XXXX OOOX XXXX XXXX XXXX 

WRITE DELAY TIMING, PRINTED IF BIT 6 OF DATA ENTRY SWITCHES IS ON. 

IF RID IS 0001-TIME FND IS FOR A WRITE WHEN AT LOAD POINT. 

IF RID IS 0003-TIME FND IS FOR A WRITE WHEN NOT AT LOAD POINT. 

MIN TIME MAX 

LIM FND LIM 

B900 A003 XXXX XXXX OOOX XXXX XXXX XXXX 

REAO DELAY TIMING, PRINTED IF BIT 6 OF DATA ENTRY SWITCHES IS ON. 

IF RID IS 0002-TIME FND IS FOR A READ WHEN AT LOAD POINT. 

IF RID IS 0004-TIME FND IS FOR A READ WHEN NOT AT LOAD POINT. 

10 

MSEC VAR MIN 

AVG AVG AVG 

B900 A004 0005 XXXX OOOX XXXX XXXX XXXX 

INTERRECORD GAP AVERAGES FOUND BY ROUTINE 5. 

MIN AVG MAX 
CREEP CREEP CREEP 
FND FND 
B900 A007 0006 XXXX OOOX XXXX XXXX XXXX 

FORWARD CREEP FOUND. (INCHES). 



(M 



(INCHES) 



4.3 



ERROR PRINTOUTS 



PID MID RID RAD UNIT MIN AVG MAX 

NO. CREEP CREEP CREEP 
FND FND 

B900 E001 0006 XXXX OOOX XXXX XXXX XXXX 

CREEP WAS LESS THAN .05 (INCHES). 

DSW 

RECEIVED 
B900 E003 XXXX XXXX OOOX XXXX 

DSW WRONG AFTER BACKSPACE, PUSH START TO RESTART PROGRAM. 

DSW 
RECEIVED 
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B900 E004 XXXX XXXX OOOX XXXX 

TEST ABORTEO DUE TO DSW OR UNEXPECTED INTERRUPT. 

IF DSW IS-FFFF-INTERRUPT OCCURRED ON A LEVEL OR ILSW 

BIT OTHER THAN THAT EDITED FOR MAGNETIC TAPE. 

MIN TIME MAX 

LIM FND LIM 

B900 E005 XXXX XXXX OOOX XXXX XXXX XXXX 

WRITE DELAY TIMING ERROR. (MSEC) 

IF RID IS 0001-ERROR IS FOR A WRITE WHEN AT LOAD POINT. 

IF RID IS 0003-ERROR IS FOR A WRITE WHEN NOT AT LOAD POINT. 

MIN TIME MAX 

LIM FND LIM 
B900 E006 XXXX XXXX OOOX XXXX XXXX XXXX 

READ DELAY TIMING ERROR. (MSEC) 

IF RID IS 0002-ERRCR IS FOR A READ WHEN AT LOAD POINT. 

IF RID IS 0004-ERROR IS FOR A READ WHEN NOT AT LOAO POINT. 

MIN AVG MAX 
CREEP CREEP CREEP 
FND FND 
8900 E007 0006 XXXX OOOX XXXX 0000 XXXX 
CREEP WAS ZERO. (INCHES). 
NOTE ANY NEGATIVE CREEP VALUE IS PRECEEDED BY A MINUS SIGN. 

MIN AVG MAX 
CREEP CREEP CREEP 
FND FND 
B900 E0C8 0006 XXXX OOOX XXXX XXXX XXXX 
CREEP WAS NEGATIVE. (INCHES) 
NOTE EACH NEGATIVE CREEP VALUE IS PRECEEDED BY A MINUS SIGN. 

NOTE 

PROGRAM ID, ROUTINE NUMBER, ROUTINE ADDRESS, MESSAGE ID, UNIT 
NUMBER AND DSW ARE ALWAYS PRINTED IN HEXADECIMAL. ALL 
OTHER WORDS OF ANY MESSAGE ARE PRINTED IN DECIMAL. ON 
DECIMAL PRINTOUTS, ASSUME A DECIMAL POINT AS SHOWN BELOW. 
WHERE PRINTOUT IS IN INCHES XX. XX 

WHERE PRINTOUTS ARE IN TIME MODEL 3 MODEL 1 ANO 2 

XX. XX XXX. X 

IN ADDITION TO THE ABOVE PRINTOUTS, ROUTINE 5 PRINTS A PLOT 
OF RECORD GAP VS WRITE GO DOWN TIME. 



5. COMMENTS 



CALL 
BSI L 



BSI L 
DC 



BSI L 
DC 



BSI L 
DC 

DC 



BSI 



BSI 



BSI 

DC 



BSI 



BSI 

DC 

DC 

DC 

DC 



BSI 



BSI 



MTTIM CONSISTS OF A MAGNETIC TAPE TIMING MONITOR ROUTINE, A SERIES OF 
COMMON MAGNETIC TAPE SUBROUTINES, AND A SERIES OF TESTS. SECTION 5.B 
GIVES A DESCRIPTION OF EACH OF THE COMMON SUBROUTINES AND THEIR 
CALLING SEQUENCES. SECTION 5.C GIVES A DESCRIPTION OF EACH OF THE 
TEST ROUTINES. 

THERE IS ONE TABLE AROUND WHICH ALL ROUTINES ARE ORIENTED. THIS 
TABLE IS THE DEVICE STATUS TABLE, CALLED DST. INDEX REGISTER 1 
ALWAYS CONTAINS THE NUMBER OF THE TAPE DRIVE BEING USED AND INDEX 
REGISTER 2, THE BASE ADORESS OF THE DST TABLE. THE DST TABLE IS THE 
BASIC MEANS OF COMMUNICATION BETWEEN ROUTINES. 

COMMON SUBROUTINES 

EACH SUBROUTINE ASSUMES THAT INDEX REGISTER 1 CONTAINS THE UNIT 
IDENTIFICATION AND INDEX REGISTER 2 CONTAINS THE BASE ADDRESS OF THE 
DST TABLE. 



NAME 



BSP 



USE- BACKSPACE CNE RECORD. 

DCC 

ADRS. OF CALL STRING 
USE- BUILD THE PROPER IOCC WORDS FROM THE CALL STRING ANO ISSUE THE XIO 
COMMAND. 

DELAY 

NUMBER OF LOOPS. 
USE- DELAY 25 USEC FOR EACH LOOP SPECIFIED. 

OIND 

ADRS. OF AREA COOE 

ADRS. OF MODIFIER 

USE- BUILD THE PROPER IOCC WORDS AND SENSE THE DEVICE. 

L DSWO 

USE- CALLS ON SUBROUTINE DIND AND RETURNS WITH THE DSW STORED IN THE 
DSW TABLE AND IN THE A REGISTER. 

L HALT 

USE- MASKS ALL INTERRUPT LEVELS AND WAITS FOR OPERATOR ACTION. 

L INTRT 

RETURN ADDRESS 
USE- SAVES FOR USE AFTER THE NEXT INTERRUPT THE RETURN ADDRESS 
SPECIFIED IN THE CONSTANT. 

L LOG 

USE- DETERMINE THE DESIRED OUTPUT DEVICE, CONVERT AND PRINT THE MESSAGE 
CODE SET UP BY SUBROUTINE HLG. 

L MLG 

ADRS. OF LEFT HALF OF HEADING 
ADRS. OF RIGHT HALF OF HEADING 
MESSAGE ID 

LINE AND FORMAT NUMBER. 
USE-1. SETS UP THE HEADING TO BE PRINTED ANO CALLS ON PCCO. 
2. SETS UP THE MESSAGE TO BE PRINTED AND CALLS ON LOG. 

L PCCO 

USE- DETERMINES THE DESIRED OUTPUT DEVICE AND PRINTS A PRESET MESSAGE 
WITH NO CONVERSION. 

L RWD 
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USE- REWINDS THE DRIVE SPECIFIED BY XR1. 

BSI L TMRDT 

USE- READS THE UNIT SPECIFIED BY XR1 AND TIMES THE LENGTH OF TIME TO A 

CHANGE IN THE WORD COUNTER. 

BSI L TMWRT 

USE- WRITES ON THE UNIT SPECIFIED BY XR1 AND TIMES THE LENGTH OF TIME 

UNTIL THE WORD COUNTER HAS CHANGED TWICE. 



C. 
RTN. NO. 
1 THRU 4 

1 
2 
3 
4 

5 



TEST ROUTINES 

DESCRIPTION 

THESE ROUTINES TIME READ AND WRITE DELAYS ANO CHECK FOR TIME 
BEING WITHIN LIMITS. IF TIME IS OUTSIDE LIMITS AN ERROR PRINTOUT 
IS GIVEN. TIME WHICH IS WITHIN LIMITS IS PRINTED ONLY IF 
REQUESTED. (SEE TABLE 1) 

WRITE DELAY AT LOAD POINT. 

READ DELAY AT LOAD POINT. 

WRITE DELAY NOT AT LOAO POINT. 

READ DELAY NOT AT LOAD POINT. 

INTERRECORD GAP TEST 

THIS ROUTINE WRITES A SERIES OF RECORDS WITH CONTROLLED GO LINE 
DOWN TIME BETWEEN RECORDS. THE SEQUENCE IS — 

A. WRITE A RECORD 

B. DELAY 10 MILLISECONDS 

C. WRITE A RECORD 

D. LOAD THE LEFT COLUMN IF NEXT VARIABLE DELAY IS 2.0,3.0,4.0, OR 
5.0 SECONOS. 

E. WRITE A RECORD 

F. DELAY A VARIABLE TIME <0.5MILLISEC0NDS TO 5 SECONOS) 

G. WRITE A RECORD 
H. WRITE A RECORD 

THE ABOVE SERIES IS REPEATED 47 TIMES WITH THE VARIABLE DELAY 
INCREASING EACH TIME. 

WHEN VARIABLE DELAY REACHES 5 SECONDSt THE SERIES IS RESTARTED FOR 
A TOTAL OF FIVE PASSES. 

THE TAPE IS THEN REWOUND AND ALL RECORDS READ AND ALL GAPS 
CHECKED FOR LENGTH. 

A GRAPH OF INTERRECORD GAP VERSUS VARIABLE GO LINE DOWN TIME IS 
THEN PRINTED. A SUMMARY IS ALSO PRINTED SHOWING AVERAGE GAP 
LENGTH WITH 10 MILLISECONDS DELAY, VARIABLE DELAY AND NO DELAY. 

WRITE-BACKSPACE-WRITE CREEP TEST. 

THIS ROUTINE CHECKS FOR TAPE CREEP BY WRITING SEVERAL RECORDS. 
BACKSPACING OVER THE LAST RECORD WRITTEN AND REWRITING IT. THE 
LENGTH OF THE RESULTING GAP IS THEN CHECKED AND CCMPARED TO THE 
ORIGINAL GAP. 
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